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/SignIn.elm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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

diff --git a/src/client/elm/Update/SignIn.elm b/src/client/elm/Update/SignIn.elm
index f55ce6d..ade5761 100644
--- a/src/client/elm/Update/SignIn.elm
+++ b/src/client/elm/Update/SignIn.elm
@@ -4,9 +4,10 @@ module Update.SignIn
 
 import Model.View.SignInView exposing (..)
 import Model.Action.SignInAction exposing (..)
+import Model.Translations exposing (getMessage, Translations)
 
-updateSignIn : SignInAction -> SignInView -> SignInView
-updateSignIn action signInView =
+updateSignIn : Translations -> SignInAction -> SignInView -> SignInView
+updateSignIn translations action signInView =
   case action of
     UpdateLogin login ->
       { signInView |
@@ -16,10 +17,10 @@ updateSignIn action signInView =
       { signInView
       | waitingServer = True
       }
-    ValidLogin message ->
+    ValidLogin ->
       { signInView
       | login = ""
-      , result = Just (Ok message)
+      , result = Just (Ok (getMessage "SignInEmailSent" translations))
       , waitingServer = False
       }
     ErrorLogin message ->
-- 
cgit v1.2.3