sig
type 'a t
val create :
?scope:[< Eliom_comet.Channel.comet_scope ] ->
?name:string -> ?size:int -> 'a Deriving_Json.t -> 'a Eliom_bus.t
val stream : 'a Eliom_bus.t -> 'a Lwt_stream.t
val write : 'a Eliom_bus.t -> 'a -> unit
end