aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends
diff options
context:
space:
mode:
authorŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-06-12 01:36:49 +0200
committerŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-06-30 22:37:49 +0200
commitc6786894f71809ecfa377a44beab0771a3bc7985 (patch)
treeb5c50db822f3a164c998d28e9c9821c4db626621 /haddock-api/src/Haddock/Backends
parent162b02ed6f50709ea203bf7706eee5804e455419 (diff)
Add support for top-level function declaration anchors.
Diffstat (limited to 'haddock-api/src/Haddock/Backends')
-rw-r--r--haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
index 39bbacf5..cb9508ef 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
@@ -40,9 +40,9 @@ enrich src =
detailsMap = concatMap ($ src)
[ variables
, types
+ , decls
, binds
, imports
- , decls
]
type DetailsMap = [(GHC.SrcSpan, TokenDetails)]
@@ -96,11 +96,16 @@ binds =
decls :: GHC.RenamedSource -> DetailsMap
decls (group, _, _, _) = concatMap ($ group)
[ map typ . concat . map GHC.group_tyclds . GHC.hs_tyclds
+ , everything (<|>) fun
]
where
typ (GHC.L _ t) =
let (GHC.L sspan name) = GHC.tcdLName t
in (sspan, TokenDetails RtkDecl name)
+ fun term = case cast term of
+ (Just (GHC.FunBind (GHC.L sspan name) _ _ _ _ _ :: GHC.HsBind GHC.Name))
+ | GHC.isExternalName name -> pure (sspan, TokenDetails RtkDecl name)
+ _ -> empty
imports :: GHC.RenamedSource -> DetailsMap
imports =