X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FCgClosure.lhs;fp=compiler%2FcodeGen%2FCgClosure.lhs;h=d158bf78abd56f11766d9ebbd1a6854eedab768a;hp=da44122a4dd44585bd129d13a95069a85d33ab0c;hb=d76fcd210a944bec112e3bd0888ed5ead5e7b816;hpb=b3199f6977fdaed6f3f898aee14bd0af61140cf5

diff --git a/compiler/codeGen/CgClosure.lhs b/compiler/codeGen/CgClosure.lhs
index da44122..d158bf7 100644
--- a/compiler/codeGen/CgClosure.lhs
+++ b/compiler/codeGen/CgClosure.lhs
@@ -250,7 +250,6 @@ closureCodeBody _binder_info cl_info cc [{- No args i.e. thunk -}] body = do
 		-- in update frame CAF/DICT functions will be
 		-- subsumed by this enclosing cc
 	    { enterCostCentre cl_info cc body
-            ; stmtsC [CmmComment $ mkFastString $ showSDoc $ ppr body]
 	    ; cgExpr body }
 	}