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