~ A few fixes in session.

1 files changed, 1 insertions, 2 deletions

diff --git a/src/Network/BitTorrent/Exchange.hs b/src/Network/BitTorrent/Exchange.hs
index b2d639f6..dc1b2752 100644
--- a/src/Network/BitTorrent/Exchange.hs
+++ b/src/Network/BitTorrent/Exchange.hs
@@ -464,16 +464,15 @@ 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
+      liftIO $ print bix
       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)