diff options
| author | Joris | 2019-11-03 11:33:20 +0100 |
|---|---|---|
| committer | Joris | 2019-11-03 11:33:20 +0100 |
| commit | 182f3d3fea9985c0e403087fe253981c68e57102 (patch) | |
| tree | a9d394e0f31f59e1f5ac4815b05a258f012545a4 /server/src/Controller | |
| parent | 9dbb4e6f7c2f0edc1126626e2ff498144c6b9947 (diff) | |
Fix payment page
Diffstat (limited to 'server/src/Controller')
| -rw-r--r-- | server/src/Controller/Income.hs | 7 |
1 files changed, 7 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 -> |