diff options
| author | Joris | 2016-01-02 20:31:25 +0100 |
|---|---|---|
| committer | Joris | 2016-01-02 20:31:25 +0100 |
| commit | 302a2e798f10e61c129753a2bd11634420c1f1a1 (patch) | |
| tree | aa53c2eb212d0742f63b3df1be88afb5da699769 /src/client/elm/Update/SignIn.elm | |
| parent | bb316286b0859b5648c61f44c88399f4c1aad9cd (diff) | |
| download | budget-302a2e798f10e61c129753a2bd11634420c1f1a1.tar.gz budget-302a2e798f10e61c129753a2bd11634420c1f1a1.tar.bz2 budget-302a2e798f10e61c129753a2bd11634420c1f1a1.zip | |
Set a spinner for sign in
Diffstat (limited to 'src/client/elm/Update/SignIn.elm')
| -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 + } |