Module Make.Ws

module IO : sig ... end
type t = Websocket.Connection.Make(Io).t
val create : ?read_buf:Stdlib.Buffer.t -> ?write_buf:Stdlib.Buffer.t -> mode:Websocket.Connection.mode -> Cohttp.Request.t -> IO.ic -> IO.oc -> t
val send : t -> Websocket.Frame.t -> unit IO.t
val send_multiple : t -> Websocket.Frame.t list -> unit IO.t
val recv : t -> Websocket.Frame.t IO.t
val req : t -> Cohttp.Request.t
val upgrade_connection : ?read_buf:Stdlib.Buffer.t -> ?write_buf:Stdlib.Buffer.t -> Cohttp.Request.t -> ( t -> unit IO.t ) -> [> `Expert of Cohttp.Response.t * ( IO.ic -> IO.oc -> unit IO.t ) ]