blob: f72d05a01f7efcd44e19021711de8a0e8ae2dd90 (
plain)
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 : Maybe String -> SignInView
initSignInView mbSignInError =
{ login = ""
, waitingServer = False
, result = Maybe.map Err mbSignInError
}
|
