diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-08-15 00:56:57 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-08-15 00:56:57 +0200 |
| commit | fb94999d594387d7730dd18dfa47d8dcef6fc25f (patch) | |
| tree | a516b5ea6c68e8ecb16de7d46b41b22fe4e07a9f | |
| parent | 8305428d609db6cd81d2ce941b25cc02f919f24d (diff) | |
feat(stream): add resource binding feature
| -rw-r--r-- | lib/stream.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/stream.ml b/lib/stream.ml index cfde160..24a22cd 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -11,6 +11,7 @@ module Feature = struct type t = | STARTTLS | Mechanisms of Sasl.mechanism list + | Bind | Other of Xml.element type requirement = @@ -97,6 +98,7 @@ let negotiate feature portal {starttls; sasl; _} : unit Lwt.t = then Starttls.upgrade portal else Lwt.return_unit | Mandatory (Mechanisms mechs) -> authenticate mechs + | Mandatory Bind -> Lwt.return_unit (* TODO: binding *) | Mandatory (Other _) -> Lwt.return_unit (* So far, for convenience, when something is optional, we just don't do it. *) | Optional _ -> Lwt.return_unit |