From 41aa93cf6465201447e13e9db0440aaac00cb4e2 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Thu, 26 Jun 2025 22:15:12 +0200 Subject: feat(portal): change type t into a record --- lib/sasl.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/sasl.ml') diff --git a/lib/sasl.ml b/lib/sasl.ml index 137d84a..02c9222 100644 --- a/lib/sasl.ml +++ b/lib/sasl.ml @@ -29,7 +29,7 @@ let parse_sasl_error = function type sasl_auth = (string option, sasl_error * (string * string) option) result -let send_auth_stanza (stream, push) localpart pass mechanism = +let send_auth_stanza ({stream; push} : Portal.t) localpart pass mechanism = let gen_auth = function | PLAIN -> Base64.encode_exn ("\x00" ^ localpart ^ "\x00" ^ pass) | Unknown s -> failwith "Unsupported authentication mechanism " ^ s -- cgit v1.2.3