3 files changed, 7 insertions, 5 deletions
diff --git a/src/client/elm/Model/Action.elm b/src/client/elm/Model/Action.elm
index 9d5d125..d0fe597 100644
--- a/src/client/elm/Model/Action.elm
+++ b/src/client/elm/Model/Action.elm
@@ -15,6 +15,7 @@ import Model.Communication exposing (Communication)
 type Action =
   NoOp
   | ServerCommunication Communication
+  | SignIn String
   | UpdateTime Time
   | GoSignInView
   | GoLoggedInView Users UserId Payments Payments Int Payers
diff --git a/src/client/elm/Model/Action/SignInAction.elm b/src/client/elm/Model/Action/SignInAction.elm
index 6673c11..ed64c1d 100644
--- a/src/client/elm/Model/Action/SignInAction.elm
+++ b/src/client/elm/Model/Action/SignInAction.elm
@@ -3,4 +3,5 @@ module Model.Action.SignInAction
   ) where
 
 type SignInAction =
-  ErrorLogin String
+  Connecting
+  | ErrorLogin String
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
   }