([> Cf_journal.Basic.level_t ] as 'a) #Cf_journal.basic_prioritizer ->
'a ->
(('a #Cf_journal.Basic.event as 'c) #Cf_journal.Basic.archiver as 'b) list ->
object
val mutable archivers_ : 'b list
val mutable limit_ : Basic.Priority.t
method debug : ('d, unit, string, bool) format4 -> 'd
method enabled : 'a -> bool
method error : ('e, unit, string, unit) format4 -> 'e
method private virtual event : 'a -> string -> 'c
method fail : ('f, unit, string, 'g) format4 -> 'f
method info : ('h, unit, string, unit) format4 -> 'h
method invalid : ('i, unit, string, 'j) format4 -> 'i
method private put :
'k 'l. 'a -> ('c -> 'l) -> ('k, unit, string, 'l) format4 -> 'k
method setlimit : 'a -> unit
method warn : ('m, unit, string, unit) format4 -> 'm
end