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