Module Server

type t
val listen : < Cap.network.. > -> ?lines:bool -> bind:string -> port:int -> unit -> t * int
type event =
  1. | Joined of int
  2. | Message of int * string
  3. | Left of int
val step : t -> event list
val send : t -> int -> string -> unit
val flush : t -> unit
val close : t -> int -> unit
val wait : t -> float -> unit
val clients : t -> int list