[commit: ghc] master: Remove unused variable binding to fix validate (b7f51d6)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/b7f51d60093ea13d0854bd7e1d4ecf58d12628a1/ghc

>---------------------------------------------------------------

commit b7f51d60093ea13d0854bd7e1d4ecf58d12628a1
Author: Dr. ERDI Gergo <gergo at erdi.hu>
Date:   Sat Apr 12 08:57:27 2014 +0800

    Remove unused variable binding to fix validate


>---------------------------------------------------------------

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 00dfbe3..fdbee92 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 at SplicePat{}         = thInPatSynErr p