From bd254f33b81287f2c282b7ec5becd4f7c838549f Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Thu, 26 Jun 2025 16:51:23 +0200
Subject: refactor(xml): move InvalidStanza exception to Xml

---
 lib/stream.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib/stream.ml')

diff --git a/lib/stream.ml b/lib/stream.ml
index 07bb21c..cc15c4b 100644
--- a/lib/stream.ml
+++ b/lib/stream.ml
@@ -2,7 +2,6 @@ open Lwt.Syntax
 open Markup
 
 exception ClosedStream
-exception InvalidStanza of string
 
 type auth_mechanism =
   | PLAIN
@@ -34,7 +33,7 @@ let get (stream : (signal, async) stream) : Xml.element Lwt.t =
   let* signal = next stream
   in match Xml.tree signal with
      | Some xml -> Lwt.return xml
-     | None -> Lwt.fail (InvalidStanza (signal |> write_xml |> to_string))
+     | None -> Lwt.fail (Xml.InvalidStanza (signal |> write_xml |> to_string))
 
 (** [parse_features el] is a [stream_features] record with all the features of the
     [<stream:features>] stanza contained in [el]. *)
-- 
cgit v1.2.3