From: apt <unknown>
Date: Mon, 27 Aug 2001 15:16:30 +0000 (+0000)
Subject: [project @ 2001-08-27 15:16:30 by apt]
X-Git-Tag: Approximately_9120_patches~1070
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=4240596ea05a82a143965c216b965b61cf3e77ee;p=ghc-hetmet.git

[project @ 2001-08-27 15:16:30 by apt]
shut up shortMeOut traces
---

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index 48da14b..3a57ab2 100644
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -212,7 +212,11 @@ shortMeOut ind_env exported_id local_id
 	if shortableIdInfo (idInfo exported_id) 	-- Only if its IdInfo is 'shortable'
 							-- (see the defn of IdInfo.shortableIdInfo)
 	then True
-	else pprTrace "shortMeOut:" (ppr exported_id) False
+	else 
+#ifdef DEBUG 
+          pprTrace "shortMeOut:" (ppr exported_id)
+#endif
+                                                False
     else
 	False
 \end{code}