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

fmap -> liftM

Browse Source
This commit is contained in:
Michael Snoyman 2011-05-22 06:56:57 +03:00
parent 64c2a2ebc1
commit 56497ed267
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Widget.hs
View File

@ -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