Remove unused variable binding
authorSimon Peyton Jones <simonpj@microsoft.com>
Thu, 14 Sep 2017 10:40:09 +0000 (11:40 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Thu, 14 Sep 2017 10:40:09 +0000 (11:40 +0100)
compiler/typecheck/TcSplice.hs

index 683b186..f31c281 100644 (file)
@@ -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)