From a6727f104f808e533052f2bd83bc89cd6bfa0522 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 19 Jul 2015 00:45:42 +0200
Subject: Adding UI to sign in and sign out

---
 src/server/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/server/Main.hs b/src/server/Main.hs
index f73f2e0..8d5a625 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -31,12 +31,12 @@ main = do
       cost <- param "cost" :: ActionM Int
       insertPaymentAction email name cost
 
-    get "/signIn" $ do
+    post "/signIn" $ do
       login <- param "login" :: ActionM Text
       signIn login
 
-    get "/checkConnection" $
+    post "/checkConnection" $
       checkConnection
 
-    get "/signOut" $
+    post "/signOut" $
       signOut
-- 
cgit v1.2.3