X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmExpr.hs;h=47bf6c433dc8f8b72a90c24c8f6d2f36f1747af0;hp=3b6aac97906c589c86bc6f659f998060df7ca929;hb=5892af0e08fdb890b5a0b9a64346d9f7773a6ed8;hpb=df54e4b621b1d2a8e30b01b3e93494a515d09f48

diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs
index 3b6aac9..47bf6c4 100644
--- a/compiler/codeGen/StgCmmExpr.hs
+++ b/compiler/codeGen/StgCmmExpr.hs
@@ -396,7 +396,7 @@ cgAltRhss gc_plan bndr alts
     cg_alt (con, bndrs, _uses, rhs)
       = getCodeR		  $
 	maybeAltHeapCheck gc_plan $
-	do { pprTrace "binding args for" (ppr bndr <+> ppr con) $ bindConArgs con base_reg bndrs
+	do { bindConArgs con base_reg bndrs
 	   ; cgExpr rhs
 	   ; return con }