diff options
| author | simonpj <unknown> | 2000-11-21 09:30:17 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2000-11-21 09:30:17 +0000 |
| commit | 8fbe28ca67a6c07575aee35bfade43e967ad792e (patch) | |
| tree | 1e4b9c60de10b6dd54131796ab0ed02c8e7a0818 /ghc/compiler/rename/RnIfaces.lhs | |
| parent | 96cf57e3ca14b3d9e6654a7780ea0b0ea4f5c0e8 (diff) | |
| download | haskell-8fbe28ca67a6c07575aee35bfade43e967ad792e.tar.gz | |
[project @ 2000-11-21 09:30:16 by simonpj]
Fix renamer bugs
Diffstat (limited to 'ghc/compiler/rename/RnIfaces.lhs')
| -rw-r--r-- | ghc/compiler/rename/RnIfaces.lhs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs index d1e4174635..e62b780ea4 100644 --- a/ghc/compiler/rename/RnIfaces.lhs +++ b/ghc/compiler/rename/RnIfaces.lhs @@ -213,22 +213,20 @@ slurpImpDecls source_fvs = traceRn (text "slurpImp" <+> fsep (map ppr (nameSetToList source_fvs))) `thenRn_` -- The current slurped-set records all local things - getSlurped `thenRn` \ source_binders -> - slurpSourceRefs source_binders source_fvs `thenRn` \ (decls, needed) -> + slurpSourceRefs source_fvs `thenRn` \ (decls, needed) -> -- Then get everything else closeDecls decls needed ------------------------------------------------------- -slurpSourceRefs :: NameSet -- Variables defined in source - -> FreeVars -- Variables referenced in source +slurpSourceRefs :: FreeVars -- Variables referenced in source -> RnMG ([RenamedHsDecl], FreeVars) -- Un-satisfied needs -- The declaration (and hence home module) of each gate has -- already been loaded -slurpSourceRefs source_binders source_fvs +slurpSourceRefs source_fvs = go_outer [] -- Accumulating decls emptyFVs -- Unsatisfied needs emptyFVs -- Accumulating gates |