diff options
| -rw-r--r-- | portal/tcp/portal.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml index f0148b9..3abf00e 100644 --- a/portal/tcp/portal.ml +++ b/portal/tcp/portal.ml @@ -152,10 +152,8 @@ let socket_to_stream (s : 'a sock) = (** [connect domain] is a Portal.t communicating with the XMPP server located at [domain] via plaintext TCP. It simply chains the two previous functions. *) -let connect (domain : string) : t Lwt.t = - let+ s = tcp_socket domain - in let stream, push = socket_to_stream s - in {stream; push; _socket=Plain s} +let connect (domain : string) : socket Lwt.t = + let+ s = tcp_socket domain in Plain s (** [upgrade_to_tls fd] returns a promise to an [Tls_lwt.Unix.t] socket that wraps [fd] with STARTTLS. *) |