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

Use fmap instead

Browse Source
This commit is contained in:
Alexey Khudyakov 2011-06-14 01:52:07 +04:00
parent c41e714cb1
commit 77a4475f6e
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Handler.hs
View File

@ -222,9 +222,7 @@ class SubsiteGetter g m s | g -> s where
instance (master ~ master' instance (master ~ master'
) => SubsiteGetter (master -> sub) (GHandler anySub master') sub where ) => SubsiteGetter (master -> sub) (GHandler anySub master') sub where
runSubsiteGetter getter = do runSubsiteGetter getter = getter <$> getYesod
y <- getYesod
return $ getter y
instance (anySub ~ anySub' instance (anySub ~ anySub'
,master ~ master' ,master ~ master'