From c1f44a5890fbb26faf6f17c676662ea1bd495f2e Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 4 Sep 2015 09:52:20 +0200
Subject: Adding paging (need some fixes)

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

(limited to 'src/server/Controller')

diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index dc1083e..271d970 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -25,10 +25,10 @@ import Model.Json.Number
 import Model.Message
 import Model.Message.Key (Key(PaymentNotDeleted))
 
-getPaymentsAction :: ActionM ()
-getPaymentsAction =
+getPaymentsAction :: Int -> Int -> ActionM ()
+getPaymentsAction page perPage =
   Secure.loggedAction (\_ -> do
-    payments <- liftIO $ runDb getPayments
+    payments <- liftIO $ runDb (getPayments page perPage)
     json payments
   )
 
-- 
cgit v1.2.3