aboutsummaryrefslogtreecommitdiff
path: root/portal/tcp
diff options
context:
space:
mode:
authorClombrong <cromblong@egregore.fun>2025-06-26 00:13:15 +0200
committerClombrong <cromblong@egregore.fun>2025-06-26 00:13:15 +0200
commitc1c26cb5ef451e782a0c2fc7fb5f68ecc25dc571 (patch)
tree4bb21f026ebc03e4790e4d6777f6b92205b7a4eb /portal/tcp
parentb5c3950f38d032869c9cdceec1fffdb497719abb (diff)
feat(portal_tcp): add stanza_close
Diffstat (limited to 'portal/tcp')
-rw-r--r--portal/tcp/portal_tcp.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/portal/tcp/portal_tcp.ml b/portal/tcp/portal_tcp.ml
index a7c61a0..a50450d 100644
--- a/portal/tcp/portal_tcp.ml
+++ b/portal/tcp/portal_tcp.ml
@@ -31,6 +31,8 @@ let stanza_open ?from domain : (signal, sync) stream =
`Comment ""]
in stanza |> of_list
+let stanza_close : (signal, sync) stream = [`End_element] |> Markup.of_list
+
(** [xmpp_port domain] is the port where [domain]'s XMPP server is hosted.
Currently, it falls back to 5222 (always), but should use SRV records in the near