diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-26 17:08:25 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-26 21:40:53 +0200 |
| commit | fada25b1563d3d1da08da3ce8c47fa5b820cfbd8 (patch) | |
| tree | f209c7e2f71b0c4ee6c1b5e2f86fa6ba06611906 /lib/sasl.ml | |
| parent | 3362a074c7dddf439ff878cf94d9169ab208eb10 (diff) | |
refactor(sasl): rename features record and its fields
Diffstat (limited to 'lib/sasl.ml')
| -rw-r--r-- | lib/sasl.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/sasl.ml b/lib/sasl.ml index ff6436a..2241a91 100644 --- a/lib/sasl.ml +++ b/lib/sasl.ml @@ -63,9 +63,9 @@ let authenticate (portal : Portal.t) ({jid; password; preferred_mechanisms} : au | [localpart; _domain] -> localpart | _ -> failwith "Invalid JID" in - let* {sasl_mechanisms; _} = Xml.get (fst portal) >|= Stream.parse_features + let* {mechanisms; _} = Xml.get (fst portal) >|= Stream.parse_features in let preferred, not_preferred = - List.partition (fun f -> List.exists ((=) f) preferred_mechanisms) sasl_mechanisms + List.partition (fun f -> List.exists ((=) f) preferred_mechanisms) mechanisms in (* Function that takes a [sasl_auth] and returns whether this attempt should be retried, or is definitive (e.g, success or bad credentials). *) |