Up

Module Effort

Signature

module Counter : sig .. end
val track : Counter.t -> (unit -> 'a) -> 'a
val incr : Counter.t -> unit
val get : Counter.t -> int
type t
type counter_set = t
val create : Counter.t list -> t
val reset_to_zero : t -> unit
module Counts : sig .. end
val snap : t -> Counts.t