diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-18 22:45:53 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-18 22:45:53 +0200 |
| commit | 2645c33dfb42b924d3369b25807742bd15e4bc67 (patch) | |
| tree | 28aa38ca1f206ccc48095aeb5a62bd4f1bba2950 | |
| parent | c90fe3ed3f35ea01b0d1299a0e721a5ab902ca11 (diff) | |
refactor(sasl): move xmlns to its own module
| -rw-r--r-- | lib/sasl.ml | 7 | ||||
| -rw-r--r-- | lib/xmlns.ml | 1 |
2 files changed, 4 insertions, 4 deletions
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] diff --git a/lib/xmlns.ml b/lib/xmlns.ml new file mode 100644 index 0000000..c9f7b1f --- /dev/null +++ b/lib/xmlns.ml @@ -0,0 +1 @@ +let sasl = "urn:ietf:params:xml:ns:xmpp-sasl" |