From: simonpj <unknown>
Date: Wed, 17 Oct 2001 15:39:08 +0000 (+0000)
Subject: [project @ 2001-10-17 15:39:08 by simonpj]
X-Git-Tag: Approximately_9120_patches~806
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=87aae97c8e345c559dd3c74474bec39851b97765;p=ghc-hetmet.git

[project @ 2001-10-17 15:39:08 by simonpj]
Remove unused variable
---

diff --git a/ghc/compiler/typecheck/TcClassDcl.lhs b/ghc/compiler/typecheck/TcClassDcl.lhs
index 1e43296..90b17fd 100644
--- a/ghc/compiler/typecheck/TcClassDcl.lhs
+++ b/ghc/compiler/typecheck/TcClassDcl.lhs
@@ -277,7 +277,7 @@ checkValidClass cls
     checkTc (unary || no_generics) (genericMultiParamErr cls)
 
   where
-    (tyvars, theta, sel_ids, op_stuff) = classBigSig cls
+    (tyvars, theta, _, op_stuff) = classBigSig cls
     arity	= length tyvars
     unary 	= arity == 1
     no_generics = null [() | (_, GenDefMeth) <- op_stuff]