From 7f668158a743bdcbe1ad6d0c61bbd5a58812ba2a Mon Sep 17 00:00:00 2001 From: simonpj Date: Mon, 16 May 2005 12:39:55 +0000 Subject: [PATCH] [project @ 2005-05-16 12:39:55 by simonpj] Dont print result type for Core case-expressions (too voluminous) --- ghc/compiler/coreSyn/PprCore.lhs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs index 848ca1b..a1515a0 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 '}' -- 1.7.10.4