From 3853811450d4fe801da996eb48825049c3541030 Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 6 Sep 2015 16:46:59 +0200 Subject: Renaming PaymentView to LoggedInView --- src/client/Update/LoggedView/Add.elm | 29 ----------------------------- src/client/Update/LoggedView/Monthly.elm | 27 --------------------------- 2 files changed, 56 deletions(-) delete mode 100644 src/client/Update/LoggedView/Add.elm delete mode 100644 src/client/Update/LoggedView/Monthly.elm (limited to 'src/client/Update/LoggedView') diff --git a/src/client/Update/LoggedView/Add.elm b/src/client/Update/LoggedView/Add.elm deleted file mode 100644 index 05c2c30..0000000 --- a/src/client/Update/LoggedView/Add.elm +++ /dev/null @@ -1,29 +0,0 @@ -module Update.LoggedView.Add - ( AddPaymentAction(..) - , updateAddPayment - ) where - -import Model.View.Payment.Add exposing (..) - -type AddPaymentAction = - UpdateName String - | UpdateCost String - | AddError (Maybe String) (Maybe String) - | ToggleFrequency - -updateAddPayment : AddPaymentAction -> AddPayment -> AddPayment -updateAddPayment action addPayment = - case action of - UpdateName name -> - { addPayment | name <- name } - UpdateCost cost -> - { addPayment | cost <- cost } - AddError nameError costError -> - { addPayment - | nameError <- nameError - , costError <- costError - } - ToggleFrequency -> - { addPayment - | frequency <- if addPayment.frequency == Punctual then Monthly else Punctual - } 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 - } -- cgit v1.2.3