do not deduplicate precomputed blocks after untarring

Author: dkijania

src/test/mina_automation/network_data.ml

@@ -51,4 +51,4 @@ let untar_precomputed_blocks t output =
   let precomputed_blocks_zip = precomputed_blocks_zip t in
   let%bind _ = Utils.untar ~archive:precomputed_blocks_zip ~output in
   let%bind array = Sys.readdir output in
-  Deferred.return (Array.to_list array |> Utils.dedup_and_sort_archive_files)
+  Deferred.return (Array.to_list array |> Utils.sort_archive_files)

src/test/mina_automation/utils.ml

@@ -11,15 +11,21 @@ let sed ~search ~replacement ~input =
 let untar ~archive ~output =
   Util.run_cmd_exn "." "tar" [ "-xf"; archive; "-C"; output ]
 
+let precomputed_blocks_comparator left right =
+  let scan_height name = Scanf.sscanf name "%_s@-%d-%_s" Fn.id in
+  let left_height = scan_height left in
+  let right_height = scan_height right in
+  Int.compare left_height right_height
+
+let sort_archive_files files : string list =
+  files
+  |> List.sort ~compare:(fun left right ->
+         precomputed_blocks_comparator left right )
+
 let dedup_and_sort_archive_files files : string list =
   files
   |> List.dedup_and_sort ~compare:(fun left right ->
-         let scan_height name = Scanf.sscanf name "%_s@-%d-%_s" Fn.id in
-
-         let left_height = scan_height left in
-         let right_height = scan_height right in
-
-         Int.compare left_height right_height )
+         precomputed_blocks_comparator left right )
 
 let force_kill process =
   Process.send_signal process Core.Signal.kill ;