diff options
Diffstat (limited to 'lib/auth.ml')
| -rw-r--r-- | lib/auth.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/auth.ml b/lib/auth.ml index aa533a0..450c89b 100644 --- a/lib/auth.ml +++ b/lib/auth.ml @@ -21,6 +21,7 @@ let send_auth_stanza (stream, push) jid pass mechanism = | _ -> None and parse_descriptive_text = function | `Start_element ((_, "text"), [((_, "lang"), lang)]) :: `Text desc :: _ -> Some (lang, String.concat "" desc) + | `Start_element ((_, "text"), []) :: `Text desc :: _ -> Some ("en", String.concat "" desc) | _ -> None in let parse_sasl_error = function |