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

ToHtml for setMessage

Browse Source
This commit is contained in:
Michael Snoyman 2010-08-11 15:03:08 +03:00
parent 4d0be9f672
commit b11a05d9eb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Handler.hs
View File

@ -332,8 +332,8 @@ msgKey = "_MSG"
-- instead, it will only appear in the next request.
--
-- See 'getMessage'.
setMessage :: Html -> GHandler sub master ()
setMessage = setSession msgKey . L.toString . renderHtml
setMessage :: ToHtml h => h -> GHandler sub master ()
setMessage = setSession msgKey . L.toString . renderHtml . toHtml
-- | Gets the message in the user's session, if available, and then clears the
-- variable.