Preserve location when migrating ocaml.ppx.context attr

Signed-off-by: Nathan Rebours <[email protected]>
ocaml-ppx · Mar 18, 2024 · 7d03610 · 7d03610
1 parent 993b85c
commit 7d03610
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/astlib/migrate_502_501.ml b/astlib/migrate_502_501.ml
@@ -38,7 +38,7 @@ let rec concat_list_lit left right =
 
 let migrate_ppx_context_load_path expr =
   let open Ast_502.Parsetree in
-  let loc = Location.none in
+  let loc = expr.pexp_loc in
   match expr.pexp_desc with
   | Pexp_tuple [ visible; hidden ] ->
       let migration_attr =