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

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

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index e7e7da3..044841f 100644 (file)
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -37,7 +37,7 @@ import StaticFlags    ( opt_UF_CreationThreshold, opt_UF_UseThreshold,
 import DynFlags                ( DynFlags, DynFlag(..), dopt )
 import CoreSyn
 import PprCore         ( pprCoreExpr )
-import OccurAnal       ( occurAnalyseGlobalExpr )
+import OccurAnal       ( occurAnalyseExpr )
 import CoreUtils       ( exprIsValue, exprIsCheap, exprIsTrivial )
 import Id              ( Id, idType, isId,
                          idUnfolding, globalIdDetails
@@ -69,7 +69,7 @@ import GLAEXTS                ( Int# )
 mkTopUnfolding expr = mkUnfolding True {- Top level -} expr
 
 mkUnfolding top_lvl expr
-  = CoreUnfolding (occurAnalyseGlobalExpr expr)
+  = CoreUnfolding (occurAnalyseExpr expr)
                  top_lvl
 
                  (exprIsValue expr)
@@ -89,7 +89,7 @@ mkUnfolding top_lvl expr
        -- it gets fixed up next round
 
 mkCompulsoryUnfolding expr     -- Used for things that absolutely must be unfolded
-  = CompulsoryUnfolding (occurAnalyseGlobalExpr expr)
+  = CompulsoryUnfolding (occurAnalyseExpr expr)
 \end{code}