projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-09-26 08:44:14 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
rename
/
RnBinds.lhs
diff --git
a/ghc/compiler/rename/RnBinds.lhs
b/ghc/compiler/rename/RnBinds.lhs
index
070abda
..
cb387d1
100644
(file)
--- a/
ghc/compiler/rename/RnBinds.lhs
+++ b/
ghc/compiler/rename/RnBinds.lhs
@@
-154,7
+154,10
@@
contains bindings for the binders of this particular binding.
\begin{code}
rnTopMonoBinds mbinds sigs
= mappM lookupBndrRn binder_rdr_names `thenM` \ binder_names ->
\begin{code}
rnTopMonoBinds mbinds sigs
= mappM lookupBndrRn binder_rdr_names `thenM` \ binder_names ->
+ -- No need to extend the environment; that has been done already
+
bindPatSigTyVars (collectSigTysFromMonoBinds mbinds) $
bindPatSigTyVars (collectSigTysFromMonoBinds mbinds) $
+ -- Hmm; by analogy with Ids, this doesn't look right
let
bndr_name_set = mkNameSet binder_names
in
let
bndr_name_set = mkNameSet binder_names
in