[commit: ghc] ghc-7.8: Remove unused variable binding to fix validate (5c2ba23)

[git at git.haskell.org]

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

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/5c2ba23f119e03a6c26e2967ab305a8f7a000773/ghc

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

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

    Remove unused variable binding to fix validate
    
    (cherry picked from commit b7f51d60093ea13d0854bd7e1d4ecf58d12628a1)


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

5c2ba23f119e03a6c26e2967ab305a8f7a000773
 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