diff options
| author | Marcin Szamotulski <coot@coot.me> | 2022-05-25 20:28:47 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-05-25 20:28:47 +0200 |
| commit | ad3e6e766ef3716552dbe9b715f15c59d7003d5b (patch) | |
| tree | d21333bc08144913f2e6737973491f38cd2bb108 /haddock-api/src | |
| parent | 4367a8ef514fe0781cbea745a0b72871080d28fc (diff) | |
Use visibility to decide which interfaces are included in quickjump (#1490)
This is also consistent with how html index is build. See
haskell/cabal#7669 for rationale behind this decision.
Diffstat (limited to 'haddock-api/src')
| -rw-r--r-- | haddock-api/src/Haddock.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs index 927c09a3..90aae0f6 100644 --- a/haddock-api/src/Haddock.hs +++ b/haddock-api/src/Haddock.hs @@ -420,7 +420,10 @@ render logger dflags unit_state flags sinceQual qual ifaces installedIfaces extS ppJsonIndex odir sourceUrls' opt_wiki_urls unicode Nothing qual ifaces - (nub $ map (\(_,a,_) -> a) installedIfaces) + ( nub + . map (\(_,a,_) -> a) + . filter (\(v,_,_) -> v == Visible) + $ installedIfaces) when (Flag_Html `elem` flags) $ do withTiming logger dflags' "ppHtml" (const ()) $ do |