From b97ad942495352c3fc1e0c820cfba82a9693ac7a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 27 Oct 2019 20:26:29 +0100
Subject: WIP Set up server side paging for incomes

---
 server/src/Main.hs | 5 +++++
 1 file changed, 5 insertions(+)

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

diff --git a/server/src/Main.hs b/server/src/Main.hs
index 9882092..00e8d1c 100644
--- a/server/src/Main.hs
+++ b/server/src/Main.hs
@@ -54,6 +54,11 @@ main = do
       paymentId <- S.param "id"
       Payment.delete paymentId
 
+    S.get "/api/v2/incomes" $ do
+      page <- S.param "page"
+      perPage <- S.param "perPage"
+      Income.listv2 page perPage
+
     S.get "/api/incomes" $
       Income.list
 
-- 
cgit v1.2.3