onasty: web/src/Data/Note.elm (e4abd996ae0618efe2596787bd0a30b88cf81573)

Smirnov Oleksandr web: create note page (#144)..., 11 months ago

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)

1	module Data.Note exposing (CreateResponse, decodeCreateResponse)
2
3	import Json.Decode as D exposing (Decoder)
4
5
6	type alias CreateResponse =
7	{ slug : String }
8
9
10	decodeCreateResponse : Decoder CreateResponse
11	decodeCreateResponse =
12	D.map CreateResponse
13	(D.field "slug" D.string)