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
  }