From c0ea63f8c1a8c7123b78798cec99726b113fb1f3 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 17 Nov 2019 18:08:28 +0100
Subject: Optimize and refactor payments

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

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

diff --git a/server/src/Main.hs b/server/src/Main.hs
index 5068d10..f4d75a0 100644
--- a/server/src/Main.hs
+++ b/server/src/Main.hs
@@ -42,9 +42,15 @@ main = do
       User.list
 
     S.get "/api/payments" $ do
+      frequency <- S.param "frequency"
       page <- S.param "page"
       perPage <- S.param "perPage"
-      Payment.list page perPage
+      search <- S.param "search"
+      Payment.list (read frequency) page perPage search
+
+    S.get "/api/payment/category" $ do
+      name <- S.param "name"
+      Payment.searchCategory name
 
     S.post "/api/payment" $
       S.jsonData >>= Payment.create
@@ -61,9 +67,6 @@ main = do
       perPage <- S.param "perPage"
       Income.list page perPage
 
-    S.get "/api/deprecated/incomes" $ do
-      Income.deprecatedList
-
     S.post "/api/income" $
       S.jsonData >>= Income.create
 
@@ -74,9 +77,6 @@ main = do
       incomeId <- S.param "id"
       Income.delete incomeId
 
-    S.get "/api/paymentCategories" $
-      Payment.listPaymentCategories
-
     S.get "/api/categories" $
       Category.list
 
-- 
cgit v1.2.3