From 5cedddb364224f80a925bc9db262a6bd7468cb88 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 4 Mar 2011 11:00:01 +0200
Subject: [PATCH] Fix OpenID 404 (thanks Blake)

---
 Yesod/Helpers/Auth/OpenId.hs | 8 +++++---
 yesod-auth.cabal             | 2 +-
 2 files changed, 6 insertions(+), 4 deletions(-)

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