blob: cfe35dd2950704776a8085c6bb8cba7cfd70079d (
plain) (
blame)
1
2
3
4
5
6
7
8
|
let xmpp_port (_domain : string) : int = 5222
(** [xmpp_port domain] is the port where [domain]'s XMPP server is hosted.
Currently, it falls back to 5222 (always), but should use SRV records in the near
future. *)
let connect (domain : string) =
xmpp_port domain |> string_of_int |> print_endline
|
