'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) Pervasives.format4 -> 'd
method setlimit : 'a -> unit
end