aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends
diff options
context:
space:
mode:
authoralexbiehl <alex.biehl@gmail.com>2018-04-20 07:31:44 +0200
committeralexbiehl <alex.biehl@gmail.com>2018-04-20 07:31:44 +0200
commit7fb3dc8ed5b04dce61c83ec482683c646bf788a5 (patch)
tree2a0e02ef8bf7448186e693481fe95bd18f2df197 /haddock-api/src/Haddock/Backends
parent256b908e0e2bf65812258c21b74d280f9a021cd4 (diff)
Don't treat fixity signatures like declarations
Diffstat (limited to 'haddock-api/src/Haddock/Backends')
-rw-r--r--haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
index 3c96db98..c4a9091f 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
@@ -180,7 +180,7 @@ decls (group, _, _, _) = concatMap ($ group)
Nothing -> empty
fix term = case cast term of
Just ((GHC.FixitySig names _) :: GHC.FixitySig GHC.GhcRn)
- -> map decl names
+ -> map (\(GHC.L sspan x) -> (sspan, RtkVar x)) names
Nothing -> empty
tyfam (GHC.L _ (GHC.FamilyDecl{..})) = [decl fdLName]
sig (GHC.L _ (GHC.TypeSig names _)) = map decl names