From e4eefaa5b418780e6fb63e929f826b927bbeac68 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 19 Jul 2015 00:54:37 +0200
Subject: Authorizing only existing users

---
 src/server/Main.hs | 30 +++++++++++++++++-------------
 1 file changed, 17 insertions(+), 13 deletions(-)

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

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 8d5a625..4461945 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -14,10 +14,24 @@ main :: IO ()
 main = do
   runMigrations
   scotty 3000 $ do
-    middleware $ staticPolicy (noDots >-> addBase "public")
-    get "/" getIndexAction
+
+    middleware $
+      staticPolicy (noDots >-> addBase "public")
+
+    get "/" $
+      getIndexAction
+
+    post "/signIn" $ do
+      login <- param "login" :: ActionM Text
+      signIn login
+
+    post "/signOut" $
+      signOut
+
+    get "/payments" $
+      getPaymentsAction
+
     get "/users" getUsersAction
-    get "/payments" getPaymentsAction
     post "/user/add" $ do
       email <- param "email" :: ActionM Text
       name <- param "name" :: ActionM Text
@@ -30,13 +44,3 @@ main = do
       name <- param "name" :: ActionM Text
       cost <- param "cost" :: ActionM Int
       insertPaymentAction email name cost
-
-    post "/signIn" $ do
-      login <- param "login" :: ActionM Text
-      signIn login
-
-    post "/checkConnection" $
-      checkConnection
-
-    post "/signOut" $
-      signOut
-- 
cgit v1.2.3