yesod-auth 0.3.0 → 0.3.0.1

raw patch · 2 files changed

+6/−4 lines, 2 files

Files

• Yesod/Helpers/Auth/OpenId.hs +5/−3
• yesod-auth.cabal +1/−1

@@ -26,7 +26,7 @@ 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 @@                 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

@@ -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