summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-26 14:17:09 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-26 14:17:09 -0400
commitf41ba27ddbf3708e18931bec6fbe3aeea750f0dd (patch)
treef9e76eacc25199eac9d1fa14d72bfab760063063 /Utility
parent0c01a949a686aadb2596434cf92990c715ad84a7 (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')
-rw-r--r--Utility/SRV.hs3
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"