openid complete supports POST

Yesod/Helpers/Auth2/OpenId.hs

@@ -50,17 +50,18 @@ authOpenId =
                 toMaster <- getRouteToMaster
                 setMessage $ string "No OpenID identifier found"
                 redirect RedirectTemporary $ toMaster LoginR
-    dispatch "GET" ["complete"] = completeHelper OpenId.authenticate
+    dispatch "GET" ["complete"] = do
+        rr <- getRequest
+        completeHelper $ reqGetParams rr
+    dispatch "POST" ["complete"] = do
+        rr <- getRequest
+        (posts, _) <- liftIO $ reqRequestBody rr
+        completeHelper posts
     dispatch _ _ = notFound
 
-completeHelper
+completeHelper :: YesodAuth m => [(String, String)] -> GHandler Auth m ()
-    :: YesodAuth m
+completeHelper gets' = do
-    => ([(String, String)] -> AttemptT (GHandler Auth m) OpenId.Identifier)
+        res <- runAttemptT $ OpenId.authenticate gets'
-    -> GHandler Auth m ()
-completeHelper auth = do
-        rr <- getRequest
-        let gets' = reqGetParams rr
-        res <- runAttemptT $ auth gets'
         toMaster <- getRouteToMaster
         let onFailure err = do
             setMessage $ string $ show err

yesod-auth.cabal

@@ -1,5 +1,5 @@
 name:            yesod-auth
-version:         0.1.3
+version:         0.1.4
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>