BatLog.Make_lev
Make your own level-based logger, like Easy
Easy
module L : Level_sig
module S : Config
val level : L.t ref
val output : S.t BatIO.output ref
val log : ?fp:string -> L.t -> string -> unit
val logf : ?fp:string -> L.t -> ('a, S.t BatIO.output, unit) format -> 'a