diff options
author | Joris | 2015-09-06 16:46:59 +0200 |
---|---|---|
committer | Joris | 2015-09-06 16:46:59 +0200 |
commit | 3853811450d4fe801da996eb48825049c3541030 (patch) | |
tree | b483c6152f55b6fe87d23108d2d0346a593e51ac /src/client/Update/LoggedView/Monthly.elm | |
parent | 0b6f0fa29075178b45cb17d2932003ab4b342280 (diff) | |
download | budget-3853811450d4fe801da996eb48825049c3541030.tar.gz budget-3853811450d4fe801da996eb48825049c3541030.tar.bz2 budget-3853811450d4fe801da996eb48825049c3541030.zip |
Renaming PaymentView to LoggedInView
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 - } |