fix compilation

Author: dkijania

src/test/archive/archive_node_tests/upgrade_archive.ml

@@ -8,7 +8,7 @@ type t = Mina_automation_fixture.Archive.after_bootstrap
 
 let test_case (test_data : t) =
   let open Deferred.Let_syntax in
-  let daemon = Daemon.default in
+  let daemon = Daemon.default () in
   let archive_uri = test_data.archive.config.postgres_uri in
   let temp_dir = test_data.temp_dir in
   let%bind precomputed_blocks =
@@ -25,9 +25,9 @@ let test_case (test_data : t) =
 
   Archive.Process.start_logging test_data.archive ~log_file ;
   let%bind () =
-    Daemon.archive_blocks_from_files daemon
-      ~archive_address:test_data.archive.config.server_port
-      ~format:Archive_blocks.Precomputed precomputed_blocks
+    Daemon.archive_blocks_from_files daemon.executor
+      ~archive_address:test_data.archive.config.server_port ~format:`Precomputed
+      precomputed_blocks
   in
 
   let%bind () =

src/test/mina_automation/daemon.ml

@@ -188,13 +188,13 @@ let archive_blocks t ~archive_address ~format blocks =
         ]
       @ blocks )
 
+type t = { config : Config.t; executor : Executor.t }
+
 let archive_blocks_from_files t ~archive_address ~format ?(sleep = 5) blocks =
   Deferred.List.iter blocks ~f:(fun block ->
       let%bind _ = archive_blocks t ~archive_address ~format [ block ] () in
       after (Time.Span.of_sec (Float.of_int sleep)) )
 
-type t = { config : Config.t; executor : Executor.t }
-
 let of_config config = { config; executor = Executor.AutoDetect }
 
 let default () = { config = Config.default (); executor = Executor.AutoDetect }