Module Log.Make_global

This functor can be called to generate "singleton" logging modules.

Parameters

Signature

val log : t Core.Lazy.t
val level : unit -> Level.t
val set_level : Level.t -> unit
val set_output : Output.t list -> unit
val get_output : unit -> Output.t list
val set_on_error : [ `Raise | `Call of Core.Error.t -> unit ] -> unit
val get_time_source : unit -> Async_unix__.Import.Synchronous_time_source.t
val set_time_source : Async_unix__.Import.Synchronous_time_source.t -> unit
val get_transform : unit -> (Message.t -> Message.t) option
val set_transform : (Message.t -> Message.t) option -> unit
val would_log : Level.t option -> bool
val set_level_via_param : unit -> unit Core.Command.Param.t
val raw : ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> ('a, unit, string, unit) Core.format4 -> 'a
val info : ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> ('a, unit, string, unit) Core.format4 -> 'a
val error : ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> ('a, unit, string, unit) Core.format4 -> 'a
val debug : ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> ('a, unit, string, unit) Core.format4 -> 'a
val flushed : unit -> unit Async_unix__.Import.Deferred.t
val rotate : unit -> unit Async_unix__.Import.Deferred.t
val printf : ?⁠level:Level.t -> ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> ('a, unit, string, unit) Core.format4 -> 'a
val raw_s : ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> Core.Sexp.t -> unit
val info_s : ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> Core.Sexp.t -> unit
val error_s : ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> Core.Sexp.t -> unit
val debug_s : ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> Core.Sexp.t -> unit
val sexp : ?⁠level:Level.t -> ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> Core.Sexp.t -> unit
val string : ?⁠level:Level.t -> ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> string -> unit
val message : Message.t -> unit
val surround_s : ?⁠level:Level.t -> ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> Core.Sexp.t -> (unit -> 'a Async_unix__.Import.Deferred.t) -> 'a Async_unix__.Import.Deferred.t
val surroundf : ?⁠level:Level.t -> ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> ('a, unit, string, (unit -> 'b Async_unix__.Import.Deferred.t) -> 'b Async_unix__.Import.Deferred.t) Core.format4 -> 'a