Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/simplCore/SetLevels.lhs
+ 2
− 1
View file @ 41f80310
...@@ -479,7 +479,8 @@ lvlMFE strict_ctxt env ann_expr@(fvs, _) ...@@ -479,7 +479,8 @@ lvlMFE strict_ctxt env ann_expr@(fvs, _)
; return (Let (NonRec (TB var (FloatMe dest_lvl)) expr') ; return (Let (NonRec (TB var (FloatMe dest_lvl)) expr')
(mkVarApps (Var var) abs_vars)) } (mkVarApps (Var var) abs_vars)) }
where 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 dest_lvl = destLevel env fvs (isFunction ann_expr) is_bot
abs_vars = abstractVars dest_lvl env fvs abs_vars = abstractVars dest_lvl env fvs
......
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