diff options
Diffstat (limited to 'src/client/elm/Model/View/SignInView.elm')
| -rw-r--r-- | src/client/elm/Model/View/SignInView.elm | 6 |
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 } |