Module Log

module Log: sig .. end
Logging

type level = [ `always | `debug | `error | `fatal | `info | `trace | `warn ] 
Verbosity levels - from BatLog
val level_leq : [< `always | `debug | `error | `fatal | `info | `trace | `warn ] ->
[< `always | `debug | `error | `fatal | `info | `trace | `warn ] -> bool
val debug_mode : bool Pervasives.ref
val default_debug : bool Pervasives.ref
val debug_phases : string list Pervasives.ref
val verbosity_level : level Pervasives.ref
val colorize : bool Pervasives.ref
val level_of_string : string -> [> `always | `debug | `error | `fatal | `info | `trace | `warn ]
val loggers : (string, level Pervasives.ref) Hashtbl.t
val set_verbosity_level : string -> level -> unit
module Make: 
functor (M : sig
val name : string
end) -> sig .. end
include struct ... end
val debug_formatter : Format.formatter
val debug : string -> unit
val debug_pp : (Format.formatter -> 'a -> 'b) -> 'a -> unit
val debugf : ('a, Format.formatter, unit, unit, unit, unit) Pervasives.format6 -> 'a
val errorf : ('a, Format.formatter, unit, unit, unit, unit) Pervasives.format6 -> 'a
val error : ('a, Format.formatter, unit, unit, unit, unit) Pervasives.format6 -> 'a
val error_pp : (Format.formatter -> 'a -> unit) -> 'a -> unit
val fatalf : ('a, Format.formatter, unit, unit, unit, 'b) Pervasives.format6 -> 'a
val fatal : ('a, Format.formatter, unit, unit, unit, 'b) Pervasives.format6 -> 'a
val invalid_argf : ('a, unit, string, 'b) Pervasives.format4 -> 'a
val phases_ht : (string, float) Hashtbl.t
val time : string -> ('a -> 'b) -> 'a -> 'b
val phase : string -> ('a -> 'b) -> 'a -> 'b
val start_time : float
val print_stats : unit -> unit