blob: a962f90339e9163224988eb1ab0d7629ce4c7007 (
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.SignIn exposing (..)
type SignInAction =
UpdateLogin String
updateSignIn : SignInAction -> SignIn -> SignIn
updateSignIn action signIn =
case action of
UpdateLogin login ->
{ signIn | login <- login }
|