+ Add JSON instance for ScrapeInfo.

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs
index 95a4c4e3..4f6eaf16 100644
--- a/src/Network/BitTorrent.hs
+++ b/src/Network/BitTorrent.hs
@@ -151,6 +151,8 @@ exchange storage = {-# SCC exchange #-} (awaitEvent >>= handler)
       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 ()