From 25d15aacb940c2a19cae3b2e3d8d3ebd1972be02 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 2 Jan 2016 22:19:40 +0100 Subject: Merge AddPayment and AddMonthlyPayment --- src/client/elm/Update.elm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/client/elm/Update.elm') 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) -- cgit v1.2.3