diff options
| -rw-r--r-- | portal/tcp/portal.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml index 5ec78d6..f0148b9 100644 --- a/portal/tcp/portal.ml +++ b/portal/tcp/portal.ml @@ -19,7 +19,6 @@ type 'a sock = { type socket = Plain of Lwt_unix.file_descr sock | Tls of Tls_lwt.Unix.t sock type t = { - domain : domain; mutable stream : (signal, async) stream; mutable push : (signal, sync) stream option -> unit; mutable _socket : socket; @@ -156,7 +155,7 @@ let socket_to_stream (s : 'a sock) = let connect (domain : string) : t Lwt.t = let+ s = tcp_socket domain in let stream, push = socket_to_stream s - in {domain; stream; push; _socket=Plain s} + in {stream; push; _socket=Plain s} (** [upgrade_to_tls fd] returns a promise to an [Tls_lwt.Unix.t] socket that wraps [fd] with STARTTLS. *) |