Mempool (tezos-protocol-023-PtSeouLo.Tezos_raw_protocol_023

type t

type validation_info

type conflict_handler =
  existing_operation:
    (Tezos_protocol_environment_023_PtSeouLo.Operation_hash.t * operation) ->
  new_operation:
    (Tezos_protocol_environment_023_PtSeouLo.Operation_hash.t * operation) ->
  [ `Keep | `Replace ]

type operation_conflict =

| Operation_conflict of {
1. existing : Tezos_protocol_environment_023_PtSeouLo.Operation_hash.t;
2. new_operation : Tezos_protocol_environment_023_PtSeouLo.Operation_hash.t;
}

type add_result =

| Added
| Replaced of {
1. removed : Tezos_protocol_environment_023_PtSeouLo.Operation_hash.t;
}
| Unchanged

type add_error =

| Validation_error of Tezos_protocol_environment_023_PtSeouLo.Error_monad.error Tezos_protocol_environment_023_PtSeouLo.Error_monad.trace
| Add_conflict of operation_conflict

type merge_error =

| Incompatible_mempool
| Merge_conflict of operation_conflict

val init : 
  Tezos_protocol_environment_023_PtSeouLo.Context.t ->
  Tezos_protocol_environment_023_PtSeouLo.Chain_id.t ->
  head_hash:Tezos_protocol_environment_023_PtSeouLo.Block_hash.t ->
  head:Tezos_protocol_environment_023_PtSeouLo.Block_header.shell_header ->
  (validation_info * t)
    Tezos_protocol_environment_023_PtSeouLo.Error_monad.tzresult
    Tezos_protocol_environment_023_PtSeouLo.Lwt.t

val encoding : t Tezos_protocol_environment_023_PtSeouLo.Data_encoding.t

val partial_op_validation : 
  ?check_signature:bool ->
  validation_info ->
  operation ->
  (unit ->
    unit Tezos_protocol_environment_023_PtSeouLo.Error_monad.tzresult)
    list
    Tezos_protocol_environment_023_PtSeouLo.Error_monad.tzresult
    Tezos_protocol_environment_023_PtSeouLo.Lwt.t

val add_valid_operation : 
  ?conflict_handler:conflict_handler ->
  t ->
  (Tezos_protocol_environment_023_PtSeouLo.Operation_hash.t * operation) ->
  (t * add_result, add_error)
    Tezos_protocol_environment_023_PtSeouLo.Pervasives.result

val add_operation : 
  ?check_signature:bool ->
  ?conflict_handler:conflict_handler ->
  validation_info ->
  t ->
  (Tezos_protocol_environment_023_PtSeouLo.Operation_hash.t * operation) ->
  (t * add_result, add_error)
    Tezos_protocol_environment_023_PtSeouLo.Pervasives.result
    Tezos_protocol_environment_023_PtSeouLo.Lwt.t

val remove_operation : 
  t ->
  Tezos_protocol_environment_023_PtSeouLo.Operation_hash.t ->
  t

val merge : 
  ?conflict_handler:conflict_handler ->
  t ->
  t ->
  (t, merge_error) Tezos_protocol_environment_023_PtSeouLo.Pervasives.result

val operations : 
  t ->
  operation Tezos_protocol_environment_023_PtSeouLo.Operation_hash.Map.t