fix(sasl): rename read_sasl_error to parse_sasl_error

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