diff options
| author | Joris Guyonvarch | 2015-07-19 17:28:19 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-07-19 17:28:19 +0200 |
| commit | 331d506281760ac62e8f1715ef729e1b2a91e280 (patch) | |
| tree | a26e49d9a41de26fbb5602b293f44c5f7f592efc /src/client/Update/SignIn.elm | |
| parent | 0d589e12a0c32936303de46b1e462dd19648170d (diff) | |
| download | budget-331d506281760ac62e8f1715ef729e1b2a91e280.tar.gz budget-331d506281760ac62e8f1715ef729e1b2a91e280.tar.bz2 budget-331d506281760ac62e8f1715ef729e1b2a91e280.zip | |
Showing either error or success message at sign in page
Diffstat (limited to 'src/client/Update/SignIn.elm')
| -rw-r--r-- | src/client/Update/SignIn.elm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/client/Update/SignIn.elm b/src/client/Update/SignIn.elm index a962f90..0e118dc 100644 --- a/src/client/Update/SignIn.elm +++ b/src/client/Update/SignIn.elm @@ -7,9 +7,18 @@ import Model.View.SignIn exposing (..) type SignInAction = UpdateLogin String + | ValidLogin String + | ErrorLogin String updateSignIn : SignInAction -> SignIn -> SignIn updateSignIn action signIn = case action of UpdateLogin login -> { signIn | login <- login } + ValidLogin message -> + { signIn + | login <- "" + , result <- Just (Ok message) + } + ErrorLogin message -> + { signIn | result <- Just (Err message) } |