X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FMatchLit.lhs;h=3751f95a838aaf7abd84199a5e45d80a69aa1b1d;hb=0b86bc9b022a5965d2b35f143ff4b919f784e676;hp=3c10c1c985d4d81b87bf2d8ae1b9a7678908f920;hpb=37507b3a4342773030ef538599363a5aff8b666a;p=ghc-hetmet.git

diff --git a/compiler/deSugar/MatchLit.lhs b/compiler/deSugar/MatchLit.lhs
index 3c10c1c..3751f95 100644
--- a/compiler/deSugar/MatchLit.lhs
+++ b/compiler/deSugar/MatchLit.lhs
@@ -256,7 +256,7 @@ matchNPlusKPats all_vars@(var:vars) ty (eqn1:eqns)
 	; lit_expr    <- dsOverLit lit
 	; let pred_expr   = mkApps ge_expr [Var var, lit_expr]
 	      minusk_expr = mkApps minus_expr [Var var, lit_expr]
-	      (wraps, eqns') = mapAndUnzip (shift n1) eqns
+	      (wraps, eqns') = mapAndUnzip (shift n1) (eqn1:eqns)
 	; match_result <- match vars ty eqns'
 	; return  (mkGuardedMatchResult pred_expr 		$
 		   mkCoLetMatchResult (NonRec n1 minusk_expr)	$