From f4c5df9e1b1afddeb5a482d4fbe654d0b321159c Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Oct 2019 19:28:54 +0200
Subject: Make payment edition to work on the frontend

---
 server/src/Controller/Payment.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'server/src/Controller/Payment.hs')

diff --git a/server/src/Controller/Payment.hs b/server/src/Controller/Payment.hs
index c700240..38c1c19 100644
--- a/server/src/Controller/Payment.hs
+++ b/server/src/Controller/Payment.hs
@@ -47,10 +47,10 @@ edit (EditPayment paymentId name cost date category frequency) =
     result <- liftIO . Query.run $ do
       editedPayment <- PaymentPersistence.edit (_user_id user) paymentId name cost date frequency
       case editedPayment of
-        Just p -> do
+        Just (old, new) -> do
           pc <- PaymentCategoryPersistence.save name category
-          PaymentCategoryPersistence.deleteIfUnused name
-          return $ Just (p, pc)
+          PaymentCategoryPersistence.deleteIfUnused (_payment_name old)
+          return $ Just (new, pc)
         Nothing ->
           return Nothing
     case result of
-- 
cgit v1.2.3