Load init data per page with AJAX

1 files changed, 23 insertions, 1 deletions

diff --git a/server/src/Main.hs b/server/src/Main.hs
index e3dad9e..9882092 100644
--- a/server/src/Main.hs
+++ b/server/src/Main.hs
@@ -1,3 +1,8 @@
+module Main
+  ( main
+  ) where
+
+import qualified Network.HTTP.Types.Status     as Status
 import           Network.Wai.Middleware.Gzip   (GzipFiles (GzipCompress))
 import qualified Network.Wai.Middleware.Gzip   as W
 import           Network.Wai.Middleware.Static
@@ -8,6 +13,7 @@ import qualified Controller.Category           as Category
 import qualified Controller.Income             as Income
 import qualified Controller.Index              as Index
 import qualified Controller.Payment            as Payment
+import qualified Controller.User               as User
 import           Job.Daemon                    (runDaemons)
 
 main :: IO ()
@@ -32,6 +38,12 @@ main = do
     S.post "/api/signOut" $
       Index.signOut conf
 
+    S.get "/api/users"$
+      User.list
+
+    S.get "/api/payments" $
+      Payment.list
+
     S.post "/api/payment" $
       S.jsonData >>= Payment.create
 
@@ -42,6 +54,9 @@ main = do
       paymentId <- S.param "id"
       Payment.delete paymentId
 
+    S.get "/api/incomes" $
+      Income.list
+
     S.post "/api/income" $
       S.jsonData >>= Income.create
 
@@ -52,6 +67,12 @@ main = do
       incomeId <- S.param "id"
       Income.delete incomeId
 
+    S.get "/api/paymentCategories" $
+      Payment.listPaymentCategories
+
+    S.get "/api/categories" $
+      Category.list
+
     S.post "/api/category" $
       S.jsonData >>= Category.create
 
@@ -62,5 +83,6 @@ main = do
       categoryId <- S.param "id"
       Category.delete categoryId
 
-    S.notFound $
+    S.notFound $ do
+      S.status Status.ok200
       Index.get conf