src/client/elm/Model/View/SignInView.elm


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

module Model.View.SignInView
  ( SignInView
  , initSignInView
  ) where

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

initSignInView : SignInView
initSignInView =
  { login = ""
  , waitingServer = False
  , result = Nothing
  }