projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3da1b42
)
[project @ 2002-09-26 08:44:14 by simonpj]
author
simonpj
<unknown>
Thu, 26 Sep 2002 08:44:14 +0000
(08:44 +0000)
committer
simonpj
<unknown>
Thu, 26 Sep 2002 08:44:14 +0000
(08:44 +0000)
Comments
ghc/compiler/rename/RnBinds.lhs
patch
|
blob
|
history
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