diff options
| author | Joris | 2019-12-08 11:39:37 +0100 |
|---|---|---|
| committer | Joris | 2019-12-08 11:39:37 +0100 |
| commit | 316bda10c6bec8b5ccc9e23f1f677c076205f046 (patch) | |
| tree | 98da1d18834108af50f80ca6fa5c0f4facc42472 /server/src/Main.hs | |
| parent | e622e8fdd2e40b4306b5cc724d8dfb76bf976242 (diff) | |
| download | budget-316bda10c6bec8b5ccc9e23f1f677c076205f046.tar.gz budget-316bda10c6bec8b5ccc9e23f1f677c076205f046.tar.bz2 budget-316bda10c6bec8b5ccc9e23f1f677c076205f046.zip | |
Add category page
Diffstat (limited to 'server/src/Main.hs')
| -rw-r--r-- | server/src/Main.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/server/src/Main.hs b/server/src/Main.hs index f4d75a0..0b80de0 100644 --- a/server/src/Main.hs +++ b/server/src/Main.hs @@ -77,8 +77,13 @@ main = do incomeId <- S.param "id" Income.delete incomeId - S.get "/api/categories" $ - Category.list + S.get "/api/allCategories" $ do + Category.listAll + + S.get "/api/categories" $ do + page <- S.param "page" + perPage <- S.param "perPage" + Category.list page perPage S.post "/api/category" $ S.jsonData >>= Category.create |