diff options
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 6 |
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 |