module Message:sig
..end
typeprint_func =
string -> unit
val set_print_handler : (string -> unit) -> print_func
typelog_level =
[ `CRITICAL
| `DEBUG
| `ERROR
| `FLAG_FATAL
| `FLAG_RECURSION
| `INFO
| `MESSAGE
| `WARNING ]
val log_level : log_level -> int
type
log_handler
val set_log_handler : domain:string ->
levels:log_level list ->
(level:int -> string -> unit) -> log_handler
val remove_log_handler : log_handler -> unit
val handle_criticals : domain:string -> unit