diff options
Diffstat (limited to 'lib/sasl.ml')
| -rw-r--r-- | lib/sasl.ml | 4 |
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); |