diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-10-18 06:48:47 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 19:56:02 -0500 |
| commit | 687e06b39529bef04ecd49fc5e5b1b502a41b28d (patch) | |
| tree | 3bdd94d8338c11d842f9d6ae466ca4fa780998bc /dht/examples/dhtd.hs | |
| parent | 6e618ac54384be5ef5f2590fd2a8cc2eb8399361 (diff) | |
More thread cleanup.
Diffstat (limited to 'dht/examples/dhtd.hs')
| -rw-r--r-- | dht/examples/dhtd.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs index c7fd4f06..da73159d 100644 --- a/dht/examples/dhtd.hs +++ b/dht/examples/dhtd.hs | |||
| @@ -1667,7 +1667,7 @@ main = do | |||
| 1667 | "" -> return (return (), Map.empty,return [],[]) | 1667 | "" -> return (return (), Map.empty,return [],[]) |
| 1668 | p -> do | 1668 | p -> do |
| 1669 | addr <- getBindAddress p (ip6bt opts) | 1669 | addr <- getBindAddress p (ip6bt opts) |
| 1670 | (bt,btR,btBootstrap4, btBootstrap6) <- Mainline.newClient swarms addr | 1670 | (bt,btR,btBootstrap4, btBootstrap6,quitBtClient) <- Mainline.newClient swarms addr |
| 1671 | quitBt <- forkListener "bt" (clientNet bt) | 1671 | quitBt <- forkListener "bt" (clientNet bt) |
| 1672 | mainlineSearches <- atomically $ newTVar Map.empty | 1672 | mainlineSearches <- atomically $ newTVar Map.empty |
| 1673 | peerPort <- atomically $ newTVar 6881 -- BitTorrent client TCP port. | 1673 | peerPort <- atomically $ newTVar 6881 -- BitTorrent client TCP port. |
| @@ -1748,7 +1748,7 @@ main = do | |||
| 1748 | [ Mainline.routing4 btR | 1748 | [ Mainline.routing4 btR |
| 1749 | , Mainline.routing6 btR | 1749 | , Mainline.routing6 btR |
| 1750 | ] | 1750 | ] |
| 1751 | return (quitBt,dhts,ips, [addr]) | 1751 | return (quitBt >> quitBtClient,dhts,ips, [addr]) |
| 1752 | 1752 | ||
| 1753 | keysdb <- Tox.newKeysDatabase | 1753 | keysdb <- Tox.newKeysDatabase |
| 1754 | 1754 | ||