Show montly payments with an expandable mechanism

1 files changed, 0 insertions, 53 deletions

diff --git a/src/client/Update/Payment.elm b/src/client/Update/Payment.elm
deleted file mode 100644
index 2cae679..0000000
--- a/src/client/Update/Payment.elm
+++ /dev/null
@@ -1,53 +0,0 @@
-module Update.Payment
-  ( PaymentAction(..)
-  , updatePayment
-  ) where
-
-import Date
-import Dict
-
-import Model exposing (Model)
-import Model.User exposing (UserId)
-import Model.Payment exposing (..)
-import Model.Payers exposing (..)
-import Model.View.LoggedView exposing (..)
-import Model.View.Payment.Add exposing (..)
-
-import Update.Payment.Add exposing (..)
-
-type PaymentAction =
-  UpdateAdd AddPaymentAction
-  | UpdatePayments Payments
-  | AddPayment UserId Int Payments
-  | ToggleEdit PaymentId
-  | Remove UserId Int Payments
-  | UpdatePage Int Payments
-
-updatePayment : Model -> PaymentAction -> LoggedView -> LoggedView
-updatePayment model action loggedView =
-  case action of
-    UpdateAdd addPaymentAction ->
-      { loggedView | add <- updateAddPayment addPaymentAction loggedView.add }
-    UpdatePayments payments ->
-      { loggedView | payments <- payments }
-    AddPayment userId cost payments ->
-      { loggedView
-      | payments <- payments
-      , currentPage <- 1
-      , add <- initAddPayment loggedView.add.frequency
-      , payers <- updatePayers loggedView.payers userId cost
-      , paymentsCount <- loggedView.paymentsCount + 1
-      }
-    ToggleEdit id ->
-      { loggedView | edition <- if loggedView.edition == Just id then Nothing else Just id }
-    Remove userId cost payments ->
-      { loggedView
-      | payments <- payments
-      , payers <- updatePayers loggedView.payers userId -cost
-      , paymentsCount <- loggedView.paymentsCount - 1
-      }
-    UpdatePage page payments ->
-      { loggedView
-      | currentPage <- page
-      , payments <- payments
-      }