Timing.Defaultval enter : ?args:(string * Catapult.Tracing.arg) list -> string -> unitenter name enters a new nested timed section called name.
exit name exits the current timed section called name. Sections must be exited in valid nested fashion.
val wrap :
?args:(string * Catapult.Tracing.arg) list ->
string ->
('a -> 'b) ->
'a ->
'bwrap name f x runs f x and measures it as a timed section called name.
val print : Format.formatter -> unitPretty-print current timing hierarchy.