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."