From fc14cd04d0628f232a55a66e6be333ff5653d793 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Thu, 14 Aug 2025 20:44:34 +0200 Subject: fix(session): remove domain in Starting_stream step --- lib/session.ml | 6 +++--- 1 file 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) -> -- cgit v1.2.3