all repos

onasty @ cd3e3abcf8ccb361f3e34967367883087abba65b

a one-time notes service

onasty/web/src/Data/Note.elm(view raw)

1
2
3
4
5
6
7
8
9
10
11
12
13
module Data.Note exposing (CreateResponse, decodeCreateResponse)

import Json.Decode as D exposing (Decoder)


type alias CreateResponse =
    { slug : String }


decodeCreateResponse : Decoder CreateResponse
decodeCreateResponse =
    D.map CreateResponse
        (D.field "slug" D.string)