diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-26 22:35:53 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-27 08:56:42 +0200 |
| commit | 63f009280f29942ec2ea85176240e78becb2326b (patch) | |
| tree | 9b73716ff154ea5b871cc3bdcd0dd3ac86e9f211 /lib/sasl.ml | |
| parent | 41aa93cf6465201447e13e9db0440aaac00cb4e2 (diff) | |
feat(portal): add field in t for underlying socket
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 02c9222..1837044 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} : Portal.t) 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 |