dfedcd9
1 2 3 4 5 6 7 8
val over : root:Protocols.Handle.t -> ?budget:int -> ?cancelled:(unit -> bool) -> unit -> Protocols.Context.t val remaining : Protocols.Context.t -> int option