all repos

onasty @ 9de58ad

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 Data.Credentials exposing (Credentials)
import Http
import Time


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