feat(stream): adapt to stream config type

1 files changed, 9 insertions, 5 deletions

diff --git a/test/hello.ml b/test/hello.ml
index 097e750..e506ded 100644
--- a/test/hello.ml
+++ b/test/hello.ml
@@ -3,12 +3,16 @@ open! Lwt.Infix
 open! Flesh
 
 let main =
-  let config : Sasl.config = {
-      jid = (Sys.getenv "FLESH_JID");
-      password = (Sys.getenv "FLESH_PASSWORD");
-      preferred_mechanisms = [Sasl.PLAIN]
+  let config : Stream.config = {
+      starttls = {prefer_starttls = true};
+      sasl = {
+          jid = (Sys.getenv "FLESH_JID");
+          password = (Sys.getenv "FLESH_PASSWORD");
+          preferred_mechanisms = [Sasl.PLAIN]
+        };
+      other = [];
     }
-  in let domain = (List.nth (String.split_on_char '@' config.jid) 1) in
+  in let domain = (List.nth (String.split_on_char '@' config.sasl.jid) 1) in
      try%lwt Stream.initiate domain config >|= (fun (portal, _) -> portal.push None)
      with exn ->
        begin