~ Another Literate Haskell test.

1 files changed, 22 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