diff options
author | Joris | 2016-03-27 21:24:11 +0200 |
---|---|---|
committer | Joris | 2016-03-27 21:24:11 +0200 |
commit | 617d30c96792795ab8561a6262c4c5f4e023b6cf (patch) | |
tree | 3174d82e3839e942a4be17a065415b497405fd0b /src/client/elm/Update | |
parent | 0c9d2b91e73f045067f7bcce6e4235fc9008f309 (diff) |
Regroup monthly modules
Diffstat (limited to 'src/client/elm/Update')
-rw-r--r-- | src/client/elm/Update/LoggedIn/Monthly.elm | 21 |
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 - } |