Use fmap instead

2011-06-14 01:52:07 +04:00 · 2011-06-14 01:52:07 +04:00 · 77a4475f6e
commit 77a4475f6e
parent c41e714cb1
1 changed files with 1 additions and 3 deletions
--- 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'