aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/Update.elm
diff options
context:
space:
mode:
authorJoris2016-03-27 21:24:11 +0200
committerJoris2016-03-27 21:24:11 +0200
commit617d30c96792795ab8561a6262c4c5f4e023b6cf (patch)
tree3174d82e3839e942a4be17a065415b497405fd0b /src/client/elm/LoggedIn/Update.elm
parent0c9d2b91e73f045067f7bcce6e4235fc9008f309 (diff)
downloadbudget-617d30c96792795ab8561a6262c4c5f4e023b6cf.tar.gz
budget-617d30c96792795ab8561a6262c4c5f4e023b6cf.tar.bz2
budget-617d30c96792795ab8561a6262c4c5f4e023b6cf.zip
Regroup monthly modules
Diffstat (limited to 'src/client/elm/LoggedIn/Update.elm')
-rw-r--r--src/client/elm/LoggedIn/Update.elm13
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
)