1 2 3 4
type t = { snapshot : Concepts.Hash.hash ; root : Handle.t ; status : unit -> [`Live | `Cancelled | `Exhausted] }