lwt 2.4.5 · OCaml Package

type level =

| Debug
| Info
| Notice
| Warning
| Error
| Fatal

type logger

type section

val string_of_level : level -> string

val load_rules : string -> unit

val add_rule : string -> level -> unit

val append_rule : string -> level -> unit

val log : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  level:level ->
  string ->
  unit Lwt.t

val log_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  level:level ->
  ('a, unit, string, unit Lwt.t) Pervasives.format4 ->
  'a

val ign_log : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  level:level ->
  string ->
  unit

val ign_log_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  level:level ->
  ('a, unit, string, unit) Pervasives.format4 ->
  'a

val debug : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit Lwt.t

val debug_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit Lwt.t) Pervasives.format4 ->
  'a

val ign_debug : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit

val ign_debug_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit) Pervasives.format4 ->
  'a

val info : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit Lwt.t

val info_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit Lwt.t) Pervasives.format4 ->
  'a

val ign_info : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit

val ign_info_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit) Pervasives.format4 ->
  'a

val notice : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit Lwt.t

val notice_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit Lwt.t) Pervasives.format4 ->
  'a

val ign_notice : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit

val ign_notice_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit) Pervasives.format4 ->
  'a

val warning : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit Lwt.t

val warning_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit Lwt.t) Pervasives.format4 ->
  'a

val ign_warning : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit

val ign_warning_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit) Pervasives.format4 ->
  'a

val error : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit Lwt.t

val error_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit Lwt.t) Pervasives.format4 ->
  'a

val ign_error : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit

val ign_error_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit) Pervasives.format4 ->
  'a

val fatal : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit Lwt.t

val fatal_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit Lwt.t) Pervasives.format4 ->
  'a

val ign_fatal : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  string ->
  unit

val ign_fatal_f : 
  ?exn:exn ->
  ?section:section ->
  ?location:(string * int * int) ->
  ?logger:logger ->
  ('a, unit, string, unit) Pervasives.format4 ->
  'a

module Section : sig ... end

type template = string

val render : 
  buffer:Buffer.t ->
  template:template ->
  section:section ->
  level:level ->
  message:string ->
  unit

val location_key : (string * int * int) Lwt.key

exception Logger_closed

val make : 
  output:(section -> level -> string list -> unit Lwt.t) ->
  close:(unit -> unit Lwt.t) ->
  logger

val close : logger -> unit Lwt.t

val default : logger Pervasives.ref

val broadcast : logger list -> logger

val dispatch : (section -> level -> logger) -> logger

val null : logger

package lwt