Module `WsCohttp`

val ws : Cohttp.Request.t -> ?⁠onclose:(unit -> unit Lwt.t) -> ?⁠step:float -> react:(string -> ([< `binary of string | `none | `text of string ], [> `handler_error of string ]) Stdlib.result Lwt.t) -> bg:(((EzAPIServerUtils.Directory.ws_frame, EzAPIServerUtils.Directory.handler_error) Stdlib.result -> unit) -> unit Lwt.t) -> Uuidm.t -> (Cohttp_lwt_unix.Server.response_action, 'a) Result.result Lwt.t