1 files changed, 6 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/PeerWire/Block.hs b/src/Network/BitTorrent/PeerWire/Block.hs
index 582accdb..fbc65338 100644
--- a/src/Network/BitTorrent/PeerWire/Block.hs
+++ b/src/Network/BitTorrent/PeerWire/Block.hs
@@ -1,5 +1,7 @@
 module Network.BitTorrent.PeerWire.Block
-       ( BlockIx(..), Block(..), PieceIx
+       ( BlockIx(..)
+       , Block(..), blockSize
+       , PieceIx
        , BlockLIx, PieceLIx
        , defaultBlockSize
        , pieceIx, blockIx
@@ -68,6 +70,9 @@ data Block = Block {
 ppBlock :: Block -> String
 ppBlock = ppBlockIx . blockIx
 
+blockSize :: Block -> Int
+blockSize blk = B.length (blkData blk)
+
 -- | Widely used semi-official block size.
 defaultBlockSize :: Int
 defaultBlockSize = 16 * 1024