Fix getMessage

2010-10-27 18:05:06 +02:00 · 2010-10-27 18:05:06 +02:00 · 3581fa957c
commit 3581fa957c
parent 986226d648
2 changed files with 3 additions and 2 deletions
--- a/Yesod/Handler.hs
+++ b/Yesod/Handler.hs
@ -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.
 --
--- a/yesod.cabal
+++ b/yesod.cabal
@ -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>