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/Model/View/SignInView.elm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/client/elm/Model/View/SignInView.elm')

diff --git a/src/client/elm/Model/View/SignInView.elm b/src/client/elm/Model/View/SignInView.elm
index 0d69445..f72d05a 100644
--- a/src/client/elm/Model/View/SignInView.elm
+++ b/src/client/elm/Model/View/SignInView.elm
@@ -9,9 +9,9 @@ type alias SignInView =
   , result : Maybe (Result String String)
   }
 
-initSignInView : SignInView
-initSignInView =
+initSignInView : Maybe String -> SignInView
+initSignInView mbSignInError =
   { login = ""
   , waitingServer = False
-  , result = Nothing
+  , result = Maybe.map Err mbSignInError
   }
-- 
cgit v1.2.3