html -> shamlet

2011-08-23 07:10:03 +03:00 · 2011-08-23 07:10:03 +03:00 · e8992cabb3
commit e8992cabb3
parent 7e6999ba37
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 [html| Error: #{message} |]
+        setMessage [shamlet|Error: #{message}|]
        toMaster <- getRouteToMaster
        redirect RedirectTemporary $ toMaster LoginR