Added "peers" command to cli.

1 files changed, 4 insertions, 3 deletions

diff --git a/src/Network/BitTorrent/DHT/ContactInfo.hs b/src/Network/BitTorrent/DHT/ContactInfo.hs
index 823982d4..4302288c 100644
--- a/src/Network/BitTorrent/DHT/ContactInfo.hs
+++ b/src/Network/BitTorrent/DHT/ContactInfo.hs
@@ -1,5 +1,6 @@
 module Network.BitTorrent.DHT.ContactInfo
        ( PeerStore
+       , Network.BitTorrent.DHT.ContactInfo.lookup
        , Network.BitTorrent.DHT.ContactInfo.freshPeers
        , Network.BitTorrent.DHT.ContactInfo.insertPeer
        , knownSwarms
@@ -156,9 +157,9 @@ instance Serialize (PeerStore a) where
   get = undefined
   put = undefined
 
--- | Used in 'get_peers' DHT queries.
--- lookup :: Ord a => InfoHash -> PeerStore a -> [PeerAddr a]
--- lookup ih (PeerStore m) = maybe [] (PSQ.keys . peers) $ HM.lookup ih m
+-- | Returns all peers associated with a given info hash.
+lookup :: Ord a => InfoHash -> PeerStore a -> [PeerAddr a]
+lookup ih (PeerStore m) = maybe [] (PSQ.keys . peers) $ HM.lookup ih m
 
 batchSize = 64