X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FMatchLit.lhs;h=a3b59d117bc236ba3b88abd097333b168ec411fb;hb=a3f24157839605f19e869fdde8cd73266fecf4ac;hp=6d7db7cce87a8056d6452b7f5bd36447fd7d9893;hpb=ecdaf6bc29d23bd704df8c65442ee08032a585fc;p=ghc-hetmet.git

diff --git a/compiler/deSugar/MatchLit.lhs b/compiler/deSugar/MatchLit.lhs
index 6d7db7c..a3b59d1 100644
--- a/compiler/deSugar/MatchLit.lhs
+++ b/compiler/deSugar/MatchLit.lhs
@@ -154,7 +154,7 @@ tidyLitPat lit = LitPat lit
 
 ----------------
 tidyNPat :: HsOverLit Id -> Maybe (SyntaxExpr Id) -> SyntaxExpr Id -> Pat Id
-tidyNPat over_lit@(OverLit val False _ ty) mb_neg eq 
+tidyNPat (OverLit val False _ ty) mb_neg _
 	-- Take short cuts only if the literal is not using rebindable syntax
   | isIntTy    ty = mk_con_pat intDataCon    (HsIntPrim int_val)
   | isWordTy   ty = mk_con_pat wordDataCon   (HsWordPrim int_val)