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 | |
parent | 2ced7fa5b110d19f0e6cc21968822f4ccf880c13 (diff) |
Query.insertNode no longer forks.
Diffstat (limited to 'src/Network')
-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 |