'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