projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f342fa9
)
[project @ 2001-10-17 15:39:08 by simonpj]
author
simonpj
<unknown>
Wed, 17 Oct 2001 15:39:08 +0000
(15:39 +0000)
committer
simonpj
<unknown>
Wed, 17 Oct 2001 15:39:08 +0000
(15:39 +0000)
Remove unused variable
ghc/compiler/typecheck/TcClassDcl.lhs
patch
|
blob
|
history
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]