package shared-block-ring

  1. Overview
  2. Docs
type msg = [
  1. | `Msg of string
]
module type BLOCK = Mirage_block.S
module type COMPARABLE = sig ... end
module type CSTRUCTABLE = sig ... end
type traced_operation = [
  1. | `Set of string * string * [ `Producer | `Consumer | `Suspend | `Suspend_ack ] * [ `Int64 of int64 | `Bool of bool ]
  2. | `Get of string * string * [ `Producer | `Consumer | `Suspend | `Suspend_ack ] * [ `Int64 of int64 | `Bool of bool ]
]
val __traced_operation_of_sexp__ : Sexplib0.Sexp.t -> traced_operation
val traced_operation_of_sexp : Sexplib0.Sexp.t -> traced_operation
val sexp_of_traced_operation : traced_operation -> Sexplib0.Sexp.t
type traced_operation_list = traced_operation list
val traced_operation_list_of_sexp : Sexplib0.Sexp.t -> traced_operation_list
val sexp_of_traced_operation_list : traced_operation_list -> Sexplib0.Sexp.t
module type LOG = sig ... end
module type RING = sig ... end
module type PRODUCER = sig ... end
module type CONSUMER = sig ... end
module type CLOCK = sig ... end
module type TIME = Mirage_time.S
module type JOURNAL = sig ... end