瀏覽代碼

when building remoting proxy method, use position of API method, so `@position` display queries point to it

Dan Korostelev 9 年之前
父節點
當前提交
c12d0025d6
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      codegen.ml

+ 1 - 1
codegen.ml

@@ -192,7 +192,7 @@ let extend_remoting ctx c t p async prot =
 				f_type = if async then None else ftype;
 				f_expr = Some (EBlock [expr],p);
 			} in
-			{ cff_name = f.cff_name; cff_pos = p; cff_doc = None; cff_meta = []; cff_access = [APublic]; cff_kind = FFun fd } :: acc
+			{ cff_name = f.cff_name; cff_pos = f.cff_pos; cff_doc = None; cff_meta = []; cff_access = [APublic]; cff_kind = FFun fd } :: acc
 		| _ -> acc
 	in
 	let decls = List.map (fun d ->