onasty: web/src/Data/Credentials.elm (22fe01c3042dd635ee58e4ce2981316339639ada)

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

Olexandr Smirnov web: general refactor (#158)..., 11 months ago

module Data.Credentials exposing (Credentials, 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 (Credentials, decode)
2
3	import Json.Decode as Decode exposing (Decoder)
4
5
6	type alias Credentials =
7	{ accessToken : String
8	, refreshToken : String
9	}
10
11
12	decode : Decoder Credentials
13	decode =
14	Decode.map2 Credentials
15	(Decode.field "access_token" Decode.string)
16	(Decode.field "refresh_token" Decode.string)