From fc9a3ca6a5226f78a3a0ec51af3d8d287ccb2e1b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 2 Jan 2016 22:45:20 +0100
Subject: Merge deletePayment with deleteMonthlyPayment

---
 src/client/elm/Update/LoggedIn/Monthly.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/client/elm/Update/LoggedIn/Monthly.elm')

diff --git a/src/client/elm/Update/LoggedIn/Monthly.elm b/src/client/elm/Update/LoggedIn/Monthly.elm
index 2505091..3741e1f 100644
--- a/src/client/elm/Update/LoggedIn/Monthly.elm
+++ b/src/client/elm/Update/LoggedIn/Monthly.elm
@@ -15,7 +15,7 @@ updateMonthly action monthly =
       | payments = payment :: monthly.payments
       , visibleDetail = True
       }
-    DeletePayment id ->
+    DeletePayment payment ->
       { monthly
-      | payments = List.filter (\payment -> payment.id /= id) monthly.payments
+      | payments = List.filter (((/=) payment.id) << .id) monthly.payments
       }
-- 
cgit v1.2.3