From 83975113df46112c1b2d466cd2c9565e728287b6 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sat, 5 Feb 2011 19:57:10 +0200 Subject: [PATCH] Backwards compatibility for Google logins --- Yesod/Helpers/Auth/OpenId.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Yesod/Helpers/Auth/OpenId.hs b/Yesod/Helpers/Auth/OpenId.hs index 6f934d1b..7fd78bce 100644 --- a/Yesod/Helpers/Auth/OpenId.hs +++ b/Yesod/Helpers/Auth/OpenId.hs @@ -26,7 +26,7 @@ authOpenId :: YesodAuth m => AuthPlugin m authOpenId = AuthPlugin "openid" dispatch login where - complete = PluginR "openid" ["complete"] + complete = PluginR "openid" ["complete", ""] name = "openid_identifier" login tm = do ident <- lift newIdent @@ -71,10 +71,10 @@ authOpenId = toMaster <- getRouteToMaster setMessage $ messageNoOpenID y redirect RedirectTemporary $ toMaster LoginR - dispatch "GET" ["complete"] = do + dispatch "GET" ["complete", ""] = do rr <- getRequest completeHelper $ reqGetParams rr - dispatch "POST" ["complete"] = do + dispatch "POST" ["complete", ""] = do (posts, _) <- runRequestBody completeHelper posts dispatch _ _ = notFound