onasty: web/src/Data/Credentials.elm (1994b67)

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

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

module Data.Credentials exposing
    ( Credentials
    , decode
    )

{-|

@docs Credentials
@docs decode

-}

import Json.Decode as Decode exposing (Decoder)


type alias Credentials =
    { accessToken : String
    , refreshToken : String
    }


decode : Decoder Credentials
decode =
    Decode.map2 Credentials
        (Decode.field "access_token" Decode.string)
        (Decode.field "refresh_token" Decode.string)

1	module Data.Credentials exposing
2	( Credentials
3	, decode
4	)
5
6	{-\|
7
8	@docs Credentials
9	@docs decode
10
11	-}
12
13	import Json.Decode as Decode exposing (Decoder)
14
15
16	type alias Credentials =
17	{ accessToken : String
18	, refreshToken : String
19	}
20
21
22	decode : Decoder Credentials
23	decode =
24	Decode.map2 Credentials
25	(Decode.field "access_token" Decode.string)
26	(Decode.field "refresh_token" Decode.string)