Просмотр исходного кода

add created proxy as dependency

Simon Krajewski 13 лет назад
Родитель
Сommit
8f7c8a7de4
1 измененных файлов с 1 добавлено и 0 удалено
  1. 1 0
      codegen.ml

+ 1 - 0
codegen.ml

@@ -171,6 +171,7 @@ let extend_remoting ctx c t p async prot =
 		| _ -> d
 		| _ -> d
 	) decls in
 	) decls in
 	let m = Typeload.type_module ctx (t.tpackage,new_name) file decls p in
 	let m = Typeload.type_module ctx (t.tpackage,new_name) file decls p in
+	add_dependency ctx.current m;
 	try
 	try
 		List.find (fun tdecl -> snd (t_path tdecl) = new_name) m.m_types
 		List.find (fun tdecl -> snd (t_path tdecl) = new_name) m.m_types
 	with Not_found ->
 	with Not_found ->