From 52331eeadce8d250564851c25fc965172640bc55 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 12 Oct 2019 11:23:10 +0200
Subject: Implement client routing

---
 server/src/Main.hs | 36 ++++++++++++++++++++----------------
 1 file changed, 20 insertions(+), 16 deletions(-)

(limited to 'server/src/Main.hs')

diff --git a/server/src/Main.hs b/server/src/Main.hs
index 0ccf5e2..e3dad9e 100644
--- a/server/src/Main.hs
+++ b/server/src/Main.hs
@@ -15,48 +15,52 @@ main = do
   conf <- Conf.get "application.conf"
   _ <- runDaemons conf
   S.scotty (Conf.port conf) $ do
-    S.middleware $ W.gzip $ W.def { W.gzipFiles = GzipCompress }
-    S.middleware . staticPolicy $ noDots >-> addBase "public"
 
-    S.get "/" $ do
-      Index.get conf
+    S.middleware $
+      W.gzip $ W.def { W.gzipFiles = GzipCompress }
+
+    S.middleware . staticPolicy $
+      noDots >-> addBase "public"
 
-    S.post "/askSignIn" $ do
+    S.post "/api/askSignIn" $
       S.jsonData >>= Index.askSignIn conf
 
-    S.get "/signIn/:signInToken" $ do
+    S.get "/api/signIn/:signInToken" $ do
       signInToken <- S.param "signInToken"
       Index.trySignIn conf signInToken
 
-    S.post "/signOut" $
+    S.post "/api/signOut" $
       Index.signOut conf
 
-    S.post "/payment" $
+    S.post "/api/payment" $
       S.jsonData >>= Payment.create
 
-    S.put "/payment" $
+    S.put "/api/payment" $
       S.jsonData >>= Payment.edit
 
-    S.delete "/payment/:id" $ do
+    S.delete "/api/payment/:id" $ do
       paymentId <- S.param "id"
       Payment.delete paymentId
 
-    S.post "/income" $
+    S.post "/api/income" $
       S.jsonData >>= Income.create
 
-    S.put "/income" $
+    S.put "/api/income" $
       S.jsonData >>= Income.edit
 
-    S.delete "/income/:id" $ do
+    S.delete "/api/income/:id" $ do
       incomeId <- S.param "id"
       Income.delete incomeId
 
-    S.post "/category" $
+    S.post "/api/category" $
       S.jsonData >>= Category.create
 
-    S.put "/category" $
+    S.put "/api/category" $
       S.jsonData >>= Category.edit
 
-    S.delete "/category/:id" $ do
+    S.delete "/api/category/:id" $ do
       categoryId <- S.param "id"
       Category.delete categoryId
+
+    S.notFound $
+      Index.get conf
-- 
cgit v1.2.3