From baa3e81fd8f1bf0401db68d213bae57240f2dfec Mon Sep 17 00:00:00 2001
From: Paul-Elliot <peada@free.fr>
Date: Tue, 19 Sep 2023 09:08:24 +0200
Subject: [PATCH] 501<->500 migration: review comments

Signed-off-by: Paul-Elliot <peada@free.fr>
---
 astlib/migrate_501_500.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/astlib/migrate_501_500.ml b/astlib/migrate_501_500.ml
index da4759ab..b77cc75a 100644
--- 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