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

Fix getMessage

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-27 18:05:06 +02:00
parent 986226d648
commit 3581fa957c
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Yesod/Handler.hs
View File

@ -363,8 +363,9 @@ setMessage = setSession msgKey . lbsToChars . renderHtml
-- See 'setMessage'. -- See 'setMessage'.
getMessage :: GHandler sub master (Maybe Html) getMessage :: GHandler sub master (Maybe Html)
getMessage = do getMessage = do
mmsg <- fmap (fmap preEscapedString) $ lookupSession msgKey
deleteSession msgKey deleteSession msgKey
fmap (fmap preEscapedString) $ lookupSession msgKey return mmsg
-- | Bypass remaining handler code and output the given file. -- | Bypass remaining handler code and output the given file.
-- --

2
yesod.cabal
View File

@ -1,5 +1,5 @@
name: yesod name: yesod
version: 0.6.0 version: 0.6.0.1
license: BSD3 license: BSD3
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>