Commit 996df630 authored by sof's avatar sof
Browse files

[project @ 2002-04-08 19:28:39 by sof]

renameExtCore: bring locally defined names into scope before closing up
parent 7f8848c7
......@@ -221,6 +221,13 @@ renameExtCore dflags hit hst pcs this_module
rnSourceDecls emptyRdrEnv emptyAvailEnv
emptyLocalFixityEnv
InterfaceMode local_decls `thenRn` \ (rn_local_decls, source_fvs) ->
let
tycl_decls = [d | (TyClD d) <- rn_local_decls ]
local_names = foldl add emptyNameSet tycl_decls
add names decl = addListToNameSet names (map fst (tyClDeclSysNames decl ++ tyClDeclNames decl))
in
recordLocalSlurps local_names `thenRn_`
closeDecls rn_local_decls source_fvs `thenRn` \ final_decls ->
-- print everything qualified.
let print_unqualified = const False in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment