include EzWsEioTypes.S
type 'a r = ('a, string) Stdlib.resulttype 'a action = {send : 'a -> unit r;close : int option -> unit r;
}type 'a ws = {action : 'a action;conn : unit r Eio.Promise.t;
}val connect :
?msg:string ->
?protocols:string list ->
?error:(string action -> string -> unit) ->
net:[> [ `Generic | `Unix ] Eio.Net.ty ] Eio.Std.r ->
sw:Eio.Switch.t ->
react:(string action -> string -> unit r) ->
string ->
string ws rval connect0 :
?msg:string ->
?protocols:string list ->
?error:(string action -> string -> unit) ->
net:[> [ `Generic | `Unix ] Eio.Net.ty ] Eio.Std.r ->
sw:Eio.Switch.t ->
react:('input action -> ('output, 'error) Stdlib.result -> unit r) ->
EzAPI.base_url ->
('input, 'output, 'error, _) EzAPI.ws_service0 ->
'input ws r