Use ppxlib.migration namespace and attach loc to ppxlib.effects_syntax

Signed-off-by: Nathan Rebours <[email protected]>
ocaml-ppx · Jan 13, 2025 · 09c44f7 · 09c44f7
1 parent 0a1fbc5
commit 09c44f7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/astlib/migrate_502_503.ml b/astlib/migrate_502_503.ml
@@ -326,7 +326,7 @@ and copy_pattern_desc :
   | Ast_502.Parsetree.Ppat_exception x0 ->
       Ast_503.Parsetree.Ppat_exception (copy_pattern x0)
   | Ast_502.Parsetree.Ppat_extension (
-     {txt = "ppxlib.effect_syntax"; _},
+     {txt = "ppxlib.migration.ppat_effect"; _},
      PPat ({ ppat_desc = Ppat_tuple [e; c ]; _}, None)) ->
       Ast_503.Parsetree.Ppat_effect (copy_pattern e, copy_pattern c)
   | Ast_502.Parsetree.Ppat_extension x0 ->

diff --git a/astlib/migrate_503_502.ml b/astlib/migrate_503_502.ml
@@ -328,12 +328,12 @@ and copy_pattern_desc loc :
       Ast_502.Parsetree.Ppat_exception (copy_pattern x0)
   | Ast_503.Parsetree.Ppat_effect (e,c) ->
      Ast_502.Parsetree.Ppat_extension (
-         Location.{txt = "ppxlib.effect_syntax"; loc = Location.none},
+         Location.{txt = "ppxlib.migration.ppat_effect"; loc},
          Ast_502.Parsetree.PPat (
              {ppat_desc = Ppat_tuple [copy_pattern e; copy_pattern c];
               ppat_attributes = [];
               ppat_loc_stack = [];
-              ppat_loc = Location.none},
+              ppat_loc = loc},
              None))
   | Ast_503.Parsetree.Ppat_extension x0 ->
       Ast_502.Parsetree.Ppat_extension (copy_extension x0)