From 655ab103fd8e05a565445cda732254ef5effa6f9 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 19 Jul 2011 15:29:44 +0300
Subject: [PATCH] openid sample works with newest Yesod

---
 openid2.hs | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/openid2.hs b/openid2.hs
index 4f160b80..70f96e00 100644
--- a/openid2.hs
+++ b/openid2.hs
@@ -1,6 +1,6 @@
-{-# LANGUAGE TypeFamilies, QuasiQuotes #-}
+{-# LANGUAGE TypeFamilies, QuasiQuotes, TemplateHaskell, MultiParamTypeClasses, OverloadedStrings #-}
 import Yesod
-import Web.Authenticate.OpenId2
+import Web.Authenticate.OpenId
 import Data.Object
 import Data.Maybe (fromMaybe)
 import Network.HTTP.Enumerator
@@ -14,23 +14,23 @@ mkYesod "OID" [$parseRoutes|
 
 instance Yesod OID where approot _ = "http://localhost:3000"
 
-getRootR = defaultLayout [$hamlet|
-%form!action=@ForwardR@
-    OpenId: 
-    %input!type=text!name=openid_identifier!value="http://"
-    %input!type=submit
+getRootR = defaultLayout [$hamlet|\
+<form action="@{ForwardR}">
+    \OpenId: 
+    <input type="text" name="openid_identifier" value="http://">
+    <input type="submit">
 |]
 
 getForwardR = do
     openid <- runFormGet' $ stringInput "openid_identifier"
     render <- getUrlRender
-    url <- liftIO $ getForwardUrl openid $ render CompleteR
+    url <- liftIO $ getForwardUrl openid (render CompleteR) Nothing []
     redirectString RedirectTemporary url
     return ()
 
 getCompleteR = do
     params <- reqGetParams `fmap` getRequest
     ident <- liftIO $ authenticate params
-    return $ RepPlain $ toContent ident
+    return $ RepPlain $ toContent $ show ident
 
-main = withHttpEnumerator $ basicHandler 3000 OID
+main = warpDebug 3000 OID