From 2645c33dfb42b924d3369b25807742bd15e4bc67 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Wed, 18 Jun 2025 22:45:53 +0200 Subject: refactor(sasl): move xmlns to its own module --- lib/sasl.ml | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lib/sasl.ml') diff --git a/lib/sasl.ml b/lib/sasl.ml index c745aaa..803dd60 100644 --- a/lib/sasl.ml +++ b/lib/sasl.ml @@ -43,10 +43,9 @@ let send_auth_stanza (stream, push) localpart pass mechanism = | `Start_element ((_, "success"), _) :: rest -> Ok (parse_additional_info rest) | `Start_element ((_, "failure"), _) :: rest -> Error (parse_error_stanza rest) | _ -> raise (InvalidStanza string_stanza) - in let xmlns = "urn:ietf:params:xml:ns:xmpp-sasl" in - let stanza_list = [`Start_element - ((xmlns, "auth"), - [(("", "xmlns"), xmlns); + in let stanza_list = [`Start_element + ((Xmlns.sasl, "auth"), + [(("", "xmlns"), Xmlns.sasl); (("", "mechanism"), show_auth_mechanism mechanism)]); `Text [gen_auth mechanism]; `End_element] -- cgit v1.2.3