`'level #Cf_journal.T.prioritizer ->
'level ->
(('level #Cf_journal.T.event as 'd) #Cf_journal.T.archiver as 'c) list ->
object
val mutable archivers_ : 'c list
val mutable limit_ : Priority.t
method enabled : 'level -> bool
method private virtual event : 'level -> string -> 'd
method private put :
'a 'b.
'level -> ('d -> 'b) -> ('a, unit, string, 'b) Pervasives.format4 -> 'a
method setlimit : 'level -> unit
end`