fix(sasl): use Xmlns.sasl in unwrapping

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