diff options
Diffstat (limited to 'src/Network/Tox.hs')
-rw-r--r-- | src/Network/Tox.hs | 5 |
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 | |||
59 | import qualified Network.Tox.Onion.Handlers as Onion | 59 | import qualified Network.Tox.Onion.Handlers as Onion |
60 | import qualified Network.Tox.Onion.Transport as Onion | 60 | import qualified Network.Tox.Onion.Transport as Onion |
61 | import Network.Tox.Transport | 61 | import Network.Tox.Transport |
62 | import Network.Tox.TCP (tcpClient) | ||
62 | import OnionRouter | 63 | import OnionRouter |
63 | import Network.Tox.ContactInfo | 64 | import Network.Tox.ContactInfo |
64 | import Text.XXD | 65 | import Text.XXD |
@@ -372,6 +373,8 @@ forkTox tox with_avahi = do | |||
372 | quitOnion <- forkListener "toxOnion" (clientNet $ toxOnion tox) | 373 | quitOnion <- forkListener "toxOnion" (clientNet $ toxOnion tox) |
373 | quitDHT <- forkListener "toxDHT" (clientNet $ toxDHT tox) | 374 | quitDHT <- forkListener "toxDHT" (clientNet $ toxDHT tox) |
374 | quitNC <- forkListener "toxCrypto" (toxCrypto tox) | 375 | quitNC <- forkListener "toxCrypto" (toxCrypto tox) |
376 | quitTCP <- forkListener "relay-client" (clientNet $ tcpClient $ tcpKademliaClient $ toxOnionRoutes tox) | ||
377 | tcpKademlia <- forkPollForRefresh (tcpBucketRefresher $ toxOnionRoutes tox) | ||
375 | quitAvahi <- if with_avahi then do | 378 | quitAvahi <- if with_avahi then do |
376 | forkPollForRefresh (DHT.refresher4 $ toxRouting tox) | 379 | forkPollForRefresh (DHT.refresher4 $ toxRouting tox) |
377 | forkPollForRefresh (DHT.refresher6 $ toxRouting tox) | 380 | forkPollForRefresh (DHT.refresher6 $ toxRouting tox) |
@@ -387,6 +390,8 @@ forkTox tox with_avahi = do | |||
387 | quitNC | 390 | quitNC |
388 | quitDHT | 391 | quitDHT |
389 | quitOnion | 392 | quitOnion |
393 | quitTCP | ||
394 | killThread tcpKademlia | ||
390 | quitToRoute | 395 | quitToRoute |
391 | quitHs | 396 | quitHs |
392 | , bootstrap (DHT.refresher4 $ toxRouting tox) | 397 | , bootstrap (DHT.refresher4 $ toxRouting tox) |