sig type t val to_string : BatLog.Level_sig.t -> string val default_level : BatLog.Level_sig.t val compare : BatLog.Level_sig.t -> BatLog.Level_sig.t -> int end