Module `WsHttpaf`

val ws : Httpaf.Reqd.t -> Websocket_httpaf_lwt.file_descr -> ?⁠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 -> (Httpaf.Response.t * [ `write ] Httpaf.Body.t, 'a) Result.result Lwt.t