X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreTidy.lhs;h=6f13740b9c4c9f64cf4cb0850d3e829f1870336f;hb=a5168e30f331c6fe912cca4f53be8544ce6800d5;hp=ba604667e7f22289f0e66799c48e68bcc74fe5e6;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreTidy.lhs b/compiler/coreSyn/CoreTidy.lhs
index ba60466..6f13740 100644
--- a/compiler/coreSyn/CoreTidy.lhs
+++ b/compiler/coreSyn/CoreTidy.lhs
@@ -81,7 +81,7 @@ tidyAlt case_bndr env (DataAlt con, vs, rhs)
   | not (isVanillaDataCon con)	-- GADT case
   = tidyBndrs env tvs	 	=: \ (env1, tvs') ->
     let 
-	env2 = refineTidyEnv env con tvs' scrut_ty
+	env2 = refineTidyEnv env1 con tvs' scrut_ty
     in
     tidyBndrs env2 ids 	=: \ (env3, ids') ->
     (DataAlt con, tvs' ++ ids', tidyExpr env3 rhs)