Module WsCommon

val ws_react : ?⁠onclose:(unit -> unit Lwt.t) -> (string -> ([< `binary of string | `none | `text of string ][> `handler_error of string ]) Stdlib.result Lwt.t) -> (string -> unit) -> (Websocket.Frame.t option -> unit) Stdlib.ref -> Websocket.Frame.t -> unit
val ws_loop : (((EzAPIServerUtils.Directory.ws_frameEzAPIServerUtils.Directory.handler_error) Stdlib.result -> unit) -> 'a) -> (Websocket.Frame.t option -> unit) -> 'a
val ping_table : (string, CalendarLib.Fcalendar.Precise.t) Stdlib.Hashtbl.t
val check_ping : ?⁠step:float -> string -> string -> bool
val ping_pong : ?⁠step:float -> Uuidm.t -> (Websocket.Frame.t option -> unit) Stdlib.ref -> (unit -> unit Lwt.t) * (string -> unit)
val close : (Websocket.Frame.t option -> 'a) -> 'a