From 0b6930fc23b1ee69b26b8e4ea0f75fab7f795888 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 7 Feb 2012 11:13:37 +0200
Subject: [PATCH] Fix openid test

---
 yesod-auth/openid.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/yesod-auth/openid.hs b/yesod-auth/openid.hs
index 74105021..ebf1863d 100644
--- a/yesod-auth/openid.hs
+++ b/yesod-auth/openid.hs
@@ -11,8 +11,9 @@ import Text.Hamlet (hamlet)
 import Control.Monad.IO.Class (liftIO)
 import Yesod.Form
 import Network.Wai.Handler.Warp (run)
+import Network.HTTP.Conduit
 
-data BID = BID
+data BID = BID { httpManager :: Manager }
 
 mkYesod "BID" [parseRoutes|
 / RootR GET
@@ -44,11 +45,14 @@ instance YesodAuth BID where
     loginDest _ = AfterLoginR
     logoutDest _ = AuthR LoginR
     getAuthId = return . Just . credsIdent
-    authPlugins = [authOpenId]
+    authPlugins _ = [authOpenId]
+    authHttpManager = httpManager
 
 instance RenderMessage BID FormMessage where
     renderMessage _ _ = defaultFormMessage
 
 main :: IO ()
-main = toWaiApp BID >>= run 3000
+main = do
+    m <- newManager def
+    toWaiApp (BID m) >>= run 3000