diff options
| author | simonpj <unknown> | 2002-09-26 08:44:14 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2002-09-26 08:44:14 +0000 |
| commit | 6cfc5a0380bfd2484b35e39ae0afafcbd923755f (patch) | |
| tree | 39f8ebc9b9507febb7a56a88d487993554dadb0e /ghc/compiler/rename/RnBinds.lhs | |
| parent | 3da1b42f573dca7b8a2000b18a88047c05cfb58a (diff) | |
| download | haskell-6cfc5a0380bfd2484b35e39ae0afafcbd923755f.tar.gz | |
[project @ 2002-09-26 08:44:14 by simonpj]
Comments
Diffstat (limited to 'ghc/compiler/rename/RnBinds.lhs')
| -rw-r--r-- | ghc/compiler/rename/RnBinds.lhs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs index 070abdaf61..cb387d1b34 100644 --- 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 -> + -- No need to extend the environment; that has been done already + bindPatSigTyVars (collectSigTysFromMonoBinds mbinds) $ + -- Hmm; by analogy with Ids, this doesn't look right let bndr_name_set = mkNameSet binder_names in |