aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends
diff options
context:
space:
mode:
Diffstat (limited to 'haddock-api/src/Haddock/Backends')
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml/Decl.hs12
1 files changed, 8 insertions, 4 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
index b3e1db81..4862945a 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
@@ -223,10 +223,14 @@ ppTyName :: Name -> Html
ppTyName = ppName Prefix
-ppSimpleSig :: Unicode -> Qualification -> [DocName] -> HsType DocName -> Html
-ppSimpleSig unicode qual names typ =
- ppTypeSig True occNames ppTyp unicode
+ppSimpleSig :: LinksInfo -> Splice -> Unicode -> Qualification
+ -> [DocName] -> HsType DocName
+ -> Html
+ppSimpleSig links splice unicode qual names typ =
+ topDeclElem' names $ ppTypeSig True occNames ppTyp unicode
where
+ -- TODO: Use *helpful* source span.
+ topDeclElem' = topDeclElem links (UnhelpfulSpan undefined) splice
ppTyp = ppType unicode qual typ
occNames = map getOccName names
@@ -550,7 +554,7 @@ ppInstanceSigs links splice unicode qual (InstSpec {..}) (InstHead {..}) = do
TypeSig lnames (L sspan typ) _ <- ispecSigs
let names = map unLoc lnames
let typ' = rename' . sugar $ specializeTyVarBndrs ispecTyVars ihdTypes typ
- return $ ppSimpleSig unicode qual names typ'
+ return $ ppSimpleSig links splice unicode qual names typ'
where
fv = foldr Set.union Set.empty . map freeVariables $ ihdTypes
rename' = rename fv