Effort

#

module Counter : sig

#

type t

#

val create : string -> t

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

#

type t

#

val to_string : ?limit:counter_set -> t -> string

#

val bin_t : t Core.Std.Bin_prot.Type_class.t

#

val bin_read_t : t Core.Std.Bin_prot.Read.reader

#

val __bin_read_t__ : (int -> t) Core.Std.Bin_prot.Read.reader

#

val bin_reader_t : t Core.Std.Bin_prot.Type_class.reader

#

val bin_size_t : t Core.Std.Bin_prot.Size.sizer

#

val bin_write_t : t Core.Std.Bin_prot.Write.writer

#

val bin_writer_t : t Core.Std.Bin_prot.Type_class.writer

end

#

val snap : t -> Counts.t

module Effort