[project @ 1997-03-14 07:52:06 by simonpj]

[ghc-hetmet.git] / ghc / compiler / simplCore / SimplVar.lhs

diff --git a/ghc/compiler/simplCore/SimplVar.lhs b/ghc/compiler/simplCore/SimplVar.lhs
index 0b0cc56..99f3e4c 100644 (file)
--- a/ghc/compiler/simplCore/SimplVar.lhs
+++ b/ghc/compiler/simplCore/SimplVar.lhs
@@ -33,7 +33,7 @@ import Literal                ( isNoRepLit )
 import MagicUFs                ( applyMagicUnfoldingFun, MagicUnfoldingFun )
 import PprStyle                ( PprStyle(..) )
 import PprType         ( GenType{-instance Outputable-} )
-import Pretty          ( ppBesides, ppStr )
+--import Pretty                ( ppBesides, ppStr )
 import SimplEnv
 import SimplMonad
 import TyCon           ( tyConFamilySize )
@@ -70,12 +70,12 @@ completeVar env var args
     costCentreOk (getEnclosingCC env) (getEnclosingCC unfold_env)
   = tick UnfoldingDone `thenSmpl_`
 #ifdef DEBUG
-    simplCount         `thenSmpl` \ n ->
-    (if n > 3000 then
-       pprTrace "Ticks > 3000 and unfolding" (ppr PprDebug var)
-    else
-       id
-    )
+--    simplCount               `thenSmpl` \ n ->
+--    (if n > 3000 then
+--     pprTrace "Ticks > 3000 and unfolding" (ppr PprDebug var)
+--    else
+--     id
+--    )
 #endif
     simplExpr unfold_env unf_template args