X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplEnv.lhs;h=c9fb4fbb8ba23d5d9471a535c0498c71fe0609e1;hb=59264221c24a17e7c8ecde3e289882b9620bd5a8;hp=765fd004d77ad210cba81ae6324463363130c170;hpb=94b170a053c161d1e0cc4418b37a6a4807872a5f;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SimplEnv.lhs b/compiler/simplCore/SimplEnv.lhs
index 765fd00..c9fb4fb 100644
--- a/compiler/simplCore/SimplEnv.lhs
+++ b/compiler/simplCore/SimplEnv.lhs
@@ -21,7 +21,7 @@ module SimplEnv (
 	setEnclosingCC, getEnclosingCC,
 
 	-- Environments
-	SimplEnv(..), 	-- Temp not abstract
+	SimplEnv(..), pprSimplEnv,	-- Temp not abstract
 	mkSimplEnv, extendIdSubst, SimplEnv.extendTvSubst, 
 	zapSubstEnv, setSubstEnv, 
 	getInScope, setInScope, setInScopeSet, modifyInScope, addNewInScopeIds,
@@ -129,6 +129,12 @@ data SimplEnv
 
     }
 
+pprSimplEnv :: SimplEnv -> SDoc
+-- Used for debugging; selective
+pprSimplEnv env
+  = vcat [ptext SLIT("TvSubst:") <+> ppr (seTvSubst env),
+ 	  ptext SLIT("IdSubst:") <+> ppr (seIdSubst env) ]
+
 type SimplIdSubst = IdEnv SimplSR	-- IdId |--> OutExpr
 	-- See Note [Extending the Subst] in CoreSubst
 
@@ -144,10 +150,10 @@ instance Outputable SimplSR where
   ppr (DoneId v) = ptext SLIT("DoneId") <+> ppr v
   ppr (ContEx tv id e) = vcat [ptext SLIT("ContEx") <+> ppr e {-,
 				ppr (filter_env tv), ppr (filter_env id) -}]
-	where
-	  fvs = exprFreeVars e
-	  filter_env env = filterVarEnv_Directly keep env
-	  keep uniq _ = uniq `elemUFM_Directly` fvs
+	-- where
+	-- fvs = exprFreeVars e
+	-- filter_env env = filterVarEnv_Directly keep env
+	-- keep uniq _ = uniq `elemUFM_Directly` fvs
 \end{code}