module Message:sig
..end
type
t
typety =
[ `Msg ]
val create : ?ty:ty ->
?time:string ->
?host:string ->
?sender:string ->
?facility:string ->
?pid:string ->
?uid:string ->
?gid:string ->
?level:string ->
?msg:string -> ?extra:(string * string) list -> unit -> t