blob: c0aaf33d5d3e80b0e635c03be0660be394f2fc1e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module Update.SignIn
( updateSignIn
) where
import Model.Action.SignInAction exposing (..)
import Model.View.SignInView exposing (..)
updateSignIn : SignInAction -> SignInView -> SignInView
updateSignIn action signInView =
case action of
ErrorLogin message ->
{ signInView | result = Just (Err message) }
|
