From 56497ed267807c3a2a4ede63ff17c71782aefa64 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 22 May 2011 06:56:57 +0300
Subject: [PATCH] fmap -> liftM

---
 Yesod/Widget.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Yesod/Widget.hs b/Yesod/Widget.hs
index 7cbfb98c..65ad016b 100644
--- a/Yesod/Widget.hs
+++ b/Yesod/Widget.hs
@@ -246,7 +246,7 @@ rules = do
     let ur f = do
             let env = NP.Env
                     (Just $ helper [|lift getUrlRenderParams|])
-                    (Just $ helper [|fmap (toHtml .) $ lift getMessageRender|])
+                    (Just $ helper [|liftM (toHtml .) $ lift getMessageRender|])
             f env
     return $ NP.HamletRules ah ur $ \_ b -> return b