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

Smirnov Oleksandr scaffold frontend app (#134)..., 11 months ago

module Data.Me exposing (Me, decode)

import Json.Decode as Decode exposing (Decoder)


type alias Me =
    { email : String
    , createdAt : String -- TODO: upgrade to elm/time
    }


decode : Decoder Me
decode =
    Decode.map2 Me
        (Decode.field "email" Decode.string)
        (Decode.field "created_at" Decode.string)

1	module Data.Me exposing (Me, decode)
2
3	import Json.Decode as Decode exposing (Decoder)
4
5
6	type alias Me =
7	{ email : String
8	, createdAt : String -- TODO: upgrade to elm/time
9	}
10
11
12	decode : Decoder Me
13	decode =
14	Decode.map2 Me
15	(Decode.field "email" Decode.string)
16	(Decode.field "created_at" Decode.string)