From f41ba27ddbf3708e18931bec6fbe3aeea750f0dd Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 26 Oct 2012 14:17:09 -0400
Subject: 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.
---
 Utility/SRV.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Utility')

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"
-- 
cgit v1.2.3