From 4240596ea05a82a143965c216b965b61cf3e77ee Mon Sep 17 00:00:00 2001
From: apt <unknown>
Date: Mon, 27 Aug 2001 15:16:30 +0000
Subject: [PATCH] [project @ 2001-08-27 15:16:30 by apt] shut up shortMeOut
 traces

---
 ghc/compiler/simplCore/OccurAnal.lhs |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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