diff options
Diffstat (limited to 'portal/tcp/portal.ml')
| -rw-r--r-- | portal/tcp/portal.ml | 6 |
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; |