diff --git a/Yesod/Helpers/Auth/OpenId.hs b/Yesod/Helpers/Auth/OpenId.hs index 7fd78bce..776fa3bd 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,12 @@ authOpenId = toMaster <- getRouteToMaster setMessage $ messageNoOpenID y redirect RedirectTemporary $ toMaster LoginR - dispatch "GET" ["complete", ""] = do + dispatch "GET" ["complete", ""] = dispatch "GET" ["complete"] -- compatibility issues + dispatch "GET" ["complete"] = do rr <- getRequest completeHelper $ reqGetParams rr - dispatch "POST" ["complete", ""] = do + dispatch "POST" ["complete", ""] = dispatch "POST" ["complete"] -- compatibility issues + dispatch "POST" ["complete"] = do (posts, _) <- runRequestBody completeHelper posts dispatch _ _ = notFound diff --git a/yesod-auth.cabal b/yesod-auth.cabal index 59e06e29..3d31ed84 100644 --- a/yesod-auth.cabal +++ b/yesod-auth.cabal @@ -1,5 +1,5 @@ name: yesod-auth -version: 0.3.0 +version: 0.3.0.1 license: BSD3 license-file: LICENSE author: Michael Snoyman, Patrick Brisbin