diff options
Diffstat (limited to 'lib/sasl.ml')
| -rw-r--r-- | lib/sasl.ml | 7 |
1 files changed, 3 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] |