From 850c4037df8476f5c6d6587d9b9f05f2e1cbbea5 Mon Sep 17 00:00:00 2001
From: Luite Stegeman <stegeman@gmail.com>
Date: Fri, 2 Sep 2011 18:41:22 +0300
Subject: [PATCH] forgot one QQ

---
 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 ba666fd9..57f95033 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 [shamlet|Error: #{message}|]
+        setMessage [QQ(shamlet)|Error: #{message}|]
         toMaster <- getRouteToMaster
         redirect RedirectTemporary $ toMaster LoginR