diff options
| author | simonpj@microsoft.com <unknown> | 2009-11-19 15:43:47 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-11-19 15:43:47 +0000 |
| commit | 2662dbc5b2c30fc11ccb99e7f9b2dba794d680ba (patch) | |
| tree | 6828d80b4b78b7e78c820bb4d45b650fe5f2be50 /compiler/simplCore/SetLevels.lhs | |
| parent | c8ef1c4a3da7b86516866d8e30e81ef4f9a06041 (diff) | |
| download | haskell-2662dbc5b2c30fc11ccb99e7f9b2dba794d680ba.tar.gz | |
Remove the (very) old strictness analyser
I finally got tired of the #ifdef OLD_STRICTNESS stuff. I had been
keeping it around in the hope of doing old-to-new comparisions, but
have failed to do so for many years, so I don't think it's going to
happen. This patch deletes the clutter.
Diffstat (limited to 'compiler/simplCore/SetLevels.lhs')
| -rw-r--r-- | compiler/simplCore/SetLevels.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/SetLevels.lhs b/compiler/simplCore/SetLevels.lhs index c9b0601be0..c7ce0663ac 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)) |