From 77a4475f6ee7c44bbe8936a8cc97524138fe88d3 Mon Sep 17 00:00:00 2001 From: Alexey Khudyakov Date: Tue, 14 Jun 2011 01:52:07 +0400 Subject: [PATCH] Use fmap instead --- Yesod/Handler.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Yesod/Handler.hs b/Yesod/Handler.hs index 9d3aa160..bfc3a4fa 100644 --- a/Yesod/Handler.hs +++ b/Yesod/Handler.hs @@ -222,9 +222,7 @@ class SubsiteGetter g m s | g -> s where instance (master ~ master' ) => SubsiteGetter (master -> sub) (GHandler anySub master') sub where - runSubsiteGetter getter = do - y <- getYesod - return $ getter y + runSubsiteGetter getter = getter <$> getYesod instance (anySub ~ anySub' ,master ~ master'