onasty: web/src/Shared/Msg.elm (9c8b9eae5400bed303e3892d640786b0cb0b3554)

onasty/web/src/Shared/Msg.elm (view raw)

Smirnov Oleksandr web: handle api errors (#138)..., 11 months ago

module Shared.Msg exposing (Msg(..))

import Api
import Data.Credentials exposing (Credentials)
import Time


type Msg
    = GotZone Time.Zone
      -- Auth
    | Logout
    | SignedIn Credentials
      -- Session
    | CheckTokenExpiration Time.Posix
    | TriggerTokenRefresh
    | ApiRefreshTokensResponded (Result Api.Error Credentials)

1	module Shared.Msg exposing (Msg(..))
2
3	import Api
4	import Data.Credentials exposing (Credentials)
5	import Time
6
7
8	type Msg
9	= GotZone Time.Zone
10	-- Auth
11	\| Logout
12	\| SignedIn Credentials
13	-- Session
14	\| CheckTokenExpiration Time.Posix
15	\| TriggerTokenRefresh
16	\| ApiRefreshTokensResponded (Result Api.Error Credentials)