1 files changed, 5 insertions, 0 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 1e82c0c4..ea9bbe56 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -59,6 +59,7 @@ import Network.Tox.NodeId
 import qualified Network.Tox.Onion.Handlers  as Onion
 import qualified Network.Tox.Onion.Transport as Onion
 import Network.Tox.Transport
+import Network.Tox.TCP (tcpClient)
 import OnionRouter
 import Network.Tox.ContactInfo
 import Text.XXD
@@ -372,6 +373,8 @@ forkTox tox with_avahi = do
     quitOnion   <- forkListener "toxOnion" (clientNet $ toxOnion tox)
     quitDHT     <- forkListener "toxDHT" (clientNet $ toxDHT tox)
     quitNC      <- forkListener "toxCrypto" (toxCrypto tox)
+    quitTCP     <- forkListener "relay-client" (clientNet $ tcpClient $ tcpKademliaClient $ toxOnionRoutes tox)
+    tcpKademlia <- forkPollForRefresh (tcpBucketRefresher $ toxOnionRoutes tox)
     quitAvahi <- if with_avahi then do
                     forkPollForRefresh (DHT.refresher4 $ toxRouting tox)
                     forkPollForRefresh (DHT.refresher6 $ toxRouting tox)
@@ -387,6 +390,8 @@ forkTox tox with_avahi = do
                 quitNC
                 quitDHT
                 quitOnion
+                quitTCP
+                killThread tcpKademlia
                 quitToRoute
                 quitHs
            , bootstrap (DHT.refresher4 $ toxRouting tox)