From 617d30c96792795ab8561a6262c4c5f4e023b6cf Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 27 Mar 2016 21:24:11 +0200 Subject: Regroup monthly modules --- src/client/elm/LoggedIn/Update.elm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'src/client/elm/LoggedIn/Update.elm') diff --git a/src/client/elm/LoggedIn/Update.elm b/src/client/elm/LoggedIn/Update.elm index 35ffaff..3b8090a 100644 --- a/src/client/elm/LoggedIn/Update.elm +++ b/src/client/elm/LoggedIn/Update.elm @@ -23,14 +23,15 @@ import LoggedIn.AddPayment.Action as AddPaymentAction import LoggedIn.AddPayment.Model as AddPaymentModel import LoggedIn.AddPayment.Update as AddPaymentUpdate +import LoggedIn.Monthly.Action as MonthlyAction +import LoggedIn.Monthly.Model as MonthlyModel +import LoggedIn.Monthly.Update as MonthlyUpdate + import Model exposing (Model) import Model.User exposing (UserId) import Model.Payment exposing (..) -import Model.Action.MonthlyAction as Monthly import Model.Translations exposing (Translations, getMessage) -import Update.LoggedIn.Monthly exposing (updateMonthly) - update : Model -> LoggedInAction.Action -> LoggedInModel.Model -> (LoggedInModel.Model, Effects LoggedInAction.Action) update model action loggedInView = case action of @@ -86,7 +87,7 @@ update model action loggedInView = Monthly -> ( { loggedInView | add = newAdd - , monthly = updateMonthly (Monthly.AddPayment newPayment) loggedInView.monthly + , monthly = MonthlyUpdate.update (MonthlyAction.AddPayment newPayment) loggedInView.monthly } , Effects.none ) @@ -108,7 +109,7 @@ update model action loggedInView = case frequency of Monthly -> ( { loggedInView - | monthly = updateMonthly (Monthly.DeletePayment payment) loggedInView.monthly + | monthly = MonthlyUpdate.update (MonthlyAction.DeletePayment payment) loggedInView.monthly } , Effects.none ) @@ -127,7 +128,7 @@ update model action loggedInView = ) LoggedInAction.UpdateMonthly monthlyAction -> - ( { loggedInView | monthly = updateMonthly monthlyAction loggedInView.monthly } + ( { loggedInView | monthly = MonthlyUpdate.update monthlyAction loggedInView.monthly } , Effects.none ) -- cgit v1.2.3