X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FDEPEND-NOTES;h=23f2a7fe0092cc2af82b7d329bd22c1cb5d76f4b;hb=922805b23964e54f9aa5e7408747617d32ea0e1d;hp=d2d12b5c1fa4aa6336c3add893afb4208902518b;hpb=efaab402ba8c3ddea52c3a84564d2701d9d5574e;p=ghc-hetmet.git

diff --git a/ghc/compiler/DEPEND-NOTES b/ghc/compiler/DEPEND-NOTES
index d2d12b5..23f2a7f 100644
--- a/ghc/compiler/DEPEND-NOTES
+++ b/ghc/compiler/DEPEND-NOTES
@@ -47,16 +47,22 @@ then
 then	
 	CoreLint( CoreUtils )
 	OccurAnal (CoreUtils.exprIsTrivial)
+	CoreTidy (CoreUtils.exprArity )
 then
 	CoreUnfold (OccurAnal.occurAnalyseGlobalExpr)
 then
-	CoreTidy (CoreUnfold.noUnfolding)
-	Subst (Unfolding, CoreFVs)
-	Generics (mkTopUnfolding)
+	Subst (CoreUnfold.Unfolding, CoreFVs)
+	Generics (CoreUnfold.mkTopUnfolding)
 then
-	Rules (Unfolding, CoreTidy.tidyIdRules)
-	MkId (CoreUnfold.mkUnfolding, Subst, Rule.addRule)
+	Rules (CoreUnfold.Unfolding, PprCore.pprTidyIdRules)
+then
+	MkId (CoreUnfold.mkUnfolding, Subst, Rules.addRule)
 then
 	PrelInfo (MkId)
 	HscTypes( Rules.RuleBase )
 
+---------------- END OF INFRASTRUCTURE --------------------
+
+then
+	CoreTidy (HscTypes.PersistentCompilerState)
+