Skip to content
Browse files

fix Note cross-ref

  • Loading branch information...
1 parent 6361b7f commit b84cece343bbc1ac455b832e066ba7cf53553f4a @simonmar simonmar committed
Showing with 1 addition and 1 deletion.
  1. +1 −1 compiler/simplCore/SetLevels.lhs
View
2 compiler/simplCore/SetLevels.lhs
@@ -358,7 +358,7 @@ lvlCase ctxt_lvl env scrut_fvs scrut' case_bndr ty alts
| [(con@(DataAlt {}), bs, rhs)] <- alts
, exprOkForSpeculation scrut' -- See Note [Check the output scrutinee for okForSpec]
, not (isTopLvl dest_lvl) -- Can't have top-level cases
- = -- See Note [Case floating]
+ = -- See Note [Floating cases]
-- Always float the case if possible
-- Unlike lets we don't insist that it escapes a value lambda
do { (rhs_env, (case_bndr':bs')) <- cloneVars env (case_bndr:bs) dest_lvl

0 comments on commit b84cece

Please sign in to comment.
Something went wrong with that request. Please try again.