Sequencer (octez-evm-node-libs.Evm_node_lib

type sandbox_config = {

init_from_snapshot : string option;
network : Evm_node_config.Configuration.supported_network option;
funded_addresses : Tezosx.address list;
parent_chain : Uri.t option;
disable_da_fees : bool;
kernel_verbosity : Events.kernel_log_level option;
with_runtimes : (Tezosx.runtime * int option) list;
michelson_hard_gas_limit_per_block : int option;
(*
Sandbox-only override for Tezlink_constants's hard_gas_limit_per_block. Plumbed into Evm_ro_context.t so that downstream consumers (constants RPC, Tezlink prevalidation) observe it without needing a global mutable cell.
*)

}

val install_finalizer_seq : 
  (unit -> unit Lwt.t) ->
  (unit -> unit Lwt.t) ->
  (unit -> unit Lwt.t) option ->
  (unit -> unit Lwt.t) ->
  Lwt_exit.clean_up_callback_id

val validate_and_add_etherlink_tx : 
  string ->
  (unit, Tezos_base.TzPervasives.tztrace) Stdlib.result Lwt.t

val validate_and_add_tezlink_operation : 
  string ->
  (unit, Tezos_base.TzPervasives.tztrace) Stdlib.result Lwt.t

val validate_and_add_tx : 
  Broadcast.common_transaction ->
  unit Tezos_base.TzPervasives.tzresult Lwt.t

val loop_sequencer : 
  bool ->
  ?sandbox_config:sandbox_config ->
  rpc_timeout:float ->
  instant_confirmations:bool ->
  Evm_node_config.Configuration.time_between_blocks ->
  unit Tezos_base.TzPervasives.tzresult Lwt.t

val main : 
  cctxt:Tezos_client_base.Client_context.wallet ->
  ?genesis_timestamp:Tezos_base.TzPervasives.Time.Protocol.t ->
  configuration:Evm_node_config.Configuration.t ->
  ?kernel:Pvm_types.kernel ->
  ?sandbox_config:sandbox_config ->
  unit ->
  (unit, Tezos_base.TzPervasives.tztrace) Stdlib.result Lwt.t