projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
cc7a860
)
[project @ 2001-01-25 17:41:33 by simonpj]
author
simonpj
<unknown>
Thu, 25 Jan 2001 17:41:33 +0000
(17:41 +0000)
committer
simonpj
<unknown>
Thu, 25 Jan 2001 17:41:33 +0000
(17:41 +0000)
Improve printing
ghc/compiler/hsSyn/HsTypes.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/hsSyn/HsTypes.lhs
b/ghc/compiler/hsSyn/HsTypes.lhs
index
786cc50
..
354180d
100644
(file)
--- a/
ghc/compiler/hsSyn/HsTypes.lhs
+++ b/
ghc/compiler/hsSyn/HsTypes.lhs
@@
-238,8
+238,7
@@
ppr_mono_ty ctxt_prec (HsAppTy fun_ty arg_ty)
(hsep [ppr_mono_ty pREC_FUN fun_ty, ppr_mono_ty pREC_CON arg_ty])
ppr_mono_ty ctxt_prec (HsPredTy pred)
- = maybeParen (ctxt_prec >= pREC_FUN) $
- braces (ppr pred)
+ = braces (ppr pred)
ppr_mono_ty ctxt_prec (HsUsageTy u ty)
= maybeParen (ctxt_prec >= pREC_CON)