Commit f42d93f8 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

One more wibble to FloatOut, fixes HEAD breakage (I hope)

parent 3926077b
......@@ -323,8 +323,9 @@ floatExpr lvl (Cast expr co)
floatExpr lvl (Let (NonRec (TB bndr bndr_lvl) rhs) body)
| isUnLiftedType (idType bndr) -- Treat unlifted lets just like a case
= case floatExpr lvl rhs of { (fs, rhs_floats, rhs') ->
case floatRhs bndr_lvl body of { (fs, body_floats, body') ->
-- I.e. floatExpr for rhs, floatCaseAlt for body
= case floatExpr lvl rhs of { (fs, rhs_floats, rhs') ->
case floatCaseAlt bndr_lvl body of { (fs, body_floats, body') ->
(fs, rhs_floats ++ body_floats, Let (NonRec bndr rhs') body') }}
floatExpr lvl (Let bind body)
......
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