1 files changed, 0 insertions, 40 deletions

diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs
index ef144f1f..c72498d0 100644
--- a/src/Network/BitTorrent.hs
+++ b/src/Network/BitTorrent.hs
@@ -115,43 +115,3 @@ discover swarm @ SwarmSession {..} action = {-# SCC discover #-} do
       addr <- getPeerAddr tses
       spawnP2P swarm addr $ do
         action
-
--- Event translation table looks like:
---
---   Available -> Want
---   Want      -> Fragment
---   Fragment  -> Available
---
--- If we join the chain we get the event loop:
---
---   Available -> Want -> Fragment --\
---      /|\                           |
---       \---------------------------/
---
-
-
--- | Default P2P action.
-exchange :: Storage -> P2P ()
-exchange storage = {-# SCC exchange #-} (awaitEvent >>= handler)
-  where
-    handler (Available bf) = do
-      liftIO (print (completeness bf))
-      ixs <- selBlk (findMin bf) storage
-      mapM_ (yieldEvent . Want) ixs -- TODO yield vectored
-
-    handler (Want     bix) = do
-      blk <- liftIO $ getBlk bix storage
-      yieldEvent (Fragment blk)
-
-    handler (Fragment blk @ Block {..}) = do
-      liftIO $ print (ppBlock blk)
-      done <- liftIO $ putBlk blk storage
-      when done $ do
-        yieldEvent $ Available $ singleton blkPiece (succ blkPiece)
-
-        -- WARN this is not reliable: if peer do not return all piece
-        -- block we could slow don't until some other event occured
-        offer <- peerOffer
-        if BF.null offer
-          then return ()
-          else handler (Available offer)