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