Module EzWs

include EzWsCommon.S
type 'a rp = ('a, string) result Lwt.t
type 'a action = {
  1. send : 'a -> unit rp;
  2. close : int option -> unit rp;
}
type 'a ws = {
  1. action : 'a action;
  2. 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) result -> unit rp) -> EzAPI.base_url -> ('input, 'output, 'error, _) EzAPI.ws_service0 -> 'input ws rp