Block_storage
type t
module Root_block_status : sig ... end
val open_ : logger:Logger.t -> string -> t
val get_status : t -> Consensus.Body_reference.t -> Root_block_status.t option
val read_body : t -> Consensus.Body_reference.t -> Staged_ledger_diff.Body.t option