diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-11 00:39:39 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-11 00:39:39 +0200 |
| commit | 9e2732d729ac12d73fce83b637a25b61a03380d6 (patch) | |
| tree | a7fedac9b987ed840b23d380eead0d6d4529d492 | |
| parent | f78267a4bb0e78d964d0c9fff63931600d82d5f1 (diff) | |
fix(auth): assume english by default
| -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 |