aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-07-02 19:04:47 +0200
committerŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-07-02 19:04:47 +0200
commitef3b8691ea607bd4f67d5dc77bb226cf57ec4c30 (patch)
tree607df1dac752a5a4d82d080c0f3c5c2b7d51b913 /haddock-api
parentd761512f239b17f8e9824629595d75aa46e55554 (diff)
Make hyperlinker generate anchors only to top-level value bindings.
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
index 98c9770f..1e121c2e 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
@@ -131,7 +131,8 @@ binds =
decls :: GHC.RenamedSource -> DetailsMap
decls (group, _, _, _) = concatMap ($ group)
[ concat . map typ . concat . map GHC.group_tyclds . GHC.hs_tyclds
- , everything (<|>) (fun `combine` con `combine` ins)
+ , everything (<|>) fun . GHC.hs_valds
+ , everything (<|>) (con `combine` ins)
]
where
typ (GHC.L _ t) = case t of