X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRename.lhs;h=f1c00dd6871e51d01e7ff98644cf57f9a5d4d0ef;hb=996df630f0c58d151cbe1300d62900e66ea8d40e;hp=0122c0e945663b45d9eb66e2bde532c749278d10;hpb=7f8848c7bb521af7907d7d4866f91e3464f0f72e;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 0122c0e..f1c00dd 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -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