diff options
| -rw-r--r-- | lib/session.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/session.ml b/lib/session.ml index 58a80db..1bfedf7 100644 --- a/lib/session.ml +++ b/lib/session.ml @@ -3,7 +3,7 @@ open Lwt.Infix open Lwt_react type connection_step = - | Starting_stream of string + | Starting_stream | Negotiating_features of Stream.features type state = @@ -50,8 +50,8 @@ let create (domain : string) (config : Stream.config) : (state signal * (unit -> (function | Opening_portal domain -> let+ portal = Portal.connect domain - in update (Connecting (portal, Starting_stream domain)) - | Connecting (portal, Starting_stream domain) -> + in update (Connecting (portal, Starting_stream)) + | Connecting (portal, Starting_stream) -> let+ features = Stream.start domain portal in update (Connecting (portal, Negotiating_features features)) | Connecting (portal, Negotiating_features features) -> |