refactor(xml): move InvalidStanza exception to Xml

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/sasl.ml b/lib/sasl.ml
index 0cb6b3e..4404f74 100644
--- a/lib/sasl.ml
+++ b/lib/sasl.ml
@@ -31,7 +31,7 @@ let send_auth_stanza (stream, push) localpart pass mechanism =
     let nsless = match stanza with
       | {namespace; attributes = []; local_name; children=rest}
            when namespace = Xmlns.sasl -> (local_name, rest)
-      | _ -> raise (InvalidStanza (Xml.element_to_string stanza))
+      | _ -> raise (Xml.InvalidStanza (Xml.element_to_string stanza))
     in
     let open Either in
     let parse_descriptive_text (s : (Xml.element, string) t list) =
@@ -45,7 +45,7 @@ let send_auth_stanza (stream, push) localpart pass mechanism =
        | ("success", [Right rest]) -> Ok (Some rest)
        | ("failure", [Left {local_name=error; children; _}]) ->
           Error (parse_sasl_error error, parse_descriptive_text children)
-       | _ -> raise (InvalidStanza (Xml.element_to_string stanza))
+       | _ -> raise (Xml.InvalidStanza (Xml.element_to_string stanza))
   in let stanza_list = [`Start_element
                           ((Xmlns.sasl, "auth"),
                            [(("", "xmlns"), Xmlns.sasl);