diff options
| -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" |