From 32784840f7d75e1e27857b68b99e560209576d06 Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Tue, 11 Mar 2014 16:32:18 +0100
Subject: [PATCH] stop SRV process when single "." is received

---
 source/Network/Xmpp/Stream.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/source/Network/Xmpp/Stream.hs b/source/Network/Xmpp/Stream.hs
index daa949f..532699f 100644
--- a/source/Network/Xmpp/Stream.hs
+++ b/source/Network/Xmpp/Stream.hs
@@ -594,6 +594,10 @@ connectSrv config host = do
                         "No SRV records, using fallback process."
                     lift $ resolvAndConnectTcp resolvSeed (BSC8.pack $ host)
                                                5222
+                Just [(".", _)] -> do
+                    liftIO $ infoM "Pontarius.Xmpp"
+                                "SRV lookup returned \".\"; service not available"
+                    throwError TcpConnectionFailure
                 Just srvRecords' -> do
                     lift $ debugM "Pontarius.Xmpp"
                         "SRV records found, performing A/AAAA lookups."