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

Signed-off-by: Nathan Rebours <nathan.p.rebours@gmail.com>
ocaml-ppx · Jan 14, 2025 · a72b543 · a72b543
1 parent f4ba4c1
commit a72b543
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,13 +328,13 @@ 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 ->