shuttle 0.9.1 · OCaml Package

val log : Async_unix.Log.t Core.Lazy.t

val level : unit -> Async_unix.Log.Level.t

val set_level : Async_unix.Log.Level.t -> unit

val set_output : Async_unix.Log.Output.t list -> unit

val get_output : unit -> Async_unix.Log.Output.t list

val set_on_error : [ `Raise | `Call of Core.Error.t -> unit ] -> unit

val get_time_source : unit -> Async_kernel.Synchronous_time_source.t

val set_time_source : Async_kernel.Synchronous_time_source.t -> unit

val get_transform : 
  unit ->
  (Async_unix.Log.Message.t -> Async_unix.Log.Message.t) option

val set_transform : 
  (Async_unix.Log.Message.t -> Async_unix.Log.Message.t) option ->
  unit

val would_log : Async_unix.Log.Level.t option -> bool

val set_level_via_param : unit -> unit Core.Command.Param.t

Functions that operate on a given log. In this case they operate on a single log global to the module.

val raw : 
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  ('a, unit, string, unit) Core.format4 ->
  'a

val info : 
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  ('a, unit, string, unit) Core.format4 ->
  'a

val error : 
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  ('a, unit, string, unit) Core.format4 ->
  'a

val debug : 
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  ('a, unit, string, unit) Core.format4 ->
  'a

val flushed : unit -> unit Async_kernel.Deferred.t

val rotate : unit -> unit Async_kernel.Deferred.t

val printf : 
  ?level:Async_unix.Log.Level.t ->
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  ('a, unit, string, unit) Core.format4 ->
  'a

val raw_s : 
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  Core.Sexp.t ->
  unit

val info_s : 
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  Core.Sexp.t ->
  unit

val error_s : 
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  Core.Sexp.t ->
  unit

val debug_s : 
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  Core.Sexp.t ->
  unit

val sexp : 
  ?level:Async_unix.Log.Level.t ->
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  Core.Sexp.t ->
  unit

val string : 
  ?level:Async_unix.Log.Level.t ->
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  string ->
  unit

val message : Async_unix.Log.Message.t -> unit

val surround_s : 
  on_subsequent_errors:[ `Call of exn -> unit | `Log | `Raise ] ->
  ?level:Async_unix.Log.Level.t ->
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  Core.Sexp.t ->
  (unit -> 'a Async_kernel.Deferred.t) ->
  'a Async_kernel.Deferred.t

val surroundf : 
  on_subsequent_errors:[ `Call of exn -> unit | `Log | `Raise ] ->
  ?level:Async_unix.Log.Level.t ->
  ?time:Time_float_unix.t ->
  ?tags:(string * string) list ->
  ('a,
    unit,
    string,
    (unit -> 'b Async_kernel.Deferred.t) ->
    'b Async_kernel.Deferred.t)
    Core.format4 ->
  'a

module For_testing : sig ... end

package shuttle