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;