diff options
Diffstat (limited to 'src/client/elm/Update')
-rw-r--r-- | src/client/elm/Update/SignIn.elm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/client/elm/Update/SignIn.elm b/src/client/elm/Update/SignIn.elm index c0aaf33..5e8a9bb 100644 --- a/src/client/elm/Update/SignIn.elm +++ b/src/client/elm/Update/SignIn.elm @@ -8,5 +8,10 @@ import Model.View.SignInView exposing (..) updateSignIn : SignInAction -> SignInView -> SignInView updateSignIn action signInView = case action of + Connecting -> + { signInView | connecting = True } ErrorLogin message -> - { signInView | result = Just (Err message) } + { signInView + | error = Just message + , connecting = False + } |