type level = | Quiet| App| Error| Warning| Info| Debug
val level : unit -> levelval set_level : level -> unitval level_to_string : level -> stringtype !'a log = ('a, unit) msgf -> unitval kmsg : (unit -> 'b) -> level -> ('a, 'b) msgf -> 'bval if_error :
?level:level ->
?header:string ->
use:'a ->
('a, string) result ->
'aval if_error' :
?level:level ->
?header:string ->
use:'a ->
('a, string) result ->
('a, 'b) resultval if_error_pp :
?level:level ->
?header:string ->
'b Fmt.t ->
use:'a ->
('a, 'b) result ->
'aval err_count : unit -> intval warn_count : unit -> inttype kmsg = {kmsg : 'a 'b. (unit -> 'b) -> level -> ('a, 'b) msgf -> 'b;
}val set_kmsg : kmsg -> unit