diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-26 12:07:49 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-26 21:40:44 +0200 |
| commit | 37d47541083c3eaf3ea9f6c3445e8ba926ee609c (patch) | |
| tree | 53c5f1ce958de109d0bea898a7cc61201f531020 | |
| parent | d3bb6df8d8a728a10dfa6c23328c03824a24f602 (diff) | |
feat(portal): add socket type
| -rw-r--r-- | portal/portal.mli | 2 | ||||
| -rw-r--r-- | portal/tcp/portal.ml | 2 | ||||
| -rw-r--r-- | portal/ws/portal.ml | 2 |
3 files changed, 6 insertions, 0 deletions
diff --git a/portal/portal.mli b/portal/portal.mli index dea8b38..b46a00f 100644 --- a/portal/portal.mli +++ b/portal/portal.mli @@ -4,6 +4,8 @@ exception MalformedStanza of location * Error.t type t = (signal, async) stream * ((signal, sync) stream option -> unit) +type socket + (** This is the XML namespace of the underlying element stream. You can rely on it on your code, as an escape hatch, but you should probably not, diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml index 290975c..bfb2cb7 100644 --- a/portal/tcp/portal.ml +++ b/portal/tcp/portal.ml @@ -4,6 +4,8 @@ open Markup type t = (signal, async) stream * ((signal, sync) stream option -> unit) +type socket = file_descr + let xmlns = "http://etherx.jabber.org/streams" exception MalformedStanza of Markup.location * Markup.Error.t diff --git a/portal/ws/portal.ml b/portal/ws/portal.ml index 5cfc88a..f14a2ab 100644 --- a/portal/ws/portal.ml +++ b/portal/ws/portal.ml @@ -7,6 +7,8 @@ let sjs = Js.to_string type t = (signal, async) stream * ((signal, sync) stream option -> unit) +type socket = WebSockets.webSocket Js.t + let xmlns = "urn:ietf:params:xml:ns:xmpp-framing" (* sic. XEP-0156: "host-meta files MUST be fetched only over HTTPS". I don't make the |