aboutsummaryrefslogtreecommitdiff
path: root/server
diff options
context:
space:
mode:
Diffstat (limited to 'server')
-rw-r--r--server/src/Controller/Income.hs7
-rw-r--r--server/src/Main.hs3
2 files changed, 10 insertions, 0 deletions
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 ->
diff --git a/server/src/Main.hs b/server/src/Main.hs
index 40b53b6..b2672e4 100644
--- a/server/src/Main.hs
+++ b/server/src/Main.hs
@@ -59,6 +59,9 @@ 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