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