From 3f683df722c3c2b7aba70d15daf95593fd6be96d Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 29 Sep 2007 14:15:37 +0000 Subject: Use isLexConSym/isLexVarSym from OccName --- src/Haddock/Backends/Html.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Haddock/Backends') diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index e0bf0d20..734f408e 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1125,10 +1125,10 @@ ppDataHead :: Bool -> Name -> [Name] -> Html ppDataHead summary name tyvars -- (a :+: b) c d - | isNameSymOcc name && length tyvars > 2 = parens first2 <+> rest + | isNameConSym name && length tyvars > 2 = parens first2 <+> rest -- a :+: b - | isNameSymOcc name = first2 + | isNameConSym name = first2 -- Would like a case for: -- a `O` b @@ -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 (isNameSymOcc name) then quote (ppLDocName op) else ppLDocName op + ppr_op = if not (isNameConSym name) then quote (ppLDocName op) else ppLDocName op name = lDocLinkName op ppr_mono_ty ctxt_prec (HsParTy ty) @@ -1288,7 +1288,7 @@ ppBinder False nm = linkTarget nm +++ bold << ppBinder' nm ppBinder' :: Name -> Html ppBinder' name - | isVarSym name = parens $ toHtml (getOccString name) + | isNameVarSym name = parens $ toHtml (getOccString name) | otherwise = toHtml (getOccString name) linkId :: Module -> Maybe Name -> Html -> Html -- cgit v1.2.3