diff options
| author | David Waern <david.waern@gmail.com> | 2008-07-24 10:50:44 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-07-24 10:50:44 +0000 |
| commit | 0debe1ef5929401a52df3c37ffd09a57bd1c8b8a (patch) | |
| tree | 4ba221b95bca969d88b98ada41b7ff9965894472 /src/Haddock | |
| parent | 637a71b9c84c227c92eb0c9aa07e4abbe354920c (diff) | |
FIX #44: Propagate parenthesis level when printing documented types
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 50db3cc3..df03acae 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1418,7 +1418,7 @@ ppr_mono_ty ctxt_prec (HsParTy ty) = parens (ppr_mono_lty pREC_TOP ty) ppr_mono_ty ctxt_prec (HsDocTy ty doc) - = ppLType ty + = ppr_mono_lty ctxt_prec ty ppr_fun_ty ctxt_prec ty1 ty2 = let p1 = ppr_mono_lty pREC_FUN ty1 |