From 1c01fae3a00942fd0d42f8b8e832e2665a679213 Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 23 Jan 2017 23:24:24 -0500 Subject: Query.insertNode no longer forks. --- src/Network/BitTorrent/DHT/Query.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Network') 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 -- | This operation do not block but acquire exclusive access to -- routing table. -insertNode :: forall ip. Address ip => NodeInfo ip -> Maybe ReflectedIP -> DHT ip ThreadId -insertNode info witnessed_ip0 = fork $ do - -- myThreadId >>= liftIO . flip labelThread "DHT.insertNode" +insertNode :: forall ip. Address ip => NodeInfo ip -> Maybe ReflectedIP -> DHT ip () +insertNode info witnessed_ip0 = do var <- asks routingInfo tm <- getTimestamp let showTable = do -- cgit v1.2.3