Module Maki_log

module Maki_log: sig .. end

Logs



type logger = {
   log : 'a.
int ->
((('a, Format.formatter, unit, unit, unit, unit) Pervasives.format6 -> 'a) ->
unit) ->
unit
;
}
val log : int -> string -> unit
val logf : int ->
((('a, Format.formatter, unit, unit, unit, unit) Pervasives.format6 -> 'a) ->
unit) ->
unit
Use like this: logf 1 (fun k->k "hello %s, 42=%d" "world" (41+1))
val default_logger : logger
val set_logger : logger -> unit
val set_level : int -> unit