From 602c52acfcfa494b07fec05c20b317b60ea8a6f3 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 20 Oct 2019 21:31:57 +0200
Subject: Load init data per page with AJAX

---
 server/src/Controller/Payment.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'server/src/Controller/Payment.hs')

diff --git a/server/src/Controller/Payment.hs b/server/src/Controller/Payment.hs
index ba9d1ba..30b63ff 100644
--- a/server/src/Controller/Payment.hs
+++ b/server/src/Controller/Payment.hs
@@ -1,5 +1,6 @@
 module Controller.Payment
   ( list
+  , listPaymentCategories
   , create
   , edit
   , delete
@@ -32,6 +33,12 @@ list =
     (liftIO . Query.run $ PaymentPersistence.listActive) >>= json
   )
 
+listPaymentCategories :: ActionM ()
+listPaymentCategories =
+  Secure.loggedAction (\_ ->
+    (liftIO . Query.run $ PaymentCategoryPersistence.list) >>= json
+  )
+
 create :: CreatePaymentForm -> ActionM ()
 create form =
   Secure.loggedAction (\user ->
-- 
cgit v1.2.3