X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FMatch.lhs;h=2d646339afbfd0ab20cf7e40a2bb9232ad4d26a0;hp=641c2cace9193b7763a35fb40f0e5163c37100be;hb=55923428a9077c20b85ad2ea7c47197045831336;hpb=1c64864faf17b32ecaefa37fe8aa8fac5304f830

diff --git a/compiler/deSugar/Match.lhs b/compiler/deSugar/Match.lhs
index 641c2ca..2d64633 100644
--- a/compiler/deSugar/Match.lhs
+++ b/compiler/deSugar/Match.lhs
@@ -305,7 +305,7 @@ matchCoercion :: [Id] -> Type -> [EquationInfo] -> DsM MatchResult
 matchCoercion (var:vars) ty (eqn1:eqns)
   = do	{ let CoPat co pat _ = firstPat eqn1
 	; var' <- newUniqueId (idName var) (hsPatType pat)
-	; match_result <- match (var:vars) ty (map shift (eqn1:eqns))
+	; match_result <- match (var':vars) ty (map shift (eqn1:eqns))
 	; rhs <- dsCoercion co (return (Var var))
 	; return (mkCoLetMatchResult (NonRec var' rhs) match_result) }
   where