From e1ed6394c065e1afe7a4f3221bdf7b019d1325ed Mon Sep 17 00:00:00 2001 From: Clombrong Date: Wed, 25 Jun 2025 20:31:57 +0200 Subject: feat(portal_tcp): add MalformedStanza exception --- portal/tcp/portal_tcp.ml | 2 ++ test/native/dune | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/portal/tcp/portal_tcp.ml b/portal/tcp/portal_tcp.ml index 3722b63..d79c088 100644 --- a/portal/tcp/portal_tcp.ml +++ b/portal/tcp/portal_tcp.ml @@ -1,6 +1,8 @@ open Lwt.Syntax open Lwt_unix +exception MalformedStanza of Markup.location * Markup.Error.t + (** [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 diff --git a/test/native/dune b/test/native/dune index 36b5af5..895134a 100644 --- a/test/native/dune +++ b/test/native/dune @@ -1,3 +1,3 @@ (test (name native_hello) - (libraries portal_tcp)) + (libraries portal_tcp markup)) -- cgit v1.2.3