From 887c57d7880b36bb6206cd4af3a1dcc8b3d3b999 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Tue, 17 Jan 2017 22:45:34 -0500
Subject: Enable responding to get_peers.

---
 src/Network/BitTorrent/DHT/Session.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/Network/BitTorrent')

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
 -- Peer storage
 -----------------------------------------------------------------------}
 
--- TODO limit dht peer store in size (probably by removing oldest peers)
-
 refreshContacts :: DHT ip ()
-refreshContacts = undefined
+refreshContacts =
+    -- TODO limit dht peer store in size (probably by removing oldest peers)
+    return ()
+
 
 -- | Insert peer to peer store. Used to handle announce requests.
 insertPeer :: Eq ip => InfoHash -> PeerAddr ip -> DHT ip ()
-- 
cgit v1.2.3