sig type t val start : Store.t -> t Lwt.t val stop : t -> unit Lwt.t val list : t -> Task.t list val peek : t -> Task.t option val peek_s : t -> Task.t Lwt.t end