src/client/elm/SignIn/Model.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

module SignIn.Model
  ( Model
  , init
  ) where

type alias Model =
  { login : String
  , waitingServer : Bool
  , result : Maybe (Result String String)
  }

init : Maybe String -> Model
init mbSignInError =
  { login = ""
  , waitingServer = False
  , result = Maybe.map Err mbSignInError
  }