From 2285031a517df314f53f73813b6b4e0f9010063d Mon Sep 17 00:00:00 2001
From: David Waern <davve@dtek.chalmers.se>
Date: Sat, 29 Sep 2007 15:01:08 +0000
Subject: FIX: do not quote varsym type operators

---
 src/Haddock/Backends/Html.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Haddock/Backends/Html.hs')

diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 734f408e..b98032df 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -1243,7 +1243,7 @@ ppr_mono_ty ctxt_prec (HsOpTy ty1 op ty2)
   = maybeParen ctxt_prec pREC_OP $
     ppr_mono_lty pREC_OP ty1 <+> ppr_op <+> ppr_mono_lty pREC_OP ty2
   where
-    ppr_op = if not (isNameConSym name) then quote (ppLDocName op) else ppLDocName op
+    ppr_op = if not (isNameSym name) then quote (ppLDocName op) else ppLDocName op
     name = lDocLinkName op
 
 ppr_mono_ty ctxt_prec (HsParTy ty)
-- 
cgit v1.2.3