summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/DHT.hs')
-rw-r--r--src/Network/BitTorrent/DHT.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs
index 92d1ec63..8b212ee8 100644
--- a/src/Network/BitTorrent/DHT.hs
+++ b/src/Network/BitTorrent/DHT.hs
@@ -136,7 +136,7 @@ bootstrap startNodes = do
136 $(logInfoS) "bootstrap" "Start node bootstrapping" 136 $(logInfoS) "bootstrap" "Start node bootstrapping"
137 nid <- asks thisNodeId 137 nid <- asks thisNodeId
138 -- TODO filter duplicated in startNodes list 138 -- TODO filter duplicated in startNodes list
139 aliveNodes <- queryParallel (ping <$> startNodes) 139 aliveNodes <- queryParallel (pingQ <$> startNodes)
140 _ <- sourceList [aliveNodes] $= search nid (findNodeQ nid) $$ C.consume 140 _ <- sourceList [aliveNodes] $= search nid (findNodeQ nid) $$ C.consume
141 $(logInfoS) "bootstrap" "Node bootstrapping finished" 141 $(logInfoS) "bootstrap" "Node bootstrapping finished"
142 142