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 <simo...@microsoft.com> 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') } _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
