From 182f3d3fea9985c0e403087fe253981c68e57102 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Nov 2019 11:33:20 +0100
Subject: Fix payment page

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

(limited to 'server/src/Controller')

diff --git a/server/src/Controller/Income.hs b/server/src/Controller/Income.hs
index d8d3d89..4a41bd3 100644
--- a/server/src/Controller/Income.hs
+++ b/server/src/Controller/Income.hs
@@ -1,5 +1,6 @@
 module Controller.Income
   ( list
+  , deprecatedList
   , create
   , edit
   , delete
@@ -58,6 +59,12 @@ list page perPage =
       return $ IncomePage (IncomeHeader since byUser) incomes count) >>= json
   )
 
+deprecatedList :: ActionM ()
+deprecatedList =
+  Secure.loggedAction (\_ ->
+    (liftIO . Query.run $ IncomePersistence.listAll) >>= json
+  )
+
 create :: CreateIncomeForm -> ActionM ()
 create form =
   Secure.loggedAction (\user ->
-- 
cgit v1.2.3