summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/sasl.ml8
1 files changed, 2 insertions, 6 deletions
diff --git a/lib/sasl.ml b/lib/sasl.ml
index 8206309..d72f11d 100644
--- a/lib/sasl.ml
+++ b/lib/sasl.ml
@@ -30,12 +30,8 @@ let send_auth_stanza (stream, push) localpart pass mechanism =
| Some s -> s
in
let nsless = match stanza with
- | {
- namespace = "urn:ietf:params:xml:ns:xmpp-sasl";
- attributes = [];
- local_name;
- children=rest;
- } -> (local_name, rest)
+ | {namespace; attributes = []; local_name; children=rest}
+ when namespace = Xmlns.sasl -> (local_name, rest)
| _ -> raise (InvalidStanza (Xml.element_to_string stanza))
in
let open Either in