blob: f55ce6df2094885573ddb9dd7b36b9927cf8f907 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
module Update.SignIn
( updateSignIn
) where
import Model.View.SignInView exposing (..)
import Model.Action.SignInAction exposing (..)
updateSignIn : SignInAction -> SignInView -> SignInView
updateSignIn action signInView =
case action of
UpdateLogin login ->
{ signInView |
login = login
}
WaitingServer ->
{ signInView
| waitingServer = True
}
ValidLogin message ->
{ signInView
| login = ""
, result = Just (Ok message)
, waitingServer = False
}
ErrorLogin message ->
{ signInView
| result = Just (Err message)
, waitingServer = False
}
|