Mempool (mavryk-protocol-alpha.Mavryk_raw_protocol

type t

type validation_info

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

type operation_conflict =

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

type add_result =

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

type add_error =

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

type merge_error =

| Incompatible_mempool
| Merge_conflict of operation_conflict

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

val encoding : t Mavryk_protocol_environment_alpha.Data_encoding.t

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

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

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

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