Make specialized methods be nicely formatted again.

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