diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-08-17 16:59:09 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-08-17 16:59:09 +0200 |
| commit | fe54b2376534b63593cb84fe66fd52f9c1a5c841 (patch) | |
| tree | bea2181556aa7051b1070a99c15b8ca2e2924d12 | |
| parent | d7addba4ba9b34a70cf21bdf38d979a8f4bb8aea (diff) | |
feat(portal-ws): remove domain field from portal type
| -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. *) |