From: simonpj <unknown>
Date: Mon, 11 Oct 2004 12:44:23 +0000 (+0000)
Subject: [project @ 2004-10-11 12:44:23 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1511
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4ad8b119584683c44e4d1d5a9588971542bc36df

[project @ 2004-10-11 12:44:23 by simonpj]
Fix typo; fixes simpl007
---

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index 90b4b0b..3ccdedf 100644
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -1502,7 +1502,7 @@ simplAlt env handled_cons case_bndr' (DataAlt con, vs, rhs) cont'
     simplBinders env tvs			`thenSmpl` \ (env1, tvs') ->
     let
 	pat_res_ty = dataConResTy con (mkTyVarTys tvs')
-	tv_subst   = getTvSubst env
+	tv_subst   = getTvSubst env1
     in
     case coreRefineTys tvs' tv_subst pat_res_ty (idType case_bndr') of {
 	Nothing 	-- Dead code; for now, I'm just going to put in an