From 89dd4de13896f8e37d1bf133080eb881ab42b292 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 18 Jul 2015 15:19:48 +0200
Subject: Adding login/logout functions thanks to a client session

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

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

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 981c865..69de885 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -30,3 +30,13 @@ main = do
       name <- param "name" :: ActionM Text
       cost <- param "cost" :: ActionM Int
       insertPaymentAction email name cost
+
+    get "/signIn" $ do
+      email <- param "email" :: ActionM Text
+      signIn email
+
+    get "/checkConnection" $
+      checkConnection
+
+    get "/signOut" $
+      signOut
-- 
cgit v1.2.3