Sequencer (octez-evm-node-libs.Evm_node_lib

type tezlink_sandbox = {

chain_id : int;
funded_addresses : Tezos_base.TzPervasives.Signature.V1.public_key list;

}

type sandbox_config = {

init_from_snapshot : string option;
network : Evm_node_config.Configuration.supported_network option;
funded_addresses : Evm_node_lib_dev_encoding.Ethereum_types.address list;
parent_chain : Uri.t option;
disable_da_fees : bool;
kernel_verbosity : Events.kernel_log_level option;
tezlink : tezlink_sandbox option;

}

val install_finalizer_seq : 
  tx_container:'a Services_backend_sig.tx_container ->
  (unit -> unit Lwt.t) ->
  (unit -> unit Lwt.t) ->
  (unit -> unit Lwt.t) option ->
  Lwt_exit.clean_up_callback_id

val validate_and_add_etherlink_tx : 
  (module Services_backend_sig.S) ->
  tx_container:
    Evm_node_lib_dev_encoding.L2_types.evm_chain_family
      Services_backend_sig.tx_container ->
  string ->
  (unit, Tezos_base.TzPervasives.tztrace) Stdlib.result Lwt.t

val validate_and_add_tezlink_operation : 
  tx_container:
    Evm_node_lib_dev_encoding.L2_types.michelson_chain_family
      Services_backend_sig.tx_container ->
  string ->
  (unit, Tezos_base.TzPervasives.tztrace) Stdlib.result Lwt.t

val validate_and_add_tx : 
  (module Services_backend_sig.S) ->
  tx_container:'f Services_backend_sig.tx_container ->
  string ->
  unit Tezos_base.TzPervasives.tzresult Lwt.t

val loop_sequencer : 
  bool ->
  (module Services_backend_sig.S) ->
  tx_container:'f Services_backend_sig.tx_container ->
  ?sandbox_config:sandbox_config ->
  Evm_node_config.Configuration.time_between_blocks ->
  unit Tezos_base.TzPervasives.tzresult Lwt.t

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

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