diff options
| author | alexbiehl <alex.biehl@gmail.com> | 2018-04-20 07:31:44 +0200 |
|---|---|---|
| committer | alexbiehl <alex.biehl@gmail.com> | 2018-04-20 07:31:44 +0200 |
| commit | 7fb3dc8ed5b04dce61c83ec482683c646bf788a5 (patch) | |
| tree | 2a0e02ef8bf7448186e693481fe95bd18f2df197 /haddock-api/src | |
| parent | 256b908e0e2bf65812258c21b74d280f9a021cd4 (diff) | |
Don't treat fixity signatures like declarations
Diffstat (limited to 'haddock-api/src')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs | 2 |
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 |