sig
  exception Channel_full
  exception Channel_closed
  val is_active : unit -> [ `Active | `Idle | `Inactive ]
  val activate : unit -> unit
  val set_handle_exn_function : (?exn:exn -> unit -> unit Lwt.t) -> unit
  module Configuration :
    sig
      type t
      val new_configuration : unit -> Eliom_comet.Configuration.t
      val drop_configuration : Eliom_comet.Configuration.t -> unit
      val set_always_active : Eliom_comet.Configuration.t -> bool -> unit
      val set_timeout : Eliom_comet.Configuration.t -> float -> unit
      val set_active_until_timeout :
        Eliom_comet.Configuration.t -> bool -> unit
      val set_time_between_requests :
        Eliom_comet.Configuration.t -> float -> unit
      val set_time_between_requests_when_idle :
        Eliom_comet.Configuration.t -> float * float * float -> unit
    end
  module Channel : sig type 'a t = 'a Lwt_stream.t end
  val register :
    ?wake:bool -> 'a Eliom_comet_base.wrapped_channel -> 'a Lwt_stream.t
  val restart : unit -> unit
  val close : 'a Eliom_comet_base.wrapped_channel -> unit
  val force_link : unit
  val handle_exn : ?exn:exn -> unit -> unit Lwt.t
  val section : Lwt_log_core.section
end