diff options
| author | Joris | 2016-03-23 00:45:33 +0100 |
|---|---|---|
| committer | Joris | 2016-03-23 00:46:53 +0100 |
| commit | a11ad41b52ed3682d33382f2a378bf3294d688b2 (patch) | |
| tree | f1d0f7835965ebcc6a61225186cad6b5de565bca /src/client/elm/Update.elm | |
| parent | 32db6a74d8578f993dd1cce3367fc7615ec730cd (diff) | |
| download | budget-a11ad41b52ed3682d33382f2a378bf3294d688b2.tar.gz budget-a11ad41b52ed3682d33382f2a378bf3294d688b2.tar.bz2 budget-a11ad41b52ed3682d33382f2a378bf3294d688b2.zip | |
Sign in token link to /
Diffstat (limited to 'src/client/elm/Update.elm')
| -rw-r--r-- | src/client/elm/Update.elm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/client/elm/Update.elm b/src/client/elm/Update.elm index adb90ab..1625167 100644 --- a/src/client/elm/Update.elm +++ b/src/client/elm/Update.elm @@ -34,8 +34,7 @@ update action model = , Server.signIn email |> Task.map (always (UpdateSignIn SignInAction.ValidLogin)) |> flip Task.onError (\error -> - let errorMessage = getMessage (errorKey error) model.translations - in Task.succeed (UpdateSignIn (SignInAction.ErrorLogin errorMessage)) + Task.succeed (UpdateSignIn (SignInAction.ErrorLogin (errorKey error))) ) |> Effects.task ) @@ -49,7 +48,7 @@ update action model = ({ model | currentTime = time }, Effects.none) GoSignInView -> - ({ model | view = V.SignInView initSignInView }, Effects.none) + ({ model | view = V.SignInView (initSignInView Nothing) }, Effects.none) UpdateSignIn signInAction -> (applySignIn model signInAction, Effects.none) |