Sapling_storage.Commitments
val init : Raw_context.t -> Storage.Sapling.id -> Raw_context.t Mavryk_protocol_environment_alpha.Lwt.t
val default_root : Mavryk_protocol_environment_alpha.Sapling.Hash.t
val get_root : Raw_context.t -> Storage.Sapling.id -> (Raw_context.t * Mavryk_protocol_environment_alpha.Sapling.Hash.t) Mavryk_protocol_environment_alpha.Error_monad.tzresult Mavryk_protocol_environment_alpha.Lwt.t
val add : Raw_context.t -> Storage.Sapling.id -> Mavryk_protocol_environment_alpha.Sapling.Commitment.t list -> int64 -> (Raw_context.t * int) Mavryk_protocol_environment_alpha.Error_monad.tzresult Mavryk_protocol_environment_alpha.Lwt.t
val get_from : Raw_context.t -> Storage.Sapling.id -> int64 -> Mavryk_protocol_environment_alpha.Sapling.Commitment.t list Mavryk_protocol_environment_alpha.Error_monad.tzresult Mavryk_protocol_environment_alpha.Lwt.t