Add a payment from the UI, it needs polishing however

1 files changed, 22 insertions, 0 deletions

diff --git a/src/client/Update/Payment.elm b/src/client/Update/Payment.elm
new file mode 100644
index 0000000..129ccde
--- /dev/null
+++ b/src/client/Update/Payment.elm
@@ -0,0 +1,22 @@
+module Update.Payment
+  ( PaymentAction(..)
+  , updatePayment
+  ) where
+
+import Model.View.PaymentView exposing (..)
+import Model.Payment exposing (..)
+
+type PaymentAction =
+  UpdateName String
+  | UpdateCost String
+  | UpdatePayments Payments
+
+updatePayment : PaymentAction -> PaymentView -> PaymentView
+updatePayment action paymentView =
+  case action of
+    UpdateName name ->
+      { paymentView | name <- name }
+    UpdateCost cost ->
+      { paymentView | cost <- cost }
+    UpdatePayments payments ->
+      { paymentView | payments <- payments }