diff options
| -rw-r--r-- | portal/tcp/portal_tcp.ml | 4 | ||||
| -rw-r--r-- | test/native/native_hello.ml | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/portal/tcp/portal_tcp.ml b/portal/tcp/portal_tcp.ml index 3bf34a7..37a3065 100644 --- a/portal/tcp/portal_tcp.ml +++ b/portal/tcp/portal_tcp.ml @@ -1,5 +1,5 @@ -let tcp_endpoint (_domain : string) : int = 5222 - (** [tcp_endpoint domain] is the port where [domain]'s XMPP server is hosted. +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. *) diff --git a/test/native/native_hello.ml b/test/native/native_hello.ml index b5456c1..e30c7a5 100644 --- a/test/native/native_hello.ml +++ b/test/native/native_hello.ml @@ -4,5 +4,5 @@ let () = 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 port = tcp_endpoint domain + in let port = xmpp_port domain in print_endline (string_of_int port) |