From e9c9de288d9934a252dcef58b935ce6e145a65cd Mon Sep 17 00:00:00 2001 From: Clombrong Date: Fri, 15 Aug 2025 00:12:39 +0200 Subject: feat(portal): add domain to portal type --- portal/tcp/portal.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'portal/tcp/portal.ml') diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml index a3f163e..b776efc 100644 --- a/portal/tcp/portal.ml +++ b/portal/tcp/portal.ml @@ -11,6 +11,7 @@ let domain_of_string (s : string) : domain = s let domain_to_string (s : domain) : string = s type t = { + domain : domain; mutable stream : (signal, async) stream; mutable push : (signal, sync) stream option -> unit; mutable _socket : socket; @@ -173,7 +174,7 @@ let connect (domain : string) : t Lwt.t = let+ s = tcp_socket domain in let _socket = Plain s in let stream, push = socket_to_stream _socket - in {stream; push; _socket=_socket} + in {domain; stream; push; _socket=_socket} (** [upgrade_to_tls fd] returns a promise to an [Tls_lwt.Unix.t] socket that wraps [fd] with STARTTLS. *) -- cgit v1.2.3