diff options
| author | Joris | 2016-01-02 22:19:40 +0100 |
|---|---|---|
| committer | Joris | 2016-01-02 22:19:40 +0100 |
| commit | 25d15aacb940c2a19cae3b2e3d8d3ebd1972be02 (patch) | |
| tree | 6a418a7a31b713a1d39bdb2da1f798ca07266fe1 /src/client/elm/Update.elm | |
| parent | 35493d8ec353f90a6ca67e2aedb702684e0abafa (diff) | |
| download | budget-25d15aacb940c2a19cae3b2e3d8d3ebd1972be02.tar.gz budget-25d15aacb940c2a19cae3b2e3d8d3ebd1972be02.tar.bz2 budget-25d15aacb940c2a19cae3b2e3d8d3ebd1972be02.zip | |
Merge AddPayment and AddMonthlyPayment
Diffstat (limited to 'src/client/elm/Update.elm')
| -rw-r--r-- | src/client/elm/Update.elm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/client/elm/Update.elm b/src/client/elm/Update.elm index 46c1b01..73dde9b 100644 --- a/src/client/elm/Update.elm +++ b/src/client/elm/Update.elm @@ -39,6 +39,11 @@ update action model = |> Effects.task ) + GoLoggedInView users me monthlyPayments payments paymentsCount payers -> + ( { model | view = V.LoggedInView (initLoggedInView users me monthlyPayments payments paymentsCount payers) } + , Effects.none + ) + ServerCommunication communication -> ( model , sendRequest communication @@ -52,11 +57,6 @@ update action model = GoSignInView -> ({ model | view = V.SignInView initSignInView }, Effects.none) - GoLoggedInView users me monthlyPayments payments paymentsCount payers -> - ( { model | view = V.LoggedInView (initLoggedInView users me monthlyPayments payments paymentsCount payers) } - , Effects.none - ) - UpdateSignIn signInAction -> (applySignIn model signInAction, Effects.none) |