diff options
-rw-r--r-- | src/Network/Tox.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index 170a07e8..c4780493 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
@@ -504,7 +504,7 @@ forkTox tox = do | |||
504 | dnssdIn <- forkIO $ queryToxService (dnssdDiscover tox) | 504 | dnssdIn <- forkIO $ queryToxService (dnssdDiscover tox) |
505 | dnssdOut <- forkIO $ dnssdAnnounce tox | 505 | dnssdOut <- forkIO $ dnssdAnnounce tox |
506 | keygc <- Onion.forkAnnouncedKeysGC (toxAnnouncedKeys tox) | 506 | keygc <- Onion.forkAnnouncedKeysGC (toxAnnouncedKeys tox) |
507 | return ( killThread keygc >> quit | 507 | return ( forM_ [dnssdIn, dnssdOut, keygc] killThread >> quit |
508 | , bootstrap (DHT.refresher4 $ toxRouting tox) | 508 | , bootstrap (DHT.refresher4 $ toxRouting tox) |
509 | , bootstrap (DHT.refresher6 $ toxRouting tox) | 509 | , bootstrap (DHT.refresher6 $ toxRouting tox) |
510 | ) | 510 | ) |