From cbdbb587236f8d747ae5baf4b4f92e9458dff4f1 Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Thu, 14 Aug 2025 22:56:13 +0200
Subject: feat(portal): add opaque domain type to portal

---
 portal/tcp/portal.ml | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'portal/tcp/portal.ml')

diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml
index c88ac98..a3f163e 100644
--- a/portal/tcp/portal.ml
+++ b/portal/tcp/portal.ml
@@ -4,6 +4,12 @@ open Markup
 
 type socket = Plain of Lwt_unix.file_descr | Tls of Tls_lwt.Unix.t
 
+(** Opaque domain name type. Currently a string, might be subject to change. *)
+type domain = string
+
+let domain_of_string (s : string) : domain = s
+let domain_to_string (s : domain) : string = s
+
 type t = {
     mutable stream : (signal, async) stream;
     mutable push : (signal, sync) stream option -> unit;
-- 
cgit v1.2.3