aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2007-11-11 03:40:33 +0000
committerDavid Waern <david.waern@gmail.com>2007-11-11 03:40:33 +0000
commit5847a3617e35f902a04e6219fc8439635a1f0911 (patch)
treee3c366ae789e74f60e7f86b5241558ec74eca45c /src/Haddock
parentddfbe8d06e60e3692919c29f5244c7d580a6fe44 (diff)
Manual merge of an old patch:
Thu Apr 19 20:23:40 CEST 2007 Wolfgang Jeltsch <g9ks157k@acme.softbase.org> * bug fix When Haddock was invoked with the --ignore-all-exports flag but the ignore-exports module attribute wasn't used, hyperlinks weren't created for non-exported names. This fix might not be as clean as one would wish (since --ignore-all-exports now results in ignore_all_exports = True *and* an additional OptIgnoreExports option for every module) but at least the bug seems to be resolved now.
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Interface/Create.hs5
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