Archive_client (mina_lib.Mina_lib.Archive

val dispatch_precomputed_block : 
  ?max_tries:int ->
  Core.Host_and_port.t Cli_lib.Flag.Types.with_name ->
  Mina_block.Precomputed.t ->
  unit Async.Deferred.Or_error.t

val dispatch_extensional_block : 
  ?max_tries:int ->
  Core.Host_and_port.t Cli_lib.Flag.Types.with_name ->
  Archive_lib.Extensional.Block.t ->
  unit Async.Deferred.Or_error.t

val run : 
  logger:Logger.t ->
  precomputed_values:Precomputed_values.t ->
  frontier_broadcast_pipe:
    Transition_frontier.t option Pipe_lib.Broadcast_pipe.Reader.t ->
  Core.Host_and_port.t Cli_lib.Flag.Types.with_name ->
  unit