Added "peers" command to cli.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs
index 4f861a1e..bc9fda91 100644
--- a/src/Network/BitTorrent/DHT/Session.hs
+++ b/src/Network/BitTorrent/DHT/Session.hs
@@ -55,6 +55,7 @@ module Network.BitTorrent.DHT.Session
        , getTable
        , getClosest
        , getSwarms
+       , allPeers
 
          -- ** Peer storage
        , insertPeer
@@ -408,6 +409,11 @@ getSwarms = do
     store <- asks contactInfo >>= liftIO . atomically . readTVar
     return $ P.knownSwarms store
 
+allPeers :: Ord ip => InfoHash -> DHT ip [ PeerAddr ip ]
+allPeers ih = do
+    store <- asks contactInfo >>= liftIO . atomically . readTVar
+    return $ P.lookup ih store
+
 -- | Find a set of closest nodes from routing table of this node. (in
 -- no particular order)
 --