aboutsummaryrefslogtreecommitdiff
path: root/test/hello.ml
diff options
context:
space:
mode:
Diffstat (limited to 'test/hello.ml')
-rw-r--r--test/hello.ml3
1 files changed, 1 insertions, 2 deletions
diff --git a/test/hello.ml b/test/hello.ml
index 1975871..1659787 100644
--- a/test/hello.ml
+++ b/test/hello.ml
@@ -20,8 +20,7 @@ let main =
}
in let domain = (List.nth (String.split_on_char '@' config.jid) 1) in
let* stream, push = Portal.connect domain in
- let* _id = Portal.header domain (stream, push) in
- let* features = Xml.get stream >|= Stream.parse_features in
+ let* features = Stream.negotiate domain (stream, push) in
Lwt.catch
(fun () -> program (stream, push) config features >|= (fun () -> push None))
(fun exn ->