From 87aae97c8e345c559dd3c74474bec39851b97765 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 17 Oct 2001 15:39:08 +0000
Subject: [PATCH] [project @ 2001-10-17 15:39:08 by simonpj] Remove unused
 variable

---
 ghc/compiler/typecheck/TcClassDcl.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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]
-- 
1.7.10.4