diff options
Diffstat (limited to 'lib/stream.ml')
| -rw-r--r-- | lib/stream.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/stream.ml b/lib/stream.ml index 5eaba42..92aebd4 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -79,6 +79,7 @@ let sasl mechanisms _ (portal : Portal.t) {sasl=config; _} = | Error err -> Lwt.fail_with (parse_auth_error err) | Ok _ -> print_endline "Success!"; Lwt.return_unit else Lwt.fail InsufficientEncryption + (** [negotiate domain portal auth] is a promise containing the features supported by the XMPP server [portal], after eventual STARTTLS negotiation and authentication using the auth config [auth]. @@ -118,10 +119,7 @@ let negotiate | [], _ -> Lwt.return f in start_stream () >>= handle_features -(** [initiate domain] initiates a stream with the XMPP server [domain]. - - Once [None] is pushed into the stream, the receiving stream is drained and the - socket is closed. *) +(** [initiate domain] initiates a stream with the XMPP server [domain]. *) let initiate (domain : string) (config : config) : (Portal.t * features) Lwt.t = let open Portal in let* p = connect domain |