diff options
Diffstat (limited to 'src/client/Update/LoggedView/Monthly.elm')
-rw-r--r-- | src/client/Update/LoggedView/Monthly.elm | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/client/Update/LoggedView/Monthly.elm b/src/client/Update/LoggedView/Monthly.elm deleted file mode 100644 index 567025f..0000000 --- a/src/client/Update/LoggedView/Monthly.elm +++ /dev/null @@ -1,27 +0,0 @@ -module Update.LoggedView.Monthly - ( MonthlyAction(..) - , updateMonthly - ) where - -import Model.Payment exposing (Payment, PaymentId) -import Model.View.Payment.Monthly exposing (..) - -type MonthlyAction = - ToggleDetail - | AddPayment Payment - | DeletePayment PaymentId - -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 id -> - { monthly - | payments <- List.filter (\payment -> payment.id /= id) monthly.payments - } |