Messages.Event
include sig ... end
type t = private Message.t
val t_of_js : Ojs.t -> t
val t_to_js : t -> Ojs.t
val event : t -> string
val create : event:string -> ?body:'a -> unit -> t