From 3b738e0d4cc65f314da7389d4542ec826ba0f454 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 5 Sep 2015 13:53:36 +0200
Subject: Using UserId instead of UserName to indentify users

---
 src/server/Main.hs | 23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

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

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 8a77598..27908b4 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -10,6 +10,7 @@ import qualified Data.Text.IO as TIO
 import Controller.Index
 import Controller.SignIn
 import Controller.Payment
+import Controller.User
 
 import Model.Database (runMigrations)
 
@@ -39,8 +40,14 @@ main = do
           token <- param "token" :: ActionM Text
           validateSignInAction config token
 
-        get "/userName" $
-          getUserName
+        post "/signOut" $
+          signOutAction
+
+        get "/whoAmI" $
+          whoAmIAction
+
+        get "/users" $ do
+          getUsersAction
 
         get "/payments" $ do
           page <- param "page" :: ActionM Int
@@ -61,15 +68,3 @@ main = do
 
         get "/payments/count" $ do
           getPaymentsCountAction
-
-        post "/signOut" $
-          signOutAction
-
-        get "/users" getUsersAction
-        post "/user/add" $ do
-          email <- param "email" :: ActionM Text
-          name <- param "name" :: ActionM Text
-          addUserAction email name
-        post "/user/delete" $ do
-          email <- param "email" :: ActionM Text
-          deleteUserAction email
-- 
cgit v1.2.3