onasty/web/src/Data/Credentials.elm(view raw)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
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)
|