Commit 3cf60503 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix maybeSaveCostCentre: cases were reversed

parent 5c3f13f0
...@@ -432,8 +432,8 @@ cgCase scrut bndr alt_type alts ...@@ -432,8 +432,8 @@ cgCase scrut bndr alt_type alts
----------------- -----------------
maybeSaveCostCentre :: Bool -> FCode (Maybe LocalReg) maybeSaveCostCentre :: Bool -> FCode (Maybe LocalReg)
maybeSaveCostCentre simple_scrut maybeSaveCostCentre simple_scrut
| simple_scrut = saveCurrentCostCentre | simple_scrut = return Nothing
| otherwise = return Nothing | otherwise = saveCurrentCostCentre
----------------- -----------------
......
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