turn off a trace

[ghc-hetmet.git] / ghc / compiler / codeGen / CgInfoTbls.hs

diff --git a/ghc/compiler/codeGen/CgInfoTbls.hs b/ghc/compiler/codeGen/CgInfoTbls.hs
index 9ac81bb..b769950 100644 (file)
--- a/ghc/compiler/codeGen/CgInfoTbls.hs
+++ b/ghc/compiler/codeGen/CgInfoTbls.hs
@@ -249,7 +249,7 @@ emitReturnTarget name stmts vector srt
        ; emitInfoTableAndCode info_lbl std_info extra_bits args blks
        ; return info_lbl }
   where
-    args = trace "emitReturnTarget: missing args" []
+    args      = {- trace "emitReturnTarget: missing args" -} []
     uniq      = getUnique name
     info_lbl  = mkReturnInfoLabel uniq