diff options
| author | partain <unknown> | 1996-04-09 10:28:48 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-04-09 10:28:48 +0000 |
| commit | b4255f2c320f852d7dfb0afc0bc9f64765aece0c (patch) | |
| tree | 6a7a9f23229fe841f97d52e1faae4a26337d94ac /ghc/compiler/hsSyn/HsExpr.lhs | |
| parent | 7b0181919416d8f04324575b7e17031ca692f5b0 (diff) | |
| download | haskell-b4255f2c320f852d7dfb0afc0bc9f64765aece0c.tar.gz | |
[project @ 1996-04-09 10:27:46 by partain]
Sansom 1.3 changes through 960408
Diffstat (limited to 'ghc/compiler/hsSyn/HsExpr.lhs')
| -rw-r--r-- | ghc/compiler/hsSyn/HsExpr.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/hsSyn/HsExpr.lhs b/ghc/compiler/hsSyn/HsExpr.lhs index 0a0397ec27..5b74a4d412 100644 --- a/ghc/compiler/hsSyn/HsExpr.lhs +++ b/ghc/compiler/hsSyn/HsExpr.lhs @@ -227,7 +227,7 @@ pprExpr sty (OpApp e1 op e2) = ppSep [pp_e1, ppCat [pprOp sty v, pp_e2]] pprExpr sty (NegApp e) - = ppBeside (ppChar '-') (ppParens (pprExpr sty e)) + = ppBeside (ppChar '-') (pprParendExpr sty e) pprExpr sty (HsPar e) = ppParens (pprExpr sty e) |