type error = [ | Httpaf.Client_connection.error| `Handshake_failure of Httpaf.Response.t * [ `read ] Httpaf.Body.t ]type input_handlers = {frame : opcode:Websocket.Opcode.t ->
is_fin:bool ->
Bigstringaf.t ->
off:int ->
len:int ->
unit;eof : unit -> unit;}val connect :
nonce:string ->
?headers:Httpaf.Headers.t ->
sha1:(string -> string) ->
error_handler:(error -> unit) ->
websocket_handler:(Wsd.t -> input_handlers) ->
string ->
tval create :
?error_handler:(Wsd.t -> [ `Exn of exn ] -> unit) ->
(Wsd.t -> input_handlers) ->
tval next_read_operation : t -> [ `Read | `Yield | `Close ]val read : t -> Bigstringaf.t -> off:int -> len:int -> intval read_eof : t -> Bigstringaf.t -> off:int -> len:int -> intval yield_reader : t -> (unit -> unit) -> unitval report_write_result : t -> [ `Ok of int | `Closed ] -> unitval yield_writer : t -> (unit -> unit) -> unitval report_exn : t -> exn -> unitval is_closed : t -> boolval shutdown : t -> unit