From 38fb60ffa10ddadfb11e378a72004516291146a4 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 13 Jan 2011 22:55:21 +0200
Subject: [PATCH] yesod-core changes

---
 Yesod/Helpers/Auth/OpenId.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Yesod/Helpers/Auth/OpenId.hs b/Yesod/Helpers/Auth/OpenId.hs
index 0ae1668a..8dc28914 100644
--- a/Yesod/Helpers/Auth/OpenId.hs
+++ b/Yesod/Helpers/Auth/OpenId.hs
@@ -16,7 +16,7 @@ import Yesod.Request
 import Text.Hamlet (hamlet)
 import Text.Cassius (cassius)
 import Text.Blaze (string)
-import Control.Monad.IO.Class (liftIO)
+import Control.Monad.Trans.Class (lift)
 
 forwardUrl :: AuthRoute
 forwardUrl = PluginR "openid" ["forward"]
@@ -74,7 +74,7 @@ authOpenId =
         completeHelper $ reqGetParams rr
     dispatch "POST" ["complete"] = do
         rr <- getRequest
-        (posts, _) <- liftIO $ reqRequestBody rr
+        (posts, _) <- lift $ reqRequestBody rr
         completeHelper posts
     dispatch _ _ = notFound