From: simonpj <unknown>
Date: Mon, 16 May 2005 12:39:55 +0000 (+0000)
Subject: [project @ 2005-05-16 12:39:55 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~547
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7f668158a743bdcbe1ad6d0c61bbd5a58812ba2a;p=ghc-hetmet.git

[project @ 2005-05-16 12:39:55 by simonpj]
Dont print result type for Core case-expressions (too voluminous)
---

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 '}'