diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-26 14:17:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-26 14:17:09 -0400 |
| commit | f41ba27ddbf3708e18931bec6fbe3aeea750f0dd (patch) | |
| tree | f9e76eacc25199eac9d1fa14d72bfab760063063 /Utility/SRV.hs | |
| parent | 0c01a949a686aadb2596434cf92990c715ad84a7 (diff) | |
XMPP configuration form
Currently relies on SRV being set, or the JID's hostname being the server
hostname and the port being default. Future work: Allow manual
configuration of user name, hostname, and port.
Diffstat (limited to 'Utility/SRV.hs')
| -rw-r--r-- | Utility/SRV.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/SRV.hs b/Utility/SRV.hs index 38ac28787..4f2db680b 100644 --- a/Utility/SRV.hs +++ b/Utility/SRV.hs @@ -33,12 +33,13 @@ import Data.Either #endif newtype SRV = SRV String + deriving (Show, Eq) type HostPort = (HostName, PortID) mkSRV :: String -> String -> HostName -> SRV mkSRV transport protocol host = SRV $ concat - ["_", protocol, ".", transport, ".", host] + ["_", protocol, "._", transport, ".", host] mkSRVTcp :: String -> HostName -> SRV mkSRVTcp = mkSRV "tcp" |