Authorizing only existing users

1 files changed, 17 insertions, 13 deletions

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