X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FstgSyn%2FCoreToStg.lhs;fp=ghc%2Fcompiler%2FstgSyn%2FCoreToStg.lhs;h=6e1f012ad021970c2a5e520a37d138bd242159bd;hb=cb2da7a511c2974eb526b8f413f39ebe3c61a6c7;hp=1303fb26a009a0025458c18eb44694ff28d8dcc4;hpb=e3d6a95f468365f25ccb6bc30cdc53c128d671e8;p=ghc-hetmet.git

diff --git a/ghc/compiler/stgSyn/CoreToStg.lhs b/ghc/compiler/stgSyn/CoreToStg.lhs
index 1303fb2..6e1f012 100644
--- 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	( hasNoRedexes, manifestArity, exprType )
+import CoreUtils	( rhsIsStatic, manifestArity, exprType )
 import StgSyn
 
 import Type
@@ -240,8 +240,8 @@ coreToTopStgRhs scope_fv_info (bndr, rhs)
   where
     bndr_info = lookupFVInfo scope_fv_info bndr
 
-    upd  | hasNoRedexes rhs = SingleEntry
-	 | otherwise        = Updatable
+    upd  | rhsIsStatic rhs = SingleEntry
+	 | otherwise       = Updatable
 
 mkTopStgRhs :: UpdateFlag -> FreeVarsInfo -> SRT -> StgBinderInfo -> StgExpr
 	-> StgRhs