From 9d57e149fcb124a28813c56f83cf254eb92baa42 Mon Sep 17 00:00:00 2001 From: Joris Date: Fri, 11 Mar 2016 23:21:06 +0100 Subject: Don't use persona anymore, use email token to sign in --- src/server/Main.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/server/Main.hs') diff --git a/src/server/Main.hs b/src/server/Main.hs index e5d8cca..3ce6e64 100644 --- a/src/server/Main.hs +++ b/src/server/Main.hs @@ -41,8 +41,12 @@ main = do -- SignIn post "/signIn" $ do - assertion <- param "assertion" :: ActionM Text - signIn config assertion + email <- param "email" :: ActionM Text + signIn config email + + get "/validateSignIn" $ do + token <- param "token" :: ActionM Text + validateSignIn config token -- Users -- cgit v1.2.3