X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSetLevels.lhs;h=c7ce0663acb2328439439afd724f1bcebdd5b824;hb=59300a7161f44b3a2afe381a6ccd914043a32c4f;hp=c9b0601be00241d0460ec7378437cf499aac5a23;hpb=72462499b891d5779c19f3bda03f96e24f9554ae;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SetLevels.lhs b/compiler/simplCore/SetLevels.lhs
index c9b0601..c7ce066 100644
--- a/compiler/simplCore/SetLevels.lhs
+++ b/compiler/simplCore/SetLevels.lhs
@@ -64,7 +64,7 @@ import CoreSubst	( Subst, emptySubst, extendInScope, extendInScopeList,
 import Id		( idType, mkSysLocal, isOneShotLambda,
 			  zapDemandIdInfo, transferPolyIdInfo,
 			  idSpecialisation, idUnfolding, setIdInfo, 
-			  setIdNewStrictness, setIdArity
+			  setIdStrictness, setIdArity
 			)
 import IdInfo
 import Var
@@ -398,7 +398,7 @@ lvlMFE strict_ctxt ctxt_lvl env ann_expr@(fvs, _)
 		-- Note [Bottoming floats]
        let var_w_str = case exprBotStrictness_maybe expr of
 			  Just (arity,str) -> var `setIdArity` arity
-						  `setIdNewStrictness` str
+						  `setIdStrictness` str
 			  Nothing  -> var
        return (Let (NonRec (TB var_w_str dest_lvl) expr') 
                    (mkVarApps (Var var_w_str) abs_vars))