diff options
| author | David Waern <david.waern@gmail.com> | 2011-05-22 21:39:03 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-05-22 21:39:03 +0000 |
| commit | 4166ec949664f5d735590c3083c3acdd7f74251a (patch) | |
| tree | 26dff01524b65e484cbcd9c53ab122e1f5dffeca | |
| parent | bc585fadfe146c3e0521266c83c12f8c54151a34 (diff) | |
Fix a bug
| -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 |