diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-26 16:51:23 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-26 21:40:53 +0200 |
| commit | bd254f33b81287f2c282b7ec5becd4f7c838549f (patch) | |
| tree | 3cab06cade35cd435522e7c1a6d9619e6365ff41 /lib/stream.ml | |
| parent | 3dd884417ad78993bf6f3dc59349f20bd3fddfa0 (diff) | |
refactor(xml): move InvalidStanza exception to Xml
Diffstat (limited to 'lib/stream.ml')
| -rw-r--r-- | lib/stream.ml | 3 |
1 files changed, 1 insertions, 2 deletions
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]. *) |