+ 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_`
+