From a11ad41b52ed3682d33382f2a378bf3294d688b2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 23 Mar 2016 00:45:33 +0100
Subject: Sign in token link to /

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

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

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