From e8992cabb3853f5ebe6fe70904449ef655d12c72 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 23 Aug 2011 07:10:03 +0300
Subject: [PATCH] html -> shamlet

---
 yesod-auth/Yesod/Auth/Kerberos.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod-auth/Yesod/Auth/Kerberos.hs b/yesod-auth/Yesod/Auth/Kerberos.hs
index 319ee72d..2e88ba0e 100644
--- a/yesod-auth/Yesod/Auth/Kerberos.hs
+++ b/yesod-auth/Yesod/Auth/Kerberos.hs
@@ -97,7 +97,7 @@ postLoginR config = do
         <*> iopt textField "password"
 
     let errorMessage (message :: Text) = do
-        setMessage [html| Error: #{message} |]
+        setMessage [shamlet|Error: #{message}|]
         toMaster <- getRouteToMaster
         redirect RedirectTemporary $ toMaster LoginR