[project @ 2005-08-10 11:09:05 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 a0050d5..14a0f4d 100644 (file)
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -38,7 +38,7 @@ import DynFlags               ( DynFlags, DynFlag(..), dopt )
 import CoreSyn
 import PprCore         ( pprCoreExpr )
 import OccurAnal       ( occurAnalyseExpr )
-import CoreUtils       ( exprIsValue, exprIsCheap, exprIsTrivial )
+import CoreUtils       ( exprIsHNF, exprIsCheap, exprIsTrivial )
 import Id              ( Id, idType, isId,
                          idUnfolding, globalIdDetails
                        )
@@ -72,7 +72,7 @@ mkUnfolding top_lvl expr
   = CoreUnfolding (occurAnalyseExpr expr)
                  top_lvl
 
-                 (exprIsValue expr)
+                 (exprIsHNF expr)
                        -- Already evaluated
 
                  (exprIsCheap expr)