Module Logger


module Logger: sig .. end
Another logging library.

type message = [ `Debug | `Error | `Fatal | `Info | `Warn ] * string 
type size = [ `Kb of int64 | `Mb of int64 | `Unlimited ] 
type 'a t 
type default_t = message t 
val create : ?max_size:size ->
?mode:Core.Std.Unix.file_perm ->
?max_archives:[ `Max of int | `Unlimited ] ->
?full_callback:(string Core.Std.Squeue.t -> unit) ->
?filter:('a -> bool) ->
message_to_string:('a -> string) -> string -> 'a t
val create_default : ?max_size:size ->
?mode:Core.Std.Unix.file_perm ->
?max_archives:[ `Max of int | `Unlimited ] ->
?full_callback:(string Core.Std.Squeue.t -> unit) ->
string -> message t
val log : 'a t -> 'a -> unit
val filter : 'a t -> ('a -> bool) -> unit
val clear_filter : 'a t -> unit
val maybe_log : 'a t option -> 'a -> unit
val timestamp : unit -> string