aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2011-05-22 21:39:03 +0000
committerDavid Waern <david.waern@gmail.com>2011-05-22 21:39:03 +0000
commit4166ec949664f5d735590c3083c3acdd7f74251a (patch)
tree26dff01524b65e484cbcd9c53ab122e1f5dffeca /src
parentbc585fadfe146c3e0521266c83c12f8c54151a34 (diff)
Fix a bug
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Interface/Create.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 4ff855b3..9f6e4fa4 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -72,7 +72,7 @@ createInterface tm flags modMap instIfaceMap = do
exports0 = fmap (reverse . map unLoc) optExports
exports
| OptIgnoreExports `elem` opts = Nothing
- | otherwise = exports
+ | otherwise = exports0
liftErrMsg $ warnAboutFilteredDecls mdl decls0
@@ -453,8 +453,8 @@ mkExportItems
mkExportItems modMap this_mod gre exported_names decls declMap
optExports _ instIfaceMap dflags =
case optExports of
- Just exports -> everything_local_exported
- Nothing -> liftM concat $ mapM lookupExport exports
+ Nothing -> everything_local_exported
+ Just exports -> liftM concat $ mapM lookupExport exports
where