[project @ 2005-07-19 16:44:50 by simonpj]

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

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 97cc14c..8e3139e 100644 (file)
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -20,7 +20,7 @@ import Rules          ( RuleBase, emptyRuleBase, mkRuleBase, unionRuleBase,
                          extendRuleBaseList, pprRuleBase, ruleCheckProgram,
                          mkSpecInfo, addSpecInfo )
 import PprCore         ( pprCoreBindings, pprCoreExpr, pprRules )
-import OccurAnal       ( occurAnalysePgm, occurAnalyseGlobalExpr )
+import OccurAnal       ( occurAnalysePgm, occurAnalyseExpr )
 import IdInfo          ( setNewStrictnessInfo, newStrictnessInfo, 
                          setWorkerInfo, workerInfo,
                          setSpecInfo, specInfo, specInfoRules )
@@ -311,8 +311,8 @@ simplExprGently :: SimplEnv -> CoreExpr -> SimplM CoreExpr
 -- enforce that; it just simplifies the expression twice
 
 simplExprGently env expr
-  = simplExpr env (occurAnalyseGlobalExpr expr)        `thenSmpl` \ expr1 ->
-    simplExpr env (occurAnalyseGlobalExpr expr1)
+  = simplExpr env (occurAnalyseExpr expr)      `thenSmpl` \ expr1 ->
+    simplExpr env (occurAnalyseExpr expr1)
 \end{code}