From 05416c1df66b376fc135a7202505c66ee49d71a6 Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Thu, 14 Aug 2025 22:20:14 +0200
Subject: feat(session): refactor session state

session state is closer to the protocol
---
 test/hello.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'test')

diff --git a/test/hello.ml b/test/hello.ml
index f4661c3..c7bf46e 100644
--- a/test/hello.ml
+++ b/test/hello.ml
@@ -18,8 +18,8 @@ let main =
   let waiter, wakener = Lwt.wait () in
   try%lwt let* state, connect = create config.sasl.jid.domainpart config in
              S.map (function
-                 | Connected (portal, _) -> portal.push None;
-                                            Lwt.wakeup wakener ()
+                 | Connected (portal, Logged_in _) -> portal.push None;
+                                                      Lwt.wakeup wakener ()
                  | _ -> ())
                state |> S.keep;
              connect ();
-- 
cgit v1.2.3