test/hello.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

open! Lwt.Syntax
open! Lwt.Infix
open! Flesh

let main =
  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.sasl.jid) 1) in
     try%lwt connect domain config >|= (fun (portal, _) -> portal.push None)
     with exn ->
       begin
         (* I suspect JavaScript's [wrap_callback] swallows the Exceptions thrown by
            OCaml, so... The next best thing is probably printing something. *)
         print_endline
           (match exn with
            | Xml.InvalidStanza stanza -> "Invalid stanza: " ^ stanza
            | Portal.MalformedStanza err -> "Server sent malformed stanza: " ^ (Markup.Error.to_string err)
            | _ -> "... and so I stumble back to bed.");
         Lwt.fail exn
       end