From a2527c34e6b0e719a948cfd36bfee5ffad095a30 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 23 Aug 2015 10:54:45 +0200
Subject: UI payment delete, not done on server side yet

---
 src/client/Update/Payment.elm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/client/Update/Payment.elm')

diff --git a/src/client/Update/Payment.elm b/src/client/Update/Payment.elm
index 817a3f0..67331d6 100644
--- a/src/client/Update/Payment.elm
+++ b/src/client/Update/Payment.elm
@@ -17,6 +17,7 @@ type PaymentAction =
   | UpdatePayments Payments
   | AddPayment PaymentId String Int
   | ToggleEdit PaymentId
+  | Remove PaymentId
 
 updatePayment : Model -> PaymentAction -> PaymentView -> PaymentView
 updatePayment model action paymentView =
@@ -27,15 +28,16 @@ updatePayment model action paymentView =
       { paymentView | payments <- payments }
     AddPayment id name cost ->
       let payment =
-            { id = id
-            , creation = Date.fromTime model.currentTime
+            { creation = Date.fromTime model.currentTime
             , name = name
             , cost = cost
             , userName = paymentView.userName
             }
       in  { paymentView
-          | payments <- payment :: paymentView.payments
+          | payments <- addPayment paymentView.payments (id, payment)
           , add <- initAddPayment
           }
     ToggleEdit id ->
       { paymentView | edition <- if paymentView.edition == Just id then Nothing else Just id }
+    Remove id ->
+      { paymentView | payments <- removePayment paymentView.payments id }
-- 
cgit v1.2.3