aboutsummaryrefslogtreecommitdiff
path: root/server/src/Controller
diff options
context:
space:
mode:
Diffstat (limited to 'server/src/Controller')
-rw-r--r--server/src/Controller/Payment.hs6
1 files changed, 3 insertions, 3 deletions
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