onasty: web/src/Shared/Msg.elm (39d6b8e)

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

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

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

import Api
import Data.Credentials exposing (Credentials)
import Time exposing (Posix, Zone)


type Msg
    = GotZone Zone
      -- Auth
    | Logout
    | SignedIn Credentials
      -- Session
    | CheckTokenExpiration 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 exposing (Posix, Zone)
6
7
8	type Msg
9	= GotZone Zone
10	-- Auth
11	\| Logout
12	\| SignedIn Credentials
13	-- Session
14	\| CheckTokenExpiration Posix
15	\| TriggerTokenRefresh
16	\| ApiRefreshTokensResponded (Result Api.Error Credentials)