diff options
| -rw-r--r-- | test/hello.ml | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/test/hello.ml b/test/hello.ml index 6636d4d..a43b90a 100644 --- a/test/hello.ml +++ b/test/hello.ml @@ -12,7 +12,15 @@ let main = }; other = []; } - in let domain = (List.nth (String.split_on_char '@' config.sasl.jid) 1) in + in + begin + let jid = Jid.of_string (Sys.getenv "FLESH_JID") + in + Option.iter print_endline jid.localpart; + print_endline jid.domainpart; + Option.iter print_endline jid.resourcepart; + end; + let domain = (List.nth (String.split_on_char '@' config.sasl.jid) 1) in try%lwt connect domain config >|= (fun (portal, _) -> portal.push None) with exn -> begin |