[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 (file)
--- 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}