浏览代码

add created proxy as dependency

Simon Krajewski 13 年之前
父节点
当前提交
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
 	) decls in
 	let m = Typeload.type_module ctx (t.tpackage,new_name) file decls p in
+	add_dependency ctx.current m;
 	try
 		List.find (fun tdecl -> snd (t_path tdecl) = new_name) m.m_types
 	with Not_found ->