diff options
Diffstat (limited to 'test/hello.ml')
| -rw-r--r-- | test/hello.ml | 14 |
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 |