aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Model/View
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/Model/View')
-rw-r--r--src/client/elm/Model/View/SignInView.elm6
1 files changed, 3 insertions, 3 deletions
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
}