[commit: ghc] master: Crucial bug fix: use scrut' rather than scrut! (948c1d3)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/948c1d312b79986eb12299f7d4876c9ca4fc5a7f

>---------------------------------------------------------------

commit 948c1d312b79986eb12299f7d4876c9ca4fc5a7f
Author: Simon Peyton Jones <[email protected]>
Date:   Wed Jan 2 16:39:34 2013 +0000

    Crucial bug fix: use scrut' rather than scrut!

>---------------------------------------------------------------

 compiler/simplCore/Simplify.lhs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index f8ba781..af93f58 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -1975,7 +1975,7 @@ simplAlts env scrut case_bndr alts cont'
           -- NB: it's possible that the returned in_alts is empty: this is handled
           -- by the caller (rebuildCase) in the missingAlt function
 
-        ; alts' <- mapM (simplAlt alt_env' (Just scrut) imposs_deflt_cons case_bndr' cont') in_alts
+        ; alts' <- mapM (simplAlt alt_env' (Just scrut') imposs_deflt_cons case_bndr' cont') in_alts
         ; -- pprTrace "simplAlts" (ppr case_bndr $$ ppr alts_ty $$ ppr alts_ty' $$ ppr alts $$ ppr cont') $
           return (scrut', case_bndr', alts') }