Improved debug prints.

1 files changed, 2 insertions, 0 deletions

diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs
index 084a9978..0a6cccaa 100644
--- a/dht/src/Network/Tox.hs
+++ b/dht/src/Network/Tox.hs
@@ -357,6 +357,8 @@ newToxOverTransport keydb addr onNewSession (crypto,roster) udp tcp = do
             Multi.SessionTCP :=> Identity (ViaRelay Nothing nid relay)
               -> do let relayclient = relayClient $ tcpRelayPinger orouter
                     msaddr <- Multi.tcpConnectionRequest relayclient (id2key nid) relay
+                    when (isNothing msaddr) $
+                        dput XMan $ "Unable to establish relay connection!"
                     return $ maybe saddr Multi.sessionAddr msaddr
             _ -> return saddr
         sendMessage handshakes saddr' hs