diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-24 12:34:25 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-24 12:34:25 +0200 |
| commit | 76b28e22329a403d675821d46f21af530ca7583c (patch) | |
| tree | 3a92ee6d9b681ad09e67cf54b9bbada96fe5c5db /lib/sasl.ml | |
| parent | 1e2a9a742ed255399184589dc9cefd667038ec7d (diff) | |
fix(sasl): forgot a space in unknown auth message
Diffstat (limited to 'lib/sasl.ml')
| -rw-r--r-- | lib/sasl.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sasl.ml b/lib/sasl.ml index 803dd60..9b9f1fd 100644 --- a/lib/sasl.ml +++ b/lib/sasl.ml @@ -21,7 +21,7 @@ type sasl_auth = (string option, sasl_error * (string * string) option) result let send_auth_stanza (stream, push) localpart pass mechanism = let gen_auth = function | PLAIN -> Base64.encode_exn ("\x00" ^ localpart ^ "\x00" ^ pass) - | Unknown s -> failwith "Unsupported authentication mechanism" ^ s + | Unknown s -> failwith "Unsupported authentication mechanism " ^ s and parse_sasl_response (stanza : Markup.signal list) = let open Markup in let string_stanza = stanza |> of_list |> write_xml |> to_string in |