diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-07 10:53:12 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-07 15:32:05 +0100 |
| commit | 3cf60503e8a96e398b021d116ddab42675d41796 (patch) | |
| tree | 667e734c1701ec453fc2c57248ce0c0cae22eade | |
| parent | 5c3f13f0067491d4db044eb8159044c3ba715941 (diff) | |
| download | haskell-3cf60503e8a96e398b021d116ddab42675d41796.tar.gz | |
fix maybeSaveCostCentre: cases were reversed
| -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 ----------------- |