Binary_tree.Make
module Account : sig ... end
module Hash : Merkle_ledger.Intf.Hash with type account := Account.t
module Depth : sig ... end
type t =
| Node of {
hash : Hash.t;
left : t;
right : t;
}
| Leaf of Hash.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val max_depth : int
val get_hash : t -> Hash.t
val set_accounts : Account.t list -> t
val get_inner_hash_at_addr_exn : t -> Direction.t list -> Hash.t