blob: 3aa5e569f7b21a8f4dda3b84547ce8e34ec3f9eb (
plain) (
blame)
1
2
3
4
5
6
7
8
|
(** [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 xmpp_port (_domain : string) : int = 5222
let connect (domain : string) =
xmpp_port domain |> string_of_int |> print_endline
|
