diff options
| -rw-r--r-- | compiler/codeGen/StgCmmExpr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs index 1d016d6b3d..cf3dc67dfc 100644 --- a/compiler/codeGen/StgCmmExpr.hs +++ b/compiler/codeGen/StgCmmExpr.hs @@ -432,8 +432,8 @@ cgCase scrut bndr alt_type alts ----------------- maybeSaveCostCentre :: Bool -> FCode (Maybe LocalReg) maybeSaveCostCentre simple_scrut - | simple_scrut = saveCurrentCostCentre - | otherwise = return Nothing + | simple_scrut = return Nothing + | otherwise = saveCurrentCostCentre ----------------- |