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') 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