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'