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


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

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

type alias SignInView =
  { waitingServer : Bool
  , error : Maybe String
  }

initSignInView : SignInView
initSignInView =
  { waitingServer = False
  , error = Nothing
  }