From b11a05d9eb41c33df6fc6fdad73f53be5a447d34 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 11 Aug 2010 15:03:08 +0300
Subject: [PATCH] ToHtml for setMessage

---
 Yesod/Handler.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Yesod/Handler.hs b/Yesod/Handler.hs
index a4796f76..f77e97e5 100644
--- a/Yesod/Handler.hs
+++ b/Yesod/Handler.hs
@@ -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.