[commit: ghc] master: Remove unused variable binding (9e46167)

[git at git.haskell.org]

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

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

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

commit 9e46167fc54b09bd59bc1e5f82dea19c3f4c3121
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Sep 14 11:40:09 2017 +0100

    Remove unused variable binding


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

9e46167fc54b09bd59bc1e5f82dea19c3f4c3121
 compiler/typecheck/TcSplice.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcSplice.hs b/compiler/typecheck/TcSplice.hs
index 683b186..f31c281 100644
--- a/compiler/typecheck/TcSplice.hs
+++ b/compiler/typecheck/TcSplice.hs
@@ -1538,7 +1538,7 @@ reifyClass cls
         ; let dec = TH.ClassD cxt (reifyName cls) tvs' fds' (assocTys ++ ops)
         ; return (TH.ClassI dec insts) }
   where
-    (tvs, fds, theta, _, ats, op_stuff) = classExtraBigSig cls
+    (_, fds, theta, _, ats, op_stuff) = classExtraBigSig cls
     fds' = map reifyFunDep fds
     reify_op (op, def_meth)
       = do { ty <- reifyType (idType op)