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 }