From 563918097f98e6eb6f6c57d3be3a0954d2655ee0 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
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(-)

(limited to 'src')

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