diff options
Diffstat (limited to 'src/client/Update/SignIn.elm')
-rw-r--r-- | src/client/Update/SignIn.elm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/client/Update/SignIn.elm b/src/client/Update/SignIn.elm index 0e118dc..0aa7c84 100644 --- a/src/client/Update/SignIn.elm +++ b/src/client/Update/SignIn.elm @@ -3,22 +3,22 @@ module Update.SignIn , updateSignIn ) where -import Model.View.SignIn exposing (..) +import Model.View.SignInView exposing (..) type SignInAction = UpdateLogin String | ValidLogin String | ErrorLogin String -updateSignIn : SignInAction -> SignIn -> SignIn -updateSignIn action signIn = +updateSignIn : SignInAction -> SignInView -> SignInView +updateSignIn action signInView = case action of UpdateLogin login -> - { signIn | login <- login } + { signInView | login <- login } ValidLogin message -> - { signIn + { signInView | login <- "" , result <- Just (Ok message) } ErrorLogin message -> - { signIn | result <- Just (Err message) } + { signInView | result <- Just (Err message) } |