1 files changed, 1 insertions, 0 deletions
diff --git a/dht/TCPProber.hs b/dht/TCPProber.hs
index 5e011116..ff68ba07 100644
--- a/dht/TCPProber.hs
+++ b/dht/TCPProber.hs
@@ -35,6 +35,7 @@ resolvePort tcp ni = do
        forkPort port = do
            atomically $ modifyTVar' cnt succ
            t <- forkIO $ do
+                dput XTCP $ "TCP-probe pinging " ++ show (n port)
                m <- TCP.tcpPing tcp $ n port
                atomically $ do
                    mg <- readTVar got

diff --git a/dht/TCPProber.hs b/dht/TCPProber.hs index 5e011116..ff68ba07 100644 --- a/dht/TCPProber.hs +++ b/dht/TCPProber.hs
@@ -35,6 +35,7 @@ resolvePort tcp ni = do
35	forkPort port = do	35	forkPort port = do
36	atomically $ modifyTVar' cnt succ	36	atomically $ modifyTVar' cnt succ
37	t <- forkIO $ do	37	t <- forkIO $ do
		38	dput XTCP $ "TCP-probe pinging " ++ show (n port)
38	m <- TCP.tcpPing tcp $ n port	39	m <- TCP.tcpPing tcp $ n port
39	atomically $ do	40	atomically $ do
40	mg <- readTVar got	41	mg <- readTVar got