diff options
Diffstat (limited to 'src/Network/BitTorrent/DHT.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT.hs | 2 |
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 | ||