diff options
Diffstat (limited to 'test')
| -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 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 -> |