feat(portal): add opaque domain type to portal

1 files changed, 6 insertions, 0 deletions

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;