diff options
| author | Joris | 2016-01-01 14:39:40 +0100 |
|---|---|---|
| committer | Joris | 2016-01-01 14:39:40 +0100 |
| commit | 0d0c99fd28b782c7daf02fb5cc48d3eb252e705d (patch) | |
| tree | 93f9836152b6db9fc7a7af34ceb1dde920b1f3c3 /src/client/elm/Update.elm | |
| parent | 5f3d75406ef36924616e3289342647f4939d5004 (diff) | |
| download | budget-0d0c99fd28b782c7daf02fb5cc48d3eb252e705d.tar.gz budget-0d0c99fd28b782c7daf02fb5cc48d3eb252e705d.tar.bz2 budget-0d0c99fd28b782c7daf02fb5cc48d3eb252e705d.zip | |
Simplify persona usage
Diffstat (limited to 'src/client/elm/Update.elm')
| -rw-r--r-- | src/client/elm/Update.elm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/client/elm/Update.elm b/src/client/elm/Update.elm index ed4b99d..62782a3 100644 --- a/src/client/elm/Update.elm +++ b/src/client/elm/Update.elm @@ -20,10 +20,11 @@ import Update.LoggedIn exposing (..) type Action = NoOp | UpdateTime Time + | GoLoadingView | GoSignInView + | GoLoggedInView Users UserId Payments Payments Int Payers | SignInError String | UpdateSignIn SignInAction - | GoLoggedInView Users UserId Payments Payments Int Payers | UpdateLoggedIn LoggedAction actions : Signal.Mailbox Action @@ -36,6 +37,8 @@ updateModel action model = model UpdateTime time -> { model | currentTime = time } + GoLoadingView -> + { model | view = V.LoadingView } GoSignInView -> { model | view = V.SignInView initSignInView } GoLoggedInView users me monthlyPayments payments paymentsCount payers -> |