([> Cf_journal.Basic.level ] as 'a) #Cf_journal.basic_prioritizer ->
'->
(('#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) Pervasives.format4 -> 'd
  method enabled : '-> bool
  method error : ('e, unit, string, unit) Pervasives.format4 -> 'e
  method private virtual event : '-> string -> 'c
  method fail : ('f, unit, string, 'g) Pervasives.format4 -> 'f
  method info : ('h, unit, string, unit) Pervasives.format4 -> 'h
  method invalid : ('i, unit, string, 'j) Pervasives.format4 -> 'i
  method notice : ('k, unit, string, unit) Pervasives.format4 -> 'k
  method private put :
    ''m. '-> ('-> 'm) -> ('l, unit, string, 'm) format4 -> 'l
  method setlimit : '-> unit
  method warn : ('n, unit, string, unit) Pervasives.format4 -> 'n
end