Skip to content
Snippets Groups Projects
Unverified Commit ad3e6e76 authored by Marcin Szamotulski's avatar Marcin Szamotulski Committed by GitHub
Browse files

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.
parent 4367a8ef
No related branches found
No related tags found
No related merge requests found
...@@ -420,7 +420,10 @@ render logger dflags unit_state flags sinceQual qual ifaces installedIfaces extS ...@@ -420,7 +420,10 @@ render logger dflags unit_state flags sinceQual qual ifaces installedIfaces extS
ppJsonIndex odir sourceUrls' opt_wiki_urls ppJsonIndex odir sourceUrls' opt_wiki_urls
unicode Nothing qual unicode Nothing qual
ifaces ifaces
(nub $ map (\(_,a,_) -> a) installedIfaces) ( nub
. map (\(_,a,_) -> a)
. filter (\(v,_,_) -> v == Visible)
$ installedIfaces)
when (Flag_Html `elem` flags) $ do when (Flag_Html `elem` flags) $ do
withTiming logger dflags' "ppHtml" (const ()) $ do withTiming logger dflags' "ppHtml" (const ()) $ do
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment