From e35ab23d65da75ba3470ef8e8acee9fd17736102 Mon Sep 17 00:00:00 2001 From: David Waern Date: Thu, 24 Jul 2008 10:19:43 +0000 Subject: Print parenthesis around non-atomic banged types Fixes half of #44 --- src/Haddock/Backends/Html.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Haddock/Backends') diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 81cae215..3e0432ff 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1391,7 +1391,7 @@ ppr_mono_ty ctxt_prec (HsForAllTy exp tvs ctxt ty) hsep [ppForAll exp tvs ctxt, ppr_mono_lty pREC_TOP ty] -- gaw 2004 -ppr_mono_ty ctxt_prec (HsBangTy b ty) = ppBang b +++ ppLType ty +ppr_mono_ty ctxt_prec (HsBangTy b ty) = ppBang b +++ ppLParendType ty ppr_mono_ty ctxt_prec (HsTyVar name) = ppDocName name ppr_mono_ty ctxt_prec (HsFunTy ty1 ty2) = ppr_fun_ty ctxt_prec ty1 ty2 ppr_mono_ty ctxt_prec (HsTupleTy con tys) = tupleParens con (map ppLType tys) -- cgit v1.2.3