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 | |
| parent | 9dbb4e6f7c2f0edc1126626e2ff498144c6b9947 (diff) | |
Fix payment page
Diffstat (limited to 'server')
| -rw-r--r-- | server/src/Controller/Income.hs | 7 | ||||
| -rw-r--r-- | server/src/Main.hs | 3 |
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 |