|
@@ -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 ->
|