feat(sasl): add negotiate function

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 ->