[project @ 2001-09-14 15:44:13 by simonpj]

[ghc-hetmet.git] / ghc / compiler / coreSyn / PprCore.lhs

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index 85bab12..19fb641 100644 (file)
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -27,10 +27,11 @@ import Var          ( isTyVar )
 import IdInfo          ( IdInfo, megaSeqIdInfo, 
                          arityInfo, ppArityInfo, 
                          specInfo, cprInfo, ppCprInfo, 
-                         strictnessInfo, ppStrictnessInfo, cgInfo, pprCgInfo,
+                         strictnessInfo, ppStrictnessInfo, cgInfo,
                          cprInfo, ppCprInfo, 
                          workerInfo, ppWorkerInfo,
-                          tyGenInfo, ppTyGenInfo
+                          tyGenInfo, ppTyGenInfo,
+                         newDemandInfo, newStrictnessInfo
                        )
 import DataCon         ( dataConTyCon )
 import TyCon           ( tupleTyConBoxity, isTupleTyCon )
@@ -328,7 +329,8 @@ pprIdBndr id = ppr id <+>
               (megaSeqIdInfo (idInfo id) `seq`
                        -- Useful for poking on black holes
                ifPprDebug (ppr (idInlinePragma id) <+> ppr (idOccInfo id) <+> 
-                           ppr (idDemandInfo id)) <+> ppr (idLBVarInfo id))
+                           ppr (idDemandInfo id)) <+> ppr (newDemandInfo (idInfo id)) <+>
+                           ppr (idLBVarInfo id))
 \end{code}
 
 
@@ -345,6 +347,7 @@ ppIdInfo b info
             ppTyGenInfo g,
            ppWorkerInfo (workerInfo info),
            ppStrictnessInfo s,
+           ppr (newStrictnessInfo info),
 --         pprCgInfo c,
             ppCprInfo m,
            pprCoreRules b p
@@ -356,7 +359,7 @@ ppIdInfo b info
     a = arityInfo info
     g = tyGenInfo info
     s = strictnessInfo info
-    c = cgInfo info
+--  c = cgInfo info
     m = cprInfo info
     p = specInfo info
 \end{code}