From b73ba24f3440b81698c9d5c370739d03f958f059 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 31 Dec 2015 19:34:29 +0100
Subject: Fetch all the payments, do the paging only in the UI

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

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

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 3539120..3ac489e 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -54,10 +54,7 @@ main = do
 
         -- Payments
 
-        get "/payments" $ do
-          page    <- param "page"    :: ActionM Int
-          perPage <- param "perPage" :: ActionM Int
-          getPayments page perPage
+        get "/payments" getPayments
 
         get "/monthlyPayments" getMonthlyPayments
 
-- 
cgit v1.2.3