From e2e2edf2703c09ae9777306da0377c5e4a826bbc Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@fpcomplete.com>
Date: Tue, 13 Oct 2015 07:41:49 +0000
Subject: [PATCH] Fix openid.hs

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

diff --git a/yesod-auth/openid.hs b/yesod-auth/openid.hs
index c614ccf8..dde5d800 100644
--- a/yesod-auth/openid.hs
+++ b/yesod-auth/openid.hs
@@ -27,7 +27,7 @@ getRootR = getAfterLoginR
 getAfterLoginR :: Handler RepHtml
 getAfterLoginR = do
     mauth <- maybeAuthId
-    defaultLayout $ addHamlet [hamlet|
+    defaultLayout [whamlet|
 <p>Auth: #{show mauth}
 $maybe _ <- mauth
     <p>
@@ -45,14 +45,15 @@ instance YesodAuth BID where
     loginDest _ = AfterLoginR
     logoutDest _ = AuthR LoginR
     getAuthId = return . Just . credsIdentClaimed
-    authPlugins _ = [authOpenId]
+    authPlugins _ = [authOpenId Claimed []]
     authHttpManager = httpManager
+    maybeAuthId = lookupSession credsKey
 
 instance RenderMessage BID FormMessage where
     renderMessage _ _ = defaultFormMessage
 
 main :: IO ()
 main = do
-    m <- newManager def
+    m <- newManager tlsManagerSettings
     toWaiApp (BID m) >>= run 3000