Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix getMessage

  • Loading branch information...
commit 3581fa957c0ce6397e00d82c5e3cf65149a17040 1 parent 986226d
Michael Snoyman snoyberg authored
Showing with 3 additions and 2 deletions.
  1. +2 −1  Yesod/Handler.hs
  2. +1 −1  yesod.cabal
3  Yesod/Handler.hs
View
@@ -363,8 +363,9 @@ setMessage = setSession msgKey . lbsToChars . renderHtml
-- See 'setMessage'.
getMessage :: GHandler sub master (Maybe Html)
getMessage = do
+ mmsg <- fmap (fmap preEscapedString) $ lookupSession msgKey
deleteSession msgKey
- fmap (fmap preEscapedString) $ lookupSession msgKey
+ return mmsg
-- | Bypass remaining handler code and output the given file.
--
2  yesod.cabal
View
@@ -1,5 +1,5 @@
name: yesod
-version: 0.6.0
+version: 0.6.0.1
license: BSD3
license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com>
Please sign in to comment.
Something went wrong with that request. Please try again.