diff options
Diffstat (limited to 'src/Network')
| -rw-r--r-- | src/Network/BitTorrent/DHT.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs index 98ba1a56..ec9dace8 100644 --- a/src/Network/BitTorrent/DHT.hs +++ b/src/Network/BitTorrent/DHT.hs | |||
| @@ -136,6 +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 | -- TODO retransmissions for startNodes | ||
| 139 | aliveNodes <- queryParallel (pingQ <$> startNodes) | 140 | aliveNodes <- queryParallel (pingQ <$> startNodes) |
| 140 | _ <- sourceList [aliveNodes] $= search nid (findNodeQ nid) $$ C.consume | 141 | _ <- sourceList [aliveNodes] $= search nid (findNodeQ nid) $$ C.consume |
| 141 | $(logInfoS) "bootstrap" "Node bootstrapping finished" | 142 | $(logInfoS) "bootstrap" "Node bootstrapping finished" |