aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/Home/Monthly/Update.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Monthly/Update.elm')
-rw-r--r--src/client/elm/LoggedIn/Home/Monthly/Update.elm21
1 files changed, 0 insertions, 21 deletions
diff --git a/src/client/elm/LoggedIn/Home/Monthly/Update.elm b/src/client/elm/LoggedIn/Home/Monthly/Update.elm
deleted file mode 100644
index 70b2f9c..0000000
--- a/src/client/elm/LoggedIn/Home/Monthly/Update.elm
+++ /dev/null
@@ -1,21 +0,0 @@
-module LoggedIn.Home.Monthly.Update
- ( update
- ) where
-
-import LoggedIn.Home.Monthly.Action as MonthlyAction
-import LoggedIn.Home.Monthly.Model as MonthlyModel
-
-update : MonthlyAction.Action -> MonthlyModel.Model -> MonthlyModel.Model
-update action monthly =
- case action of
- MonthlyAction.ToggleDetail ->
- { monthly | visibleDetail = not monthly.visibleDetail }
- MonthlyAction.AddPayment payment ->
- { monthly
- | payments = payment :: monthly.payments
- , visibleDetail = True
- }
- MonthlyAction.DeletePayment payment ->
- { monthly
- | payments = List.filter (((/=) payment.id) << .id) monthly.payments
- }