aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock.hs
diff options
context:
space:
mode:
authorSimon Hengel <sol@typeful.net>2012-10-13 14:40:33 +0200
committerSimon Hengel <sol@typeful.net>2012-10-13 14:40:33 +0200
commitc542021275f740d716d57c4c9b6135b39a4ccc38 (patch)
treeab6e20beb62592d4fe8aea2bb555e42fb19a4a45 /src/Haddock.hs
parent4c3ac64baa1117f127b1f3d620dec7276495cdb4 (diff)
Remove unused MonadFix constraint
Diffstat (limited to 'src/Haddock.hs')
-rw-r--r--src/Haddock.hs11
1 files changed, 4 insertions, 7 deletions
diff --git a/src/Haddock.hs b/src/Haddock.hs
index f53e01a9..3ac2115d 100644
--- a/src/Haddock.hs
+++ b/src/Haddock.hs
@@ -60,9 +60,6 @@ import StaticFlags (saveStaticFlagGlobals, restoreStaticFlagGlobals)
import Panic (panic, handleGhcException)
import Module
-import Control.Monad.Fix (MonadFix)
-
-
--------------------------------------------------------------------------------
-- * Exception handling
--------------------------------------------------------------------------------
@@ -267,10 +264,10 @@ render dflags flags qual ifaces installedIfaces srcMap = do
-------------------------------------------------------------------------------
-readInterfaceFiles :: (MonadFix m, MonadIO m) =>
- NameCacheAccessor m
- -> [(DocPaths, FilePath)] ->
- m [(DocPaths, InterfaceFile)]
+readInterfaceFiles :: MonadIO m
+ => NameCacheAccessor m
+ -> [(DocPaths, FilePath)]
+ -> m [(DocPaths, InterfaceFile)]
readInterfaceFiles name_cache_accessor pairs = do
mbPackages <- mapM tryReadIface pairs
return (catMaybes mbPackages)