diff options
| -rw-r--r-- | lib/stream.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/stream.ml b/lib/stream.ml index cdd0999..bdf7987 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -56,6 +56,10 @@ let start (domain : string) (portal : Portal.t) : features Lwt.t = let* _id = Portal.header domain portal in Wire.get portal.stream >|= parse_features +(** [negotiate mandatory feature portal] negotiates the feature [feature] with the XMPP + server at [portal]. + + Some features can be sent as [mandatory] or not. *) let negotiate mandatory feature portal {starttls; sasl; _} : unit Lwt.t = (* authenticate using SASL with the XMPP server. *) let authenticate mechanisms = |