From 563918097f98e6eb6f6c57d3be3a0954d2655ee0 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sun, 11 Nov 2007 00:29:27 +0000 Subject: Remove lDocLinkName and its use in Html backend --- src/Haddock/Backends/Html.hs | 6 +----- 1 file changed, 1 insertion(+), 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) -- cgit v1.2.3