Async_log.MessageSourceinclude module type of Async_log_kernel.Messageval create :
?level:Async_log_kernel.Level.t ->
?time:Core.Time_float.t ->
?tags:(string * string) list ->
[ `Sexp of Core.Sexp.t | `String of string ] ->
Core.Time_float.t T1.tval set_level :
Core.Time_float.t T1.t ->
Async_log_kernel.Level.t option ->
Core.Time_float.t T1.t