From 2710e2b751d8857472a50c16fb9fc619190773b6 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Fri, 6 Dec 2013 01:07:56 +0400
Subject: Document core messages

---
 src/Network/BitTorrent/Exchange/Block.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Network/BitTorrent/Exchange/Block.hs')

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.
-- 
cgit v1.2.3