Module Log

module Log: sig .. end

module Debug: sig .. end

include Debug

val level : int Pervasives.ref

val classic_display : bool Pervasives.ref

val internal_display : Display.display option Pervasives.ref

val failsafe_display : Display.display lazy_t

val (!-) : Display.display option Pervasives.ref -> Display.display

val init : string option -> unit

val raw_dprintf : int -> ('a, Format.formatter, unit) Pervasives.format -> 'a

val dprintf : int -> ('a, Format.formatter, unit, unit, unit, unit) format6 -> 'a

val eprintf : ('a, Format.formatter, unit, unit, unit, unit) format6 -> 'a

val update : unit -> unit

val event : ?pretend:bool -> string -> string -> Tags.t -> unit

val display : (Pervasives.out_channel -> unit) -> unit

val finish : ?how:[ `Error | `Quiet | `Success ] -> unit -> unit