2 files changed, 13 insertions, 1 deletions

diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs
index 8764d91d..7165900a 100644
--- a/src/Network/BitTorrent.hs
+++ b/src/Network/BitTorrent.hs
@@ -36,8 +36,11 @@ module Network.BitTorrent
        , Torrent
 
          -- ** Handle
+       , Handle
+       , topic
        , TorrentSource(openHandle)
        , closeHandle
+       , getIndex
 
          -- ** Control
        , start
diff --git a/src/Network/BitTorrent/Client.hs b/src/Network/BitTorrent/Client.hs
index fce8cfe2..8e59d798 100644
--- a/src/Network/BitTorrent/Client.hs
+++ b/src/Network/BitTorrent/Client.hs
@@ -27,14 +27,18 @@ module Network.BitTorrent.Client
        , getClient
 
          -- * Handle
+       , Handle
+       , topic
        , TorrentSource (..)
        , closeHandle
+       , getIndex
 
        , start
        , pause
        , stop
        ) where
 
+import Control.Applicative
 import Control.Exception
 import Control.Concurrent
 import Control.Monad.Logger
@@ -172,4 +176,9 @@ instance TorrentSource FilePath where
   openHandle contentDir torrentPath = do
     t <- liftIO $ fromFile torrentPath
     openTorrent contentDir t
-  {-# INLINE openHandle #-}
\ No newline at end of file
+  {-# INLINE openHandle #-}
+
+getIndex :: BitTorrent [Handle]
+getIndex = do
+  Client {..} <- getClient
+  elems <$> liftIO (readMVar clientTorrents)