diff options
Diffstat (limited to 'portal/tcp/portal_tcp.ml')
| -rw-r--r-- | portal/tcp/portal_tcp.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/portal/tcp/portal_tcp.ml b/portal/tcp/portal_tcp.ml index 37a3065..cfe35dd 100644 --- a/portal/tcp/portal_tcp.ml +++ b/portal/tcp/portal_tcp.ml @@ -3,3 +3,6 @@ let xmpp_port (_domain : string) : int = 5222 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 |