diff options
| author | joe <joe@jerkface.net> | 2018-06-09 03:59:50 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-06-09 03:59:50 -0400 |
| commit | e75cc83de37b628418c313b61db8864a04763562 (patch) | |
| tree | ba7ffe9f75ef0ad60cf3efed3b715e29879ab6ad /src/Network/Tox.hs | |
| parent | 909725c4706439404e1fb0a65d74a56f9669d0b6 (diff) | |
tox: Label avahi threads.
Diffstat (limited to 'src/Network/Tox.hs')
| -rw-r--r-- | src/Network/Tox.hs | 2 |
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) |