From c876fd8c2f1aac2c3fe10c2b7de734f3ef71b71f Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 4 Sep 2015 23:13:48 +0200
Subject: Paging model works with both payments addition and deletion

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

(limited to 'src/server')

diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index 271d970..b3fe07a 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -35,8 +35,8 @@ getPaymentsAction page perPage =
 createPaymentAction :: Text -> Int -> ActionM ()
 createPaymentAction name cost =
   Secure.loggedAction (\user -> do
-    paymentKey <- liftIO . runDb $ createPayment (entityKey user) name cost
-    json . Message . paymentKeyToText $ paymentKey
+    _ <- liftIO . runDb $ createPayment (entityKey user) name cost
+    ok200
   )
 
 deletePaymentAction :: Text -> ActionM ()
-- 
cgit v1.2.3