diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Update.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Update.elm | 13 |
1 files changed, 7 insertions, 6 deletions
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 ) |