diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-03-02 16:22:32 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-03-02 16:22:32 +0400 |
| commit | ba37e451319c94ecc14b2a58a39250a27353f75f (patch) | |
| tree | 5ae57fa091efe40d616ee67e688e322c98531699 /src/Network | |
| parent | 4a3756dcb4ba0b2e57b644f69080a7a0a0616d3c (diff) | |
Add todo
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" |