summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Network/Tox.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index c4780493..68714224 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -503,6 +503,8 @@ forkTox tox = do
503 forkPollForRefresh (DHT.refresher6 $ toxRouting tox) 503 forkPollForRefresh (DHT.refresher6 $ toxRouting tox)
504 dnssdIn <- forkIO $ queryToxService (dnssdDiscover tox) 504 dnssdIn <- forkIO $ queryToxService (dnssdDiscover tox)
505 dnssdOut <- forkIO $ dnssdAnnounce tox 505 dnssdOut <- forkIO $ dnssdAnnounce tox
506 labelThread dnssdIn "tox-avahi-monitor"
507 labelThread dnssdOut "tox-avahi-publish"
506 keygc <- Onion.forkAnnouncedKeysGC (toxAnnouncedKeys tox) 508 keygc <- Onion.forkAnnouncedKeysGC (toxAnnouncedKeys tox)
507 return ( forM_ [dnssdIn, dnssdOut, keygc] killThread >> quit 509 return ( forM_ [dnssdIn, dnssdOut, keygc] killThread >> quit
508 , bootstrap (DHT.refresher4 $ toxRouting tox) 510 , bootstrap (DHT.refresher4 $ toxRouting tox)