all repos

onasty @ f6a62ba

a one-time notes service

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)