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