Up

module Tracing

: sig
#
val active : hook:(Sexplib.Sexp.t -> unit) -> (unit -> 'a) -> 'a
#
val sexp : tag:string -> Sexplib.Sexp.t Lazy.t -> unit
#
val sexps : tag:string -> Sexplib.Sexp.t Lazy.t list -> unit
#
val sexpf : tag:string -> f:('a -> Sexplib.Sexp.t) -> 'a -> unit
#
val sexpfs : tag:string -> f:('a -> Sexplib.Sexp.t) -> 'a list -> unit
#
val cs : tag:string -> Cstruct.t -> unit
#
val css : tag:string -> Cstruct.t list -> unit
end