sig
type 'a t
type comet_scope =
[ `Client_process of Eliom_common.scope_hierarchy | `Site ]
val create :
?scope:[< Eliom_comet.Channel.comet_scope ] ->
?name:string -> ?size:int -> 'a Lwt_stream.t -> 'a Eliom_comet.Channel.t
val create_from_events :
?scope:[< Eliom_comet.Channel.comet_scope ] ->
?name:string -> ?size:int -> 'a React.event -> 'a Eliom_comet.Channel.t
val create_unlimited :
?scope:Eliom_common.client_process_scope ->
?name:string -> 'a Lwt_stream.t -> 'a Eliom_comet.Channel.t
val create_newest :
?name:string -> 'a Lwt_stream.t -> 'a Eliom_comet.Channel.t
val external_channel :
?history:int ->
?newest:bool ->
prefix:string -> name:string -> unit -> 'a Eliom_comet.Channel.t
val wait_timeout :
?scope:Eliom_common.client_process_scope -> float -> unit Lwt.t
val get_wrapped :
'a Eliom_comet.Channel.t -> 'a Eliom_comet_base.wrapped_channel
end