update usages

Author: dkijania

src/test/archive/archive_node_tests/archive_precomputed_blocks_test.ml

@@ -114,7 +114,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 output = test_data.temp_dir in
   let%bind precomputed_blocks =
@@ -127,9 +127,9 @@ let test_case (test_data : t) =
   let log_file = output ^ "/precomputed_blocks_test.log" in
   Archive.Process.start_logging test_data.archive ~log_file ;
   let%bind () =
-    Daemon.archive_blocks_from_files daemon
+    Daemon.archive_blocks_from_files daemon.executor
       ~archive_address:test_data.archive.config.server_port
-      ~format:Archive_blocks.Precomputed precomputed_blocks
+      ~format:`Precomputed precomputed_blocks
   in
 
   let%bind () =

src/test/archive/patch_archive_test/patch_archive_test.ml

@@ -113,9 +113,9 @@ let main ~db_uri ~network_data_folder () =
       ~archive_uri:target_db ~format:Extensional
   in
 
-  let%bind missing_blocks_auditor_path = Missing_blocks_auditor.path in
+  let%bind missing_blocks_auditor_path = Missing_blocks_auditor.path () in
 
-  let%bind archive_blocks_path = Archive_blocks.path in
+  let%bind archive_blocks_path = Archive_blocks.path () in
 
   let config =
     { Missing_blocks_guardian.Config.archive_uri = Uri.of_string target_db
@@ -124,7 +124,7 @@ let main ~db_uri ~network_data_folder () =
     ; run_mode = Run
     ; missing_blocks_auditor = missing_blocks_auditor_path
     ; archive_blocks = archive_blocks_path
-    ; block_format = Extensional
+    ; block_format = `Extensional
     }
   in