From c90fe3ed3f35ea01b0d1299a0e721a5ab902ca11 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Wed, 18 Jun 2025 22:09:25 +0200 Subject: style: change fill-column to 88 --- lib/sasl.ml | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'lib/sasl.ml') diff --git a/lib/sasl.ml b/lib/sasl.ml index 8fbb8b2..c745aaa 100644 --- a/lib/sasl.ml +++ b/lib/sasl.ml @@ -29,12 +29,15 @@ let send_auth_stanza (stream, push) localpart pass mechanism = | `Text t :: _ -> Some (String.concat "" t) | _ -> 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) + | `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_error_stanza = function - | `Start_element ((_, error), _) :: `End_element :: rest -> (parse_sasl_error error, parse_descriptive_text rest) + | `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) -- cgit v1.2.3