From ad3e6e766ef3716552dbe9b715f15c59d7003d5b Mon Sep 17 00:00:00 2001
From: Marcin Szamotulski <coot@coot.me>
Date: Wed, 25 May 2022 20:28:47 +0200
Subject: 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.
---
 haddock-api/src/Haddock.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'haddock-api')

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
-- 
cgit v1.2.3