[project @ 2003-06-10 13:40:11 by simonpj]

[ghc-hetmet.git] / ghc / compiler / stgSyn / CoreToStg.lhs

diff --git a/ghc/compiler/stgSyn/CoreToStg.lhs b/ghc/compiler/stgSyn/CoreToStg.lhs
index c23eb9d..6e1f012 100644 (file)
--- a/ghc/compiler/stgSyn/CoreToStg.lhs
+++ b/ghc/compiler/stgSyn/CoreToStg.lhs
@@ -12,7 +12,7 @@ module CoreToStg ( coreToStg, coreExprToStg ) where
 #include "HsVersions.h"
 
 import CoreSyn
-import CoreUtils
+import CoreUtils       ( rhsIsStatic, manifestArity, exprType )
 import StgSyn
 
 import Type
@@ -240,7 +240,7 @@ coreToTopStgRhs scope_fv_info (bndr, rhs)
   where
     bndr_info = lookupFVInfo scope_fv_info bndr
 
-    upd  | rhsIsNonUpd rhs = SingleEntry
+    upd  | rhsIsStatic rhs = SingleEntry
         | otherwise       = Updatable
 
 mkTopStgRhs :: UpdateFlag -> FreeVarsInfo -> SRT -> StgBinderInfo -> StgExpr