From 5c2ba23f119e03a6c26e2967ab305a8f7a000773 Mon Sep 17 00:00:00 2001
From: "Dr. ERDI Gergo" <gergo@erdi.hu>
Date: Sat, 12 Apr 2014 08:57:27 +0800
Subject: [PATCH] Remove unused variable binding to fix validate
(cherry picked from commit b7f51d60093ea13d0854bd7e1d4ecf58d12628a1)
---
compiler/typecheck/TcPatSyn.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/compiler/typecheck/TcPatSyn.lhs b/compiler/typecheck/TcPatSyn.lhs
index 00dfbe34a0ec..fdbee92648d7 100644
--- a/compiler/typecheck/TcPatSyn.lhs
+++ b/compiler/typecheck/TcPatSyn.lhs
@@ -321,8 +321,8 @@ tcCheckPatSynPat = go
go1 (PArrPat pats _) = mapM_ go pats
go1 (ListPat pats _ _) = mapM_ go pats
go1 (TuplePat pats _ _) = mapM_ go pats
- go1 (LitPat lit) = return ()
- go1 (NPat n _ _) = return ()
+ go1 LitPat{} = return ()
+ go1 NPat{} = return ()
go1 (SigPatIn pat _) = go pat
go1 (ViewPat _ pat _) = go pat
go1 p@SplicePat{} = thInPatSynErr p
--
GitLab