diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-25 20:31:57 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-25 20:31:57 +0200 |
| commit | e1ed6394c065e1afe7a4f3221bdf7b019d1325ed (patch) | |
| tree | 3bac382eb3da25634b3a22b4507b86093fb4b1c1 | |
| parent | 754d6996d3938c690458d075bbf0fc7e7f777762 (diff) | |
feat(portal_tcp): add MalformedStanza exception
| -rw-r--r-- | portal/tcp/portal_tcp.ml | 2 | ||||
| -rw-r--r-- | test/native/dune | 2 |
2 files changed, 3 insertions, 1 deletions
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)) |