[commit: haddock] master: Make hyperlinker generate anchors only to top-level value bindings. (ef3b869)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haddock

On branch  : master
Link       : http://git.haskell.org/haddock.git/commitdiff/ef3b8691ea607bd4f67d5dc77bb226cf57ec4c30

>---------------------------------------------------------------

commit ef3b8691ea607bd4f67d5dc77bb226cf57ec4c30
Author: Łukasz Hanuszczak <lukasz.hanuszczak at gmail.com>
Date:   Thu Jul 2 19:04:47 2015 +0200

    Make hyperlinker generate anchors only to top-level value bindings.


>---------------------------------------------------------------

ef3b8691ea607bd4f67d5dc77bb226cf57ec4c30
 haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
index 98c9770..1e121c2 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