sig
module Channels :
sig
exception Too_many_virtual_channels
exception Non_unique_channel_name
type t
type chan_id = string
val create : ?name:string -> unit -> Ocsigen_comet.Channels.t
val write :
Ocsigen_comet.Channels.t ->
string * Ocsigen_stream.outcome Lwt.u option -> unit
val listeners : Ocsigen_comet.Channels.t -> int
val get_id : Ocsigen_comet.Channels.t -> Ocsigen_comet.Channels.chan_id
end
module Security :
sig
val set_timeout : ?reset:bool -> float -> unit
val deactivate : unit -> unit
val activate : unit -> unit
val activated : unit -> bool
end
end