fmt

Author: dkijania

src/test/archive/archive_node_tests/archive_precomputed_blocks_test.ml

@@ -128,8 +128,8 @@ let test_case (test_data : t) =
   Archive.Process.start_logging test_data.archive ~log_file ;
   let%bind () =
     Daemon.archive_blocks_from_files daemon.executor
-      ~archive_address:test_data.archive.config.server_port
-      ~format:`Precomputed precomputed_blocks
+      ~archive_address:test_data.archive.config.server_port ~format:`Precomputed
+      precomputed_blocks
   in
 
   let%bind () =

src/test/mina_automation/missing_blocks_guardian.ml

@@ -34,7 +34,12 @@ module Config = struct
       ; ("DB_PORT", Int.to_string (Option.value_exn (Uri.port t.archive_uri)))
       ; ("DB_NAME", path_no_leading_slash)
       ; ("PGPASSWORD", Option.value_exn (Uri.password t.archive_uri))
-      ; ("BLOCKS_FORMAT", (match t.block_format with `Precomputed -> "precomputed" | `Extensional -> "extensional"))
+      ; ( "BLOCKS_FORMAT"
+        , match t.block_format with
+          | `Precomputed ->
+              "precomputed"
+          | `Extensional ->
+              "extensional" )
       ; ("MISSING_BLOCKS_AUDITOR", t.missing_blocks_auditor)
       ; ("ARCHIVE_BLOCKS", t.archive_blocks)
       ]