diff options
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index 24db83b9..77362c6d 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -48,7 +48,10 @@ createInterface ghcMod flags modMap = do let mod = ghcModule ghcMod - opts <- mkDocOpts (ghcMbDocOpts ghcMod) flags mod + opts0 <- mkDocOpts (ghcMbDocOpts ghcMod) flags mod + let opts + | Flag_IgnoreAllExports `elem` flags = OptIgnoreExports : opts0 + | otherwise = opts let group = ghcGroup ghcMod entities = (nubBy sameName . getTopEntities) group |