Module EzWs

include EzWsCommon.S
type 'a rp = ('a, string) Stdlib.result Lwt.t
type 'a action = {
send : 'a -> unit rp;
close : int option -> unit rp;
}
type 'a ws = {
action : 'a action;
conn : unit rp;
}
val connect : ?⁠msg:string -> ?⁠protocols:string list -> ?⁠error:(string action -> string -> unit) -> react:(string action -> string -> unit rp) -> string -> string ws rp
val connect0 : ?⁠msg:string -> ?⁠protocols:string list -> ?⁠error:(string action -> string -> unit) -> react:('input action -> ('output, 'error) Stdlib.result -> unit rp) -> EzAPI.base_url -> ('input, 'output, 'error, _) EzAPI.ws_service0 -> 'input ws rp