2 files changed, 26 insertions, 0 deletions

diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs
index c72498d0..ea6b88bd 100644
--- a/src/Network/BitTorrent.hs
+++ b/src/Network/BitTorrent.hs
@@ -115,3 +115,25 @@ discover swarm @ SwarmSession {..} action = {-# SCC discover #-} do
       addr <- getPeerAddr tses
       spawnP2P swarm addr $ do
         action
+
+{-----------------------------------------------------------------------
+    Torrent management
+-----------------------------------------------------------------------}
+{-
+addTorrent :: ClientSession -> TorrentLoc -> IO ()
+addTorrent ClientSession {..} TorrentLoc {..} = do
+  torrent <- fromFile metafilePath
+  swarm   <- newLeecher  clientSession torrent
+  storage <- swarm `bindTo` dataDir
+  discover swarm $ do
+    liftIO $ putStrLn "connected to peer"
+    forever $ do
+      liftIO $ putStrLn "from mesage loop"
+      exchange storage
+
+removeTorrent :: ClientSession -> TorrentLoc ->  IO ()
+removeTorrent ClientSession {..} TorrentLoc {..} = undefined
+
+deleteTorrent :: ClientSession -> TorrentLoc -> IO ()
+deleteTorrent ClientSession {..} TorrentLoc {..} = undefined
+-}
\ No newline at end of file
diff --git a/src/Network/BitTorrent/Internal.hs b/src/Network/BitTorrent/Internal.hs
index 964dfd75..dd5f3bb7 100644
--- a/src/Network/BitTorrent/Internal.hs
+++ b/src/Network/BitTorrent/Internal.hs
@@ -55,6 +55,10 @@ module Network.BitTorrent.Internal
        , ThreadCount
        , defaultThreadCount
 
+       , TorrentLoc(..)
+       , registerTorrent
+       , unregisterTorrent
+
        , newClient
 
        , getCurrentProgress