diff options
| author | Andrew Cady <d@jerkface.net> | 2018-06-09 03:43:03 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2018-06-09 03:43:03 -0400 |
| commit | 909725c4706439404e1fb0a65d74a56f9669d0b6 (patch) | |
| tree | ee782a4c05138444dd109dd31a99a5a7f0b78c2c /src/Network/Tox.hs | |
| parent | bc691bafe6d03eb5d2c73d2c7ff0248422d45c62 (diff) | |
kill dnssd threads when kill time comes
Diffstat (limited to 'src/Network/Tox.hs')
| -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 | ) |