From 9da921ec23e88fd9fd36a759127b9a058c4eee70 Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Tue, 24 Jun 2025 14:42:47 +0200
Subject: fix(sasl): use Xmlns.sasl in unwrapping

---
 lib/sasl.ml | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'lib/sasl.ml')

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
-- 
cgit v1.2.3