Message (async_log.async_log.kernel.Async_log

module T1 : sig ... end

type t = Core.Time_float.t T1.t

val create : 
  ?level:Level.t ->
  ?time:Core.Time_float.t ->
  ?tags:(string * string) list ->
  [ `Sexp of Core.Sexp.t | `String of string ] ->
  t

val time : t -> Core.Time_float.t

val level : t -> Level.t option

val set_level : t -> Level.t option -> t

val message : t -> string

val raw_message : t -> [ `String of string | `Sexp of Core.Sexp.t ]

val tags : t -> (string * string) list

val add_tags : t -> (string * string) list -> t

val to_write_only_text : t -> Core.Time_float.Zone.t -> string

module For_testing : sig ... end

module Stable : sig ... end