From b27a7914993f5a5a87160dc33431a6fa1f4ad323 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 18 Jul 2015 17:36:35 +0200
Subject: Securing the index page with the login session

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

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

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