From 47104f0b3965cd1dfba0f466afdb5e8983dc7bec Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 12 Mar 2016 00:21:41 +0100
Subject: Do not try to init data after login mail was sent

---
 src/client/elm/Update.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/client/elm/Update.elm')

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
 
-- 
cgit v1.2.3