501<->500 migration: review comments

Signed-off-by: Paul-Elliot <[email protected]>
ocaml-ppx · Sep 19, 2023 · baa3e81 · baa3e81
1 parent d3517c5
commit baa3e81
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/astlib/migrate_501_500.ml b/astlib/migrate_501_500.ml
@@ -792,15 +792,16 @@ and copy_module_expr_desc loc :
       let x1 =
         match x1.pmod_desc with
         | Pmod_structure [] ->
+           let loc = { x1.pmod_loc with loc_ghost = true } in
             let pmod_attributes =
               {
                 Ast_500.Parsetree.attr_name =
                   {
                     txt = "ppxlib.migration.keep_structure";
-                    loc = { x1.pmod_loc with loc_ghost = true };
+                    loc;
                   };
                 attr_payload = Ast_500.Parsetree.PStr [];
-                attr_loc = Location.none;
+                attr_loc = loc;
               }
               :: x1.pmod_attributes
             in