Fix egregious and long-standing tidying bug

[ghc-hetmet.git] / compiler / coreSyn / CoreTidy.lhs

diff --git a/compiler/coreSyn/CoreTidy.lhs b/compiler/coreSyn/CoreTidy.lhs
index ba60466..6f13740 100644 (file)
--- 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)