module SignIn.Model exposing
  ( Model
  , init
  )

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
  }