Set a spinner for sign in

1 files changed, 4 insertions, 4 deletions

diff --git a/src/client/elm/Model/View/SignInView.elm b/src/client/elm/Model/View/SignInView.elm
index 0fbce39..cf7e6b2 100644
--- a/src/client/elm/Model/View/SignInView.elm
+++ b/src/client/elm/Model/View/SignInView.elm
@@ -4,12 +4,12 @@ module Model.View.SignInView
   ) where
 
 type alias SignInView =
-  { login : String
-  , result : Maybe (Result String String)
+  { connecting : Bool
+  , error : Maybe String
   }
 
 initSignInView : SignInView
 initSignInView =
-  { login = ""
-  , result = Nothing
+  { connecting = False
+  , error = Nothing
   }