diff options
Diffstat (limited to 'src/Network/BitTorrent/DHT/Session.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT/Session.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs index d9a50a15..c8545bfd 100644 --- a/src/Network/BitTorrent/DHT/Session.hs +++ b/src/Network/BitTorrent/DHT/Session.hs | |||
@@ -409,10 +409,11 @@ getClosest node = do | |||
409 | -- Peer storage | 409 | -- Peer storage |
410 | -----------------------------------------------------------------------} | 410 | -----------------------------------------------------------------------} |
411 | 411 | ||
412 | -- TODO limit dht peer store in size (probably by removing oldest peers) | ||
413 | |||
414 | refreshContacts :: DHT ip () | 412 | refreshContacts :: DHT ip () |
415 | refreshContacts = undefined | 413 | refreshContacts = |
414 | -- TODO limit dht peer store in size (probably by removing oldest peers) | ||
415 | return () | ||
416 | |||
416 | 417 | ||
417 | -- | Insert peer to peer store. Used to handle announce requests. | 418 | -- | Insert peer to peer store. Used to handle announce requests. |
418 | insertPeer :: Eq ip => InfoHash -> PeerAddr ip -> DHT ip () | 419 | insertPeer :: Eq ip => InfoHash -> PeerAddr ip -> DHT ip () |