feat(session): give end-user access to update function

1 files changed, 2 insertions, 2 deletions

diff --git a/test/hello.ml b/test/hello.ml
index c7bf46e..e91f65f 100644
--- a/test/hello.ml
+++ b/test/hello.ml
@@ -16,13 +16,13 @@ let main =
     }
   in
   let waiter, wakener = Lwt.wait () in
-  try%lwt let* state, connect = create config.sasl.jid.domainpart config in
+  try%lwt let* state, update = create config.sasl.jid.domainpart config in
              S.map (function
                  | Connected (portal, Logged_in _) -> portal.push None;
                                                       Lwt.wakeup wakener ()
                  | _ -> ())
                state |> S.keep;
-             connect ();
+             update (Connecting config.sasl.jid.domainpart);
              waiter
   with exn ->
     begin