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/Model | |
| 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/Model')
| -rw-r--r-- | src/client/elm/Model/Action.elm | 1 | ||||
| -rw-r--r-- | src/client/elm/Model/Action/SignInAction.elm | 3 | ||||
| -rw-r--r-- | src/client/elm/Model/View/SignInView.elm | 8 |
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 } |