Commit 41f80310 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Fix last-minute typo in SetLevels commit ef44a4

Sorry about that...
parent ef44a429
......@@ -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)) }
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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment