diff options
Diffstat (limited to 'lib/session.ml')
| -rw-r--r-- | lib/session.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/session.ml b/lib/session.ml index 421c01e..b1eb2c3 100644 --- a/lib/session.ml +++ b/lib/session.ml @@ -27,7 +27,7 @@ type t = { Basically, it conforms to {{: https://datatracker.ietf.org/doc/html/rfc6120#section-4.3 }}, and gets the Portal in a "ready" state. *) -let create (domain : Portal.domain) (config : config) : t Lwt.t = +let create (config : config) : t Lwt.t = let needs_restart = function | Feature.Mechanisms _ | STARTTLS -> true | _ -> false @@ -47,7 +47,7 @@ let create (domain : Portal.domain) (config : config) : t Lwt.t = let+ portal = Portal.connect domain in update (Connected (portal, Starting_stream)) | Connected (portal, Starting_stream) -> - let+ features = Stream.start domain portal + let+ features = Stream.start portal in let next_state = features_next_state features in update (Connected (portal, next_state)) | Connected (portal, Negotiating_feature (feature, features)) -> |