From f4f24158a46d8c0975f1b8813bbdbbeebad8c108 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 6 Nov 2019 19:44:15 +0100
Subject: Show the payment table with server side paging

---
 server/src/Main.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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

diff --git a/server/src/Main.hs b/server/src/Main.hs
index b2672e4..a4d8635 100644
--- a/server/src/Main.hs
+++ b/server/src/Main.hs
@@ -41,8 +41,13 @@ main = do
     S.get "/api/users"$
       User.list
 
-    S.get "/api/payments" $
-      Payment.list
+    S.get "/api/deprecated/payments" $
+      Payment.deprecatedList
+
+    S.get "/api/payments" $ do
+      page <- S.param "page"
+      perPage <- S.param "perPage"
+      Payment.list page perPage
 
     S.post "/api/payment" $
       S.jsonData >>= Payment.create
-- 
cgit v1.2.3