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
     dnssdIn <- forkIO $ queryToxService (dnssdDiscover tox)
     dnssdOut <- forkIO $ dnssdAnnounce tox
     keygc <- Onion.forkAnnouncedKeysGC (toxAnnouncedKeys tox)
-    return ( killThread keygc >> quit
+    return ( forM_ [dnssdIn, dnssdOut, keygc] killThread >> quit
            , bootstrap (DHT.refresher4 $ toxRouting tox)
            , bootstrap (DHT.refresher6 $ toxRouting tox)
            )