haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

html -> shamlet

Browse Source
This commit is contained in:
Michael Snoyman 2011-08-23 07:10:03 +03:00
parent 7e6999ba37
commit e8992cabb3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-auth/Yesod/Auth/Kerberos.hs
View File

@ -97,7 +97,7 @@ postLoginR config = do
<*> iopt textField "password" <*> iopt textField "password"
let errorMessage (message :: Text) = do let errorMessage (message :: Text) = do
setMessage [html| Error: #{message} |] setMessage [shamlet|Error: #{message}|]
toMaster <- getRouteToMaster toMaster <- getRouteToMaster
redirect RedirectTemporary $ toMaster LoginR redirect RedirectTemporary $ toMaster LoginR