From 50fb8fa48d1c4881da20b4ecf6d68a772301e713 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 30 Oct 2018 18:04:58 +0100
Subject: Update table when adding or removing a payment

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

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

diff --git a/server/src/Controller/Payment.hs b/server/src/Controller/Payment.hs
index 4edbf6a..fb7fcb2 100644
--- a/server/src/Controller/Payment.hs
+++ b/server/src/Controller/Payment.hs
@@ -12,8 +12,6 @@ import           Web.Scotty
 import           Common.Model                (CreatePayment (..),
                                               EditPayment (..), PaymentId,
                                               User (..))
-
-import qualified Json
 import qualified Model.Query                 as Query
 import qualified Persistence.Payment         as PaymentPersistence
 import qualified Persistence.PaymentCategory as PaymentCategoryPersistence
@@ -34,7 +32,7 @@ create createPayment@(CreatePayment name cost date category frequency) =
         (liftIO . Query.run $ do
           PaymentCategoryPersistence.save name category
           PaymentPersistence.create (_user_id user) name cost date frequency
-        ) >>= Json.jsonId
+        ) >>= json
       Just validationError ->
         do
           status Status.badRequest400
-- 
cgit v1.2.3