Sequencer (mavkit-evm-node-libs.Evm_node_lib

module MakeBackend (Ctxt : sig ... end) : Services_backend_sig.Backend

module Make (Ctxt : sig ... end) : sig ... end

val install_finalizer_seq : 
  Mavryk_rpc_http_server.RPC_server.server ->
  Mavryk_rpc_http_server.RPC_server.server option ->
  Lwt_exit.clean_up_callback_id

val callback_log : 
  Mavryk_rpc_http_server.RPC_server.server ->
  Cohttp_lwt_unix.Server.conn ->
  Cohttp.Request.t ->
  Cohttp_lwt.Body.t ->
  Cohttp_lwt_unix.Server.response_action Lwt.t

val start_server : 
  Evm_node_config.Configuration.t ->
  directory:unit Mavryk_rpc_http_server.RPC_server.Directory.t ->
  private_info:
    (unit Mavryk_rpc_http_server.RPC_server.Directory.t * int) option ->
  (Mavryk_rpc_http_server.RPC_server.server
   * Mavryk_rpc_http_server.RPC_server.server option,
    'a)
    Stdlib.result
    Lwt.t

val loop_sequencer : 
  Evm_node_config.Configuration.sequencer ->
  (unit, Mavryk_error_monad.TzCore.error list) Stdlib.result Lwt.t

val main : 
  data_dir:string ->
  rollup_node_endpoint:Uri.t ->
  max_blueprints_lag:int ->
  max_blueprints_ahead:int ->
  max_blueprints_catchup:int ->
  catchup_cooldown:int ->
  ?genesis_timestamp:Mavryk_base.TzPervasives.Time.Protocol.t ->
  cctxt:Mavryk_client_base.Client_context.wallet ->
  sequencer:Mavryk_client_base.Client_keys.sk_uri ->
  configuration:Evm_node_config.Configuration.t ->
  ?kernel:string ->
  unit ->
  (unit, Mavryk_base.TzPervasives.tztrace) Stdlib.result Lwt.t