aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-07-24 10:19:43 +0000
committerDavid Waern <david.waern@gmail.com>2008-07-24 10:19:43 +0000
commite35ab23d65da75ba3470ef8e8acee9fd17736102 (patch)
tree19c11b0bddf271ffa349554248a01698c2b630a7 /src
parent87453c56ae000c05bb89824e5cce614996a7dfe1 (diff)
Print parenthesis around non-atomic banged types
Fixes half of #44
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Backends/Html.hs2
1 files changed, 1 insertions, 1 deletions
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)