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

[ghc-hetmet.git] / ghc / compiler / typecheck / TcClassDcl.lhs

diff --git a/ghc/compiler/typecheck/TcClassDcl.lhs b/ghc/compiler/typecheck/TcClassDcl.lhs
index 1e43296..90b17fd 100644 (file)
--- 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]