diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-08-17 17:10:23 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-08-17 17:10:23 +0200 |
| commit | 75b58e46539621a55a05f65863a4c2e64635c351 (patch) | |
| tree | f97bf27098dedcc93ea8ab4b85a67aeb273c51bd /portal/tcp | |
| parent | fe54b2376534b63593cb84fe66fd52f9c1a5c841 (diff) | |
refactor(portal-tcp): make connect return a socket
Diffstat (limited to 'portal/tcp')
| -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. *) |