diff options
Diffstat (limited to 'dht/src/Network/Tox.hs')
-rw-r--r-- | dht/src/Network/Tox.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs index 98c03b80..b396c2ea 100644 --- a/dht/src/Network/Tox.hs +++ b/dht/src/Network/Tox.hs | |||
@@ -414,9 +414,9 @@ forkTox tox with_avahi = do | |||
414 | quitDHT <- forkListener "toxDHT" (clientNet $ toxDHT tox) | 414 | quitDHT <- forkListener "toxDHT" (clientNet $ toxDHT tox) |
415 | quitNC <- forkListener "toxCrypto" (toxCrypto tox) | 415 | quitNC <- forkListener "toxCrypto" (toxCrypto tox) |
416 | quitTCP <- forkListener "relay-client" (clientNet $ tcpClient $ tcpKademliaClient $ toxOnionRoutes tox) | 416 | quitTCP <- forkListener "relay-client" (clientNet $ tcpClient $ tcpKademliaClient $ toxOnionRoutes tox) |
417 | refresher4 <- forkPollForRefresh (DHT.refresher4 $ toxRouting tox) | ||
418 | refresher6 <- forkPollForRefresh (DHT.refresher6 $ toxRouting tox) | ||
417 | quitAvahi <- if with_avahi then do | 419 | quitAvahi <- if with_avahi then do |
418 | forkPollForRefresh (DHT.refresher4 $ toxRouting tox) | ||
419 | forkPollForRefresh (DHT.refresher6 $ toxRouting tox) | ||
420 | dnssdIn <- forkIO $ queryToxService (dnssdDiscover tox) | 420 | dnssdIn <- forkIO $ queryToxService (dnssdDiscover tox) |
421 | dnssdOut <- forkIO $ dnssdAnnounce tox | 421 | dnssdOut <- forkIO $ dnssdAnnounce tox |
422 | labelThread dnssdIn "tox-avahi-monitor" | 422 | labelThread dnssdIn "tox-avahi-monitor" |
@@ -424,7 +424,9 @@ forkTox tox with_avahi = do | |||
424 | return $ forM_ [dnssdIn,dnssdOut] killThread | 424 | return $ forM_ [dnssdIn,dnssdOut] killThread |
425 | else return $ return () | 425 | else return $ return () |
426 | keygc <- Onion.forkAnnouncedKeysGC (toxAnnouncedKeys tox) | 426 | keygc <- Onion.forkAnnouncedKeysGC (toxAnnouncedKeys tox) |
427 | return ( do quitAvahi | 427 | return ( do killThread refresher4 |
428 | killThread refresher6 | ||
429 | quitAvahi | ||
428 | killThread keygc | 430 | killThread keygc |
429 | quitNC | 431 | quitNC |
430 | quitDHT | 432 | quitDHT |