From 302a2e798f10e61c129753a2bd11634420c1f1a1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 2 Jan 2016 20:31:25 +0100
Subject: Set a spinner for sign in

---
 src/client/elm/Update/SignIn.elm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/client/elm/Update')

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
+      }
-- 
cgit v1.2.3