diff options
Diffstat (limited to 'lib/stream.ml')
| -rw-r--r-- | lib/stream.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/stream.ml b/lib/stream.ml index 60f86a0..a71d662 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -60,7 +60,7 @@ let negotiate ?(prefer_starttls = true) (domain : string) (portal : Portal.t) - (auth : Sasl.auth_config) : features Lwt.t = + (auth : Sasl.config) : features Lwt.t = (* Test if a specific features mandates a restart of the stream. *) let needs_restart = function | Mechanisms _ | STARTTLS -> true @@ -111,7 +111,7 @@ let negotiate Once [None] is pushed into the stream, the receiving stream is drained and the socket is closed. *) -let initiate (domain : string) (auth : Sasl.auth_config) : (Portal.t * features) Lwt.t = +let initiate (domain : string) (auth : Sasl.config) : (Portal.t * features) Lwt.t = let open Portal in let* p = connect domain in let+ features = negotiate domain p auth |