Httpun_ws_common (ez_api.Httpun_ws

val (let$) : 
  ('a, 'b) Stdlib.result ->
  ('a -> ('c, 'b) Stdlib.result) ->
  ('c, 'b) Stdlib.result

module type S = sig ... end

val log : ?action:string -> string -> string option -> unit

val parse : string -> (string * string * int * string, string) Stdlib.result

val error_handler : 
  (('a, string) Stdlib.result -> 'b) ->
  [< `Exn of exn
  | `Handshake_failure of 'c
  | `Invalid_response_body_length of 'd
  | `Malformed_response of string ] ->
  'b

val send : content:string -> Httpun_ws.Wsd.t -> unit

val read_payload : payload:Httpun_ws.Payload.t -> (string -> unit) -> unit

val make_data : string -> Bigstringaf.t Httpun_ws.IOVec.t

module Make (S : S) : sig ... end