From 4166ec949664f5d735590c3083c3acdd7f74251a Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 22 May 2011 21:39:03 +0000
Subject: Fix a bug
---
src/Haddock/Interface/Create.hs | 6 +++---
1 file 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
--
cgit v1.2.3