X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRename.lhs;h=41abf2ef518e1f839b2a61e29c4a2edd8261e51b;hb=d00cf5b8622c0715a038129c6887bb677baa5996;hp=fefa9dc0b5184ffbbf4af163fa9950469b0e080f;hpb=4adc89ca6a497c9b2a9028ee2a62be2491d52f09;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index fefa9dc..41abf2e 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -22,7 +22,7 @@ import RnMonad
 import RnExpr		( rnExpr )
 import RnNames		( getGlobalNames, exportsFromAvail )
 import RnSource		( rnSourceDecls, rnTyClDecl, rnIfaceRuleDecl, rnInstDecl )
-import RnIfaces		( slurpImpDecls, mkImportInfo, 
+import RnIfaces		( slurpImpDecls, mkImportInfo, recordLocalSlurps,
 			  getInterfaceExports, closeDecls,
 			  RecompileRequired, outOfDate, recompileRequired
 			)
@@ -563,7 +563,10 @@ closeIfaceDecls dflags hit hst pcs
 	needed = unionManyNameSets (map ruleDeclFVs rule_decls) `unionNameSets`
 		 unionManyNameSets (map instDeclFVs inst_decls) `unionNameSets`
 		 unionManyNameSets (map tyClDeclFVs tycl_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 decls needed
 \end{code}