Module `Log.Blocking`

module Output : sig ... end

val level : unit -> Level.t
val set_level : Level.t -> unit
val set_output : Output.t -> unit
val set_time_source : Async_unix__.Import.Synchronous_time_source.t -> unit
val set_transform : (Message.t -> Message.t) option -> unit
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 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 surround_s : ?⁠level:Level.t -> ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> Core.Sexp.t -> (unit -> 'a) -> 'a
val surroundf : ?⁠level:Level.t -> ?⁠time:Core.Time.t -> ?⁠tags:(string * string) list -> ('a, unit, string, (unit -> 'b) -> 'b) Core.format4 -> 'a