sig
type 'a logger = ('a, unit, string, unit) format4 -> 'a
module type LOGGER =
sig
val set_lev : Syslog.lev -> unit
val get_lev : unit -> Syslog.lev
val may_log : Syslog.lev -> bool
val generic : Syslog.lev -> 'a logger
val debug : 'a logger
val info : 'a logger
val notice : 'a logger
val warning : 'a logger
val err : 'a logger
val crit : 'a logger
val alert : 'a logger
val emerg : 'a logger
end
module type SPEC = sig val logger : Syslog.lev -> string -> unit end
module MakeLogger :
functor (Spec : SPEC) ->
sig
val set_lev : Syslog.lev -> unit
val get_lev : unit -> Syslog.lev
val may_log : Syslog.lev -> bool
val generic : Syslog.lev -> 'a logger
val debug : 'a logger
val info : 'a logger
val notice : 'a logger
val warning : 'a logger
val err : 'a logger
val crit : 'a logger
val alert : 'a logger
val emerg : 'a logger
end
module MakeChannel :
functor (ChannelSpec : sig val oc : out_channel end) ->
sig
val set_lev : Syslog.lev -> unit
val get_lev : unit -> Syslog.lev
val may_log : Syslog.lev -> bool
val generic : Syslog.lev -> 'a logger
val debug : 'a logger
val info : 'a logger
val notice : 'a logger
val warning : 'a logger
val err : 'a logger
val crit : 'a logger
val alert : 'a logger
val emerg : 'a logger
end
module Stderr :
sig
val set_lev : Syslog.lev -> unit
val get_lev : unit -> Syslog.lev
val may_log : Syslog.lev -> bool
val generic : Syslog.lev -> 'a logger
val debug : 'a logger
val info : 'a logger
val notice : 'a logger
val warning : 'a logger
val err : 'a logger
val crit : 'a logger
val alert : 'a logger
val emerg : 'a logger
end
module Syslog :
sig
val set_lev : Syslog.lev -> unit
val get_lev : unit -> Syslog.lev
val may_log : Syslog.lev -> bool
val generic : Syslog.lev -> 'a logger
val debug : 'a logger
val info : 'a logger
val notice : 'a logger
val warning : 'a logger
val err : 'a logger
val crit : 'a logger
val alert : 'a logger
val emerg : 'a logger
end
module Ignore :
sig
val set_lev : Syslog.lev -> unit
val get_lev : unit -> Syslog.lev
val may_log : Syslog.lev -> bool
val generic : Syslog.lev -> 'a logger
val debug : 'a logger
val info : 'a logger
val notice : 'a logger
val warning : 'a logger
val err : 'a logger
val crit : 'a logger
val alert : 'a logger
val emerg : 'a logger
end
end