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/Main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/server/Main.hs')

diff --git a/src/server/Main.hs b/src/server/Main.hs
index ce652d0..8a77598 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -42,8 +42,10 @@ main = do
         get "/userName" $
           getUserName
 
-        get "/payments" $
-          getPaymentsAction
+        get "/payments" $ do
+          page <- param "page" :: ActionM Int
+          perPage <- param "perPage" :: ActionM Int
+          getPaymentsAction page perPage
 
         post "/payment/add" $ do
           name <- param "name" :: ActionM Text
-- 
cgit v1.2.3