([> Cf_journal.Basic.level ] as 'c) #Cf_journal.basic_prioritizer ->
'->
(('#Cf_journal.Basic.event as 'e) #Cf_journal.Basic.archiver as 'd) list ->
object
  val mutable archivers_ : 'd list
  val mutable limit_ : Basic.Priority.t
  method debug : ('a, unit, string, bool) Stdlib.format4 -> 'a
  method enabled : '-> bool
  method error : ('a, unit, string, unit) Stdlib.format4 -> 'a
  method private virtual event : '-> string -> 'e
  method fail : ('a, unit, string, 'b) Stdlib.format4 -> 'a
  method info : ('a, unit, string, unit) Stdlib.format4 -> 'a
  method invalid : ('a, unit, string, 'b) Stdlib.format4 -> 'a
  method notice : ('a, unit, string, unit) Stdlib.format4 -> 'a
  method private put :
    ''b. '-> ('-> 'b) -> ('a, unit, string, 'b) format4 -> 'a
  method setlimit : '-> unit
  method warn : ('a, unit, string, unit) Stdlib.format4 -> 'a
end