diff options
| author | David Waern <david.waern@gmail.com> | 2008-07-24 10:19:43 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-07-24 10:19:43 +0000 |
| commit | e35ab23d65da75ba3470ef8e8acee9fd17736102 (patch) | |
| tree | 19c11b0bddf271ffa349554248a01698c2b630a7 /src/Haddock | |
| parent | 87453c56ae000c05bb89824e5cce614996a7dfe1 (diff) | |
Print parenthesis around non-atomic banged types
Fixes half of #44
Diffstat (limited to 'src/Haddock')
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 2 |
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) |