aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Html.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
-rw-r--r--src/Haddock/Backends/Html.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 8c6a82db..f00a8f04 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -775,13 +775,13 @@ ppLPred = ppPred . unLoc
ppPred (HsClassP n ts)
- | classOp, length ts > 2 = firstApp <+> ppLTypes rest
+ | classOp, length ts > 2 = firstApp <+> ppLParendTypes rest
| classOp = firstApp
- | otherwise = ppDocName n <+> ppLTypes ts
+ | otherwise = ppDocName n <+> ppLParendTypes ts
where
- classOp = isNameConSym . getName $ n
+ classOp = isNameConSym . getName $ n
t1:t2:rest = ts
- firstApp = ppLType t1 <+> ppDocName n <+> ppLType t2
+ firstApp = ppLParendType t1 <+> ppDocName n <+> ppLParendType t2
-- TODO: find out what happened to the Dupable/Linear distinction
@@ -1237,6 +1237,7 @@ ppLParendType = ppParendType . unLoc
ppType ty = ppr_mono_ty pREC_TOP (prepare ty)
ppParendType ty = ppr_mono_ty pREC_CON ty
+
-- Before printing a type
-- (a) Remove outermost HsParTy parens
-- (b) Drop top-level for-all type variables in user style