diff options
| author | Joris Guyonvarch | 2015-07-19 20:24:54 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-07-19 20:24:54 +0200 |
| commit | a40c4825996c90d107901b0d71162f9356f1395a (patch) | |
| tree | 6fea2cdaf18ebc181b2ff60c929970d71abc3a15 /src/client/Update.elm | |
| parent | 3aeb5db40424863039651d10593c1c0be49efd7b (diff) | |
| download | budget-a40c4825996c90d107901b0d71162f9356f1395a.tar.gz budget-a40c4825996c90d107901b0d71162f9356f1395a.tar.bz2 budget-a40c4825996c90d107901b0d71162f9356f1395a.zip | |
Showing login token error message in the UI
Diffstat (limited to 'src/client/Update.elm')
| -rw-r--r-- | src/client/Update.elm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/client/Update.elm b/src/client/Update.elm index 1d0fe95..508ee2f 100644 --- a/src/client/Update.elm +++ b/src/client/Update.elm @@ -14,6 +14,7 @@ import Update.SignIn exposing (..) type Action = NoOp | SignIn + | SignInError String | UpdateSignIn SignInAction | UpdatePayments Payments @@ -27,6 +28,9 @@ updateModel action model = model SignIn -> { model | view <- SignInView initSignIn } + SignInError msg -> + let signIn = { initSignIn | result <- Just (Err msg) } + in { model | view <- SignInView signIn } UpdateSignIn signInAction -> case model.view of SignInView signIn -> |