1 files changed, 1 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/Exchange/Block.hs b/src/Network/BitTorrent/Exchange/Block.hs
index ca635a75..5ab73b65 100644
--- a/src/Network/BitTorrent/Exchange/Block.hs
+++ b/src/Network/BitTorrent/Exchange/Block.hs
@@ -144,7 +144,7 @@ instance Pretty (Block BL.ByteString) where
 
 -- | Get size of block /payload/ in bytes.
 blockSize :: Block BL.ByteString -> BlockSize
-blockSize blk = fromIntegral (BL.length (blkData blk))
+blockSize = fromIntegral . BL.length . blkData
 {-# INLINE blockSize #-}
 
 -- | Get block index of a block.