+ Add message and block pprint for logging.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/PeerWire/Block.hs b/src/Network/BitTorrent/PeerWire/Block.hs
index ddbc1020..9685a4fb 100644
--- a/src/Network/BitTorrent/PeerWire/Block.hs
+++ b/src/Network/BitTorrent/PeerWire/Block.hs
@@ -4,6 +4,7 @@ module Network.BitTorrent.PeerWire.Block
        , defaultBlockSize
        , pieceIx, blockIx
        , blockRange, ixRange, isPiece
+       , ppBlockIx, ppBlock
 
        , putInt, getInt
        ) where
@@ -48,6 +49,10 @@ instance Serialize BlockIx where
               putInt (ixLength ix)
   {-# INLINE put #-}
 
+ppBlockIx :: BlockIx -> String
+ppBlockIx ix = "piece = "  ++ show (ixPiece ix)  ++ ", "
+            ++ "offset = " ++ show (ixOffset ix) ++ ", "
+            ++ "length = " ++ show (ixLength ix)
 
 data Block = Block {
     -- ^ Zero-based piece index.
@@ -60,6 +65,8 @@ data Block = Block {
   , blkData   :: ByteString
   } deriving (Show, Eq)
 
+ppBlock :: Block -> String
+ppBlock = ppBlockIx . blockIx
 
 -- | Widely used semi-official block size.
 defaultBlockSize :: Int