TCP Prober.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index ea9bbe56..d42f447d 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -65,6 +65,7 @@ import Network.Tox.ContactInfo
 import Text.XXD
 import DPut
 import DebugTag
+import TCPProber
 import Network.Tox.Avahi
 import Network.Tox.Session
 import Network.Tox.Relay
@@ -375,6 +376,10 @@ forkTox tox with_avahi = do
     quitNC      <- forkListener "toxCrypto" (toxCrypto tox)
     quitTCP     <- forkListener "relay-client" (clientNet $ tcpClient $ tcpKademliaClient $ toxOnionRoutes tox)
     tcpKademlia <- forkPollForRefresh (tcpBucketRefresher $ toxOnionRoutes tox)
+    tcpprobe <- forkIO $ runProbeQueue (tcpProber $ toxOnionRoutes tox)
+                                       (tcpClient $ tcpKademliaClient $ toxOnionRoutes tox)
+                                       12
+    labelThread tcpprobe "tcp-probe"
     quitAvahi <- if with_avahi then do
                     forkPollForRefresh (DHT.refresher4 $ toxRouting tox)
                     forkPollForRefresh (DHT.refresher6 $ toxRouting tox)
@@ -392,6 +397,7 @@ forkTox tox with_avahi = do
                 quitOnion
                 quitTCP
                 killThread tcpKademlia
+                killThread tcpprobe
                 quitToRoute
                 quitHs
            , bootstrap (DHT.refresher4 $ toxRouting tox)