diff options
Diffstat (limited to 'test/hello.ml')
-rw-r--r-- | test/hello.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/test/hello.ml b/test/hello.ml index f9d429b..e55b44a 100644 --- a/test/hello.ml +++ b/test/hello.ml @@ -18,8 +18,7 @@ let main = preferred_mechanisms = [Sasl.PLAIN] } in let domain = (List.nth (String.split_on_char '@' config.jid) 1) in - let* portal = Portal.connect domain in - let* features = Stream.negotiate domain portal in + let* portal, features = Stream.initiate domain in Lwt.catch (fun () -> program portal config features >|= (fun () -> portal.push None)) (fun exn -> |