aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Backends/Html.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index a3c8470f..ab8fdce0 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -875,10 +875,6 @@ orig (L _ (NoLink name)) = name
orig _ = error "orig"
-lDocLinkName (L _ (NoLink name)) = name
-lDocLinkName (L _ (Link name)) = name
-
-
-- TODO: print contexts
ppShortDataDecl :: Bool -> LinksInfo -> SrcSpan ->
Maybe (HsDoc DocName) -> TyClDecl DocName -> Html
@@ -1254,7 +1250,7 @@ ppr_mono_ty ctxt_prec (HsOpTy ty1 op ty2)
ppr_mono_lty pREC_OP ty1 <+> ppr_op <+> ppr_mono_lty pREC_OP ty2
where
ppr_op = if not (isNameSym name) then quote (ppLDocName op) else ppLDocName op
- name = lDocLinkName op
+ name = getName . unLoc $ op
ppr_mono_ty ctxt_prec (HsParTy ty)
= parens (ppr_mono_lty pREC_TOP ty)