Profiler (astral.Astral_internal.Profiler)

val tms_zero : Unix.process_times

val (--) : Unix.process_times -> Unix.process_times -> Unix.process_times

val start : Unix.process_times Stdlib.ref

val stop : Unix.process_times Stdlib.ref

val self : (string * Unix.process_times) list Stdlib.ref

val reset : unit -> unit

val add : string -> unit

val finish : unit -> unit

val compute_stats : 
  unit ->
  (string * Unix.process_times * Unix.process_times) list

val total_time : unit -> Unix.process_times

val report : unit -> unit

Json output

val json_total : unit -> [> `Assoc of (string * [> `Float of float ]) list ]

val json_phases : 
  unit ->
  [> `List of
       [> `Assoc of
            (string * [> `Assoc of (string * [> `Float of float ]) list ]) list ]
         list ]

val json_repr : 
  unit ->
  [> `Assoc of
       (string
        * [> `Assoc of (string * [> `Float of float ]) list
          | `List of
            [> `Assoc of
                 (string * [> `Assoc of (string * [> `Float of float ]) list ])
                   list ]
              list ])
         list ]