Metrics (archive_lib.Archive

val time : 
  label:string ->
  ( unit -> 'a Async_kernel__Deferred.t ) ->
  'b Async_kernel__Deferred.t

val default_missing_blocks_width : int

module Max_block_height : sig ... end

module Missing_blocks : sig ... end

module Unparented_blocks : sig ... end

val log_error : 
  logger:Logger.t ->
  ( (module Caqti_async.CONNECTION),
    [< Caqti_error.t Decode_rejected Encode_failed Encode_rejected Request_failed Request_rejected Response_failed Response_rejected ] as 'a )
    Caqti_async.Pool.t ->
  Mina_metrics.Archive.t ->
  ( (module Caqti_async.CONNECTION) ->
    Mina_metrics.Archive.t ->
    ( unit, 'b ) Async.Deferred.Result.t ) ->
  unit Async_kernel__Deferred.t

val update : 
  logger:Logger.t ->
  missing_blocks_width:int ->
  ( (module Caqti_async.CONNECTION),
    [< Caqti_error.t Decode_rejected Encode_failed Encode_rejected Request_failed Request_rejected Response_failed Response_rejected ] )
    Caqti_async.Pool.t ->
  Mina_metrics.Archive.t ->
  unit Async.Deferred.t