diff options
Diffstat (limited to 'lib/sasl.ml')
| -rw-r--r-- | lib/sasl.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/sasl.ml b/lib/sasl.ml index edab467..800d02e 100644 --- a/lib/sasl.ml +++ b/lib/sasl.ml @@ -11,7 +11,7 @@ type sasl_error = | NotAuthorized | MalformedRequest -let read_sasl_error = function +let parse_sasl_error = function | "not-authorized" -> NotAuthorized | "malformed-request" -> MalformedRequest | _ -> failwith "Unsupported SASL error returned by the server." @@ -32,12 +32,12 @@ let send_auth_stanza (stream, push) localpart pass mechanism = | `Start_element ((_, "text"), []) :: `Text desc :: _ -> Some ("en", String.concat "" desc) | _ -> None in - let parse_sasl_error = function - | `Start_element ((_, error), _) :: `End_element :: rest -> (read_sasl_error error, parse_descriptive_text rest) + let parse_error_stanza = function + | `Start_element ((_, error), _) :: `End_element :: rest -> (parse_sasl_error error, parse_descriptive_text rest) | _ -> raise (InvalidStanza string_stanza) in match stanza with | `Start_element ((_, "success"), _) :: rest -> Ok (parse_additional_info rest) - | `Start_element ((_, "failure"), _) :: rest -> Error (parse_sasl_error 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 |