diff options
| -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 |