diff options
| author | joe <joe@jerkface.net> | 2017-01-23 23:24:24 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-01-23 23:24:24 -0500 |
| commit | 1c01fae3a00942fd0d42f8b8e832e2665a679213 (patch) | |
| tree | a0c9fd48f5b0a4aa8b9b1da1f9c2f2f381863a3a /src/Network/BitTorrent/DHT | |
| parent | 2ced7fa5b110d19f0e6cc21968822f4ccf880c13 (diff) | |
Query.insertNode no longer forks.
Diffstat (limited to 'src/Network/BitTorrent/DHT')
| -rw-r--r-- | src/Network/BitTorrent/DHT/Query.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs index 47d17622..533068c6 100644 --- a/src/Network/BitTorrent/DHT/Query.hs +++ b/src/Network/BitTorrent/DHT/Query.hs | |||
| @@ -231,9 +231,8 @@ refreshNodes nid = do | |||
| 231 | 231 | ||
| 232 | -- | This operation do not block but acquire exclusive access to | 232 | -- | This operation do not block but acquire exclusive access to |
| 233 | -- routing table. | 233 | -- routing table. |
| 234 | insertNode :: forall ip. Address ip => NodeInfo ip -> Maybe ReflectedIP -> DHT ip ThreadId | 234 | insertNode :: forall ip. Address ip => NodeInfo ip -> Maybe ReflectedIP -> DHT ip () |
| 235 | insertNode info witnessed_ip0 = fork $ do | 235 | insertNode info witnessed_ip0 = do |
| 236 | -- myThreadId >>= liftIO . flip labelThread "DHT.insertNode" | ||
| 237 | var <- asks routingInfo | 236 | var <- asks routingInfo |
| 238 | tm <- getTimestamp | 237 | tm <- getTimestamp |
| 239 | let showTable = do | 238 | let showTable = do |