diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-03-11 12:47:57 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-03-11 12:47:57 +0000 |
| commit | 41f803105999ffe51a40d3c72d5994520496b7ea (patch) | |
| tree | 6ce3856897f2288d02f3d46862bf3833655ff089 | |
| parent | ef44a429af4a630a153b5774d0e19dbcad8328d5 (diff) | |
| download | haskell-41f803105999ffe51a40d3c72d5994520496b7ea.tar.gz | |
Fix last-minute typo in SetLevels commit ef44a4
Sorry about that...
| -rw-r--r-- | compiler/simplCore/SetLevels.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/simplCore/SetLevels.lhs b/compiler/simplCore/SetLevels.lhs index cc72164548..6edadb8bd9 100644 --- a/compiler/simplCore/SetLevels.lhs +++ b/compiler/simplCore/SetLevels.lhs @@ -479,7 +479,8 @@ lvlMFE strict_ctxt env ann_expr@(fvs, _) ; return (Let (NonRec (TB var (FloatMe dest_lvl)) expr') (mkVarApps (Var var) abs_vars)) } where - is_bot = exprIsBottom (deAnnotate ann_expr) -- Note [Bottoming floats] + expr = deAnnotate ann_expr + is_bot = exprIsBottom expr -- Note [Bottoming floats] dest_lvl = destLevel env fvs (isFunction ann_expr) is_bot abs_vars = abstractVars dest_lvl env fvs |