diff options
| author | Joris | 2016-03-12 00:21:41 +0100 |
|---|---|---|
| committer | Joris | 2016-03-12 00:21:41 +0100 |
| commit | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (patch) | |
| tree | ac62eac33c624d14de93f3958270cbf60973b8b6 /src/client/elm/Update.elm | |
| parent | 9d57e149fcb124a28813c56f83cf254eb92baa42 (diff) | |
Do not try to init data after login mail was sent
Diffstat (limited to 'src/client/elm/Update.elm')
| -rw-r--r-- | src/client/elm/Update.elm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/client/elm/Update.elm b/src/client/elm/Update.elm index 948ab1f..adb90ab 100644 --- a/src/client/elm/Update.elm +++ b/src/client/elm/Update.elm @@ -32,7 +32,7 @@ update action model = SignIn email -> ( applySignIn model (SignInAction.WaitingServer) , Server.signIn email - |> Task.map GoLoggedInView + |> Task.map (always (UpdateSignIn SignInAction.ValidLogin)) |> flip Task.onError (\error -> let errorMessage = getMessage (errorKey error) model.translations in Task.succeed (UpdateSignIn (SignInAction.ErrorLogin errorMessage)) @@ -69,7 +69,7 @@ applySignIn : Model -> SignInAction -> Model applySignIn model signInAction = case model.view of V.SignInView signInView -> - { model | view = V.SignInView (updateSignIn signInAction signInView) } + { model | view = V.SignInView (updateSignIn model.translations signInAction signInView) } _ -> model |