stop SRV process when single "." is received

12 years ago · 32784840f7
1 changed files with 4 additions and 0 deletions
--- a/source/Network/Xmpp/Stream.hs
+++ b/source/Network/Xmpp/Stream.hs
@ -594,6 +594,10 @@ connectSrv config host = do
				@@ -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."