diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-06-17 19:10:29 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-06-17 19:10:29 +0100 |
| commit | 8739a6bd59f562bb550c915f1d2b2a327b748572 (patch) | |
| tree | 6ce78264c2b2e1103209c70f3560b816f884937e /src/Haddock/Interface/Create.hs | |
| parent | ab24835eadb99059934d7a14f86564eea6449257 (diff) | |
Fix build
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index 78c73c09..f9d72bd0 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -682,7 +682,7 @@ moduleExports :: Module -- ^ Module A -> IfaceMap -- ^ Already created interfaces -> InstIfaceMap -- ^ Interfaces in other packages -> ErrMsgGhc [ExportItem Name] -- ^ Resulting export items -moduleExports thisMod expMod dflags gre exports decls ifaceMap instIfaceMap +moduleExports thisMod expMod dflags gre _exports decls ifaceMap instIfaceMap | m == thisMod = liftErrMsg $ fullContentsOfThisModule dflags gre decls | otherwise = case Map.lookup m ifaceMap of |