diff options
| author | Simon Hengel <sol@typeful.net> | 2012-10-13 14:40:33 +0200 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2012-10-13 14:40:33 +0200 |
| commit | c542021275f740d716d57c4c9b6135b39a4ccc38 (patch) | |
| tree | ab6e20beb62592d4fe8aea2bb555e42fb19a4a45 /src/Haddock.hs | |
| parent | 4c3ac64baa1117f127b1f3d620dec7276495cdb4 (diff) | |
Remove unused MonadFix constraint
Diffstat (limited to 'src/Haddock.hs')
| -rw-r--r-- | src/Haddock.hs | 11 |
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) |