ez_api.ws_js
EzWs
ez_api
ez_api.debug
ez_api.debug_js
ez_api.debug_unix
ez_api.encoding
ez_api.encoding_js
ez_api.ezjsonm
ez_api.ezjsonm_js
ez_api.ezjsonm_unix
ez_api.facebook_auth
ez_api.fetch
ez_api.fetch_lwt
ez_api.google_auth
ez_api.hash
ez_api.ifetch
ez_api.ifetch_lwt
ez_api.iserver_default
ez_api.ixhr
ez_api.js
ez_api.js_json
ez_api.lwt_js
ez_api.lwt_sys
ez_api.lwt_unix
ez_api.md5
ez_api.openAPI
ez_api.req
ez_api.req_default
ez_api.req_lwt
ez_api.req_lwt_default
ez_api.req_lwt_s
ez_api.req_s
ez_api.request
ez_api.request_lwt
ez_api.request_verbose
ez_api.sendgrid_encoding
ez_api.sendgrid_services
ez_api.server
ez_api.server_s
ez_api.server_session
ez_api.server_utils
ez_api.session
ez_api.session_client
ez_api.ws
ez_api.ws_default
ez_api.ws_server_cohttp
ez_api.ws_server_httpaf
ez_api.ws_server_httpun
ez_api.ws_types
ez_api.xhr
include EzWsCommon.S
type 'a rp = ('a, string) 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) result -> unit rp) -> EzAPI.base_url -> ('input, 'output, 'error, _) EzAPI.ws_service0 -> 'input ws rp