2
0
Эх сурвалжийг харах

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

Dan Korostelev 9 жил өмнө
parent
commit
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 ->