diff options
| -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 |