diff options
| -rw-r--r-- | lib/sasl.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/sasl.ml b/lib/sasl.ml index b4d4929..0cb6b3e 100644 --- a/lib/sasl.ml +++ b/lib/sasl.ml @@ -56,8 +56,7 @@ let send_auth_stanza (stream, push) localpart pass mechanism = try get stream >|= parse_sasl_response with exn -> Lwt.fail exn -let authenticate (portal : Portal.t) (config : auth_config) = - let {jid; password; preferred_mechanisms} = config in +let authenticate (portal : Portal.t) ({jid; password; preferred_mechanisms} : auth_config) = (* Probably not exactly compliant with https://xmpp.org/extensions/xep-0029.html, but it's just for simplicity's sake in alpha. *) let localpart = match String.split_on_char '@' jid with |