blob: f125763ddd9db2db266310ab0b3846409658ebfd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
open! Lwt.Syntax
open! Portal_tcp
let () =
Lwt_main.run @@
let jid = Sys.getenv "FLESH_JID"
and _password = Sys.getenv "FLESH_PASSWORD"
in let domain = (List.nth (String.split_on_char '@' jid) 1)
in let* stream, push = connect domain
in push (Some "<a>");
let+ s = Lwt_stream.get stream in
Option.get s |> print_endline
|
