blob: 961fb1667400c66c28e14e80342adc78f1ad4ed2 (
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) }
|
