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/Model/View/SignInView.elm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/client/elm/Model/View/SignInView.elm') 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 } -- cgit v1.2.3