From a11ad41b52ed3682d33382f2a378bf3294d688b2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 23 Mar 2016 00:45:33 +0100
Subject: Sign in token link to /

---
 src/server/Main.hs | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

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

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 998b394..5688324 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -35,7 +35,17 @@ main = do
         middleware $
           staticPolicy (noDots >-> addBase "public")
 
-        get  "/"             (getIndex conf)
+        get  "/" $
+          ( do
+              signInToken <- param "signInToken" :: ActionM Text
+              successOrError <- validateSignIn conf signInToken
+              case successOrError of
+                Left errorKey ->
+                  (getIndex conf (Just errorKey))
+                Right _ ->
+                  (getIndex conf Nothing)
+          ) `rescue` (\_ -> getIndex conf Nothing)
+
         post "/signOut"      signOut
 
         -- SignIn
@@ -44,10 +54,6 @@ main = do
           email <- param "email" :: ActionM Text
           signIn conf email
 
-        get "/validateSignIn" $ do
-          token <- param "token" :: ActionM Text
-          validateSignIn conf token
-
         -- Users
 
         get  "/users"  getUsers
-- 
cgit v1.2.3