forgot one QQ

2011-09-02 18:41:22 +03:00 · 2011-09-02 18:41:22 +03:00 · 850c4037df
commit 850c4037df
parent ebf95cfeb9
1 changed files with 1 additions and 1 deletions
--- 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