diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-08-14 22:56:13 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-08-15 00:14:00 +0200 |
| commit | cbdbb587236f8d747ae5baf4b4f92e9458dff4f1 (patch) | |
| tree | f3cd4c27529eea1621eed6554ccf18006ddd8665 /portal/ws/portal.ml | |
| parent | e4e8a81f030dc599b1d5dc84b9725667c3872124 (diff) | |
feat(portal): add opaque domain type to portal
Diffstat (limited to 'portal/ws/portal.ml')
| -rw-r--r-- | portal/ws/portal.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/portal/ws/portal.ml b/portal/ws/portal.ml index 5ad82c3..6b42216 100644 --- a/portal/ws/portal.ml +++ b/portal/ws/portal.ml @@ -7,6 +7,12 @@ let sjs = Js.to_string type socket = WebSockets.webSocket Js.t +(** Opaque domain name type. Currently a string. *) +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; |