diff options
| author | David Waern <david.waern@gmail.com> | 2007-11-11 03:40:33 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2007-11-11 03:40:33 +0000 |
| commit | 5847a3617e35f902a04e6219fc8439635a1f0911 (patch) | |
| tree | e3c366ae789e74f60e7f86b5241558ec74eca45c | |
| parent | ddfbe8d06e60e3692919c29f5244c7d580a6fe44 (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.
| -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 |