diff options
| author | simonpj <unknown> | 2005-05-16 12:39:55 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2005-05-16 12:39:55 +0000 |
| commit | 7f668158a743bdcbe1ad6d0c61bbd5a58812ba2a (patch) | |
| tree | 34acde77deceaf9b43a9f2931ce240d8a3f80a34 | |
| parent | 4898649ce5d8bd677450988f6c3d3a39e146daac (diff) | |
| download | haskell-7f668158a743bdcbe1ad6d0c61bbd5a58812ba2a.tar.gz | |
[project @ 2005-05-16 12:39:55 by simonpj]
Dont print result type for Core case-expressions (too voluminous)
| -rw-r--r-- | ghc/compiler/coreSyn/PprCore.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs index 848ca1b6bf..a1515a0f3a 100644 --- a/ghc/compiler/coreSyn/PprCore.lhs +++ b/ghc/compiler/coreSyn/PprCore.lhs @@ -154,7 +154,8 @@ ppr_expr add_par expr@(App fun arg) ppr_expr add_par (Case expr var ty [(con,args,rhs)]) = add_par $ - sep [sep [ptext SLIT("case") <+> pprParendType ty <+> pprCoreExpr expr, + sep [sep [ptext SLIT("case") {- <+> pprParendType ty -} <+> pprCoreExpr expr, + -- Printing the result type is excessive! hsep [ptext SLIT("of"), ppr_bndr var, char '{', @@ -168,7 +169,7 @@ ppr_expr add_par (Case expr var ty [(con,args,rhs)]) ppr_expr add_par (Case expr var ty alts) = add_par $ - sep [sep [ptext SLIT("case") <+> pprParendType ty <+> pprCoreExpr expr, + sep [sep [ptext SLIT("case") {- <+> pprParendType ty -} <+> pprCoreExpr expr, ptext SLIT("of") <+> ppr_bndr var <+> char '{'], nest 2 (sep (punctuate semi (map pprCoreAlt alts))), char '}' |