From e5b880c937e607c94df4246d2305cd6c5c30b6d6 Mon Sep 17 00:00:00 2001
From: Sven Bartscher <sven.bartscher@weltraumschlangen.de>
Date: Tue, 2 Aug 2016 11:57:29 +0200
Subject: [PATCH] Fix behavior in case no SRV entries are found.

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

diff --git a/source/Network/Xmpp/Stream.hs b/source/Network/Xmpp/Stream.hs
index 758798f..867de15 100644
--- a/source/Network/Xmpp/Stream.hs
+++ b/source/Network/Xmpp/Stream.hs
@@ -740,6 +740,9 @@ srvLookup realm resolvSeed = ErrorT $ do
               $ \resolver -> do
         srvResult <- lookupSRV resolver $ BSC8.pack $ "_xmpp-client._tcp." ++ (Text.unpack realm) ++ "."
         case fixDnsResult srvResult of
+            Just [] -> do
+                debugM "Pontarius.Xmpp" "No SRV result returned."
+                return Nothing
             Just [(_, _, _, ".")] -> do
                 debugM "Pontarius.Xmpp" $ "\".\" SRV result returned."
                 return $ Just []