fix the order in the location list

MinaProtocol · Dec 1, 2023 · c86eced · c86eced
1 parent 717ff96
commit c86eced
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/lib/mina_ledger/sparse_ledger.ml b/src/lib/mina_ledger/sparse_ledger.ml
@@ -29,9 +29,10 @@ let of_ledger_subset_exn (oledger : Ledger.t) keys =
         in
         let loc = ref first_loc in
         first_loc
-        :: List.init (num_new_accounts - 1) ~f:(fun _ ->
-               loc := next_location_exn !loc ;
-               !loc )
+        :: ( List.init (num_new_accounts - 1) ~f:(fun _ ->
+                 loc := next_location_exn !loc ;
+                 !loc )
+           |> List.rev )
     in
     let merkle_paths =
       Ledger.merkle_path_batch oledger (empty_locations @ non_empty_locations)