diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-06 01:07:56 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-06 01:07:56 +0400 |
| commit | 2710e2b751d8857472a50c16fb9fc619190773b6 (patch) | |
| tree | 7ddb953bdd4b2c4d91bdaa033a96adf1c8545c3d /src/Network/BitTorrent/Exchange/Block.hs | |
| parent | 34d2d93d2906b7627133a8f1c8f6dda4aee2f796 (diff) | |
Document core messages
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Block.hs')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Block.hs | 2 |
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 | |||
| 144 | 144 | ||
| 145 | -- | Get size of block /payload/ in bytes. | 145 | -- | Get size of block /payload/ in bytes. |
| 146 | blockSize :: Block BL.ByteString -> BlockSize | 146 | blockSize :: Block BL.ByteString -> BlockSize |
| 147 | blockSize blk = fromIntegral (BL.length (blkData blk)) | 147 | blockSize = fromIntegral . BL.length . blkData |
| 148 | {-# INLINE blockSize #-} | 148 | {-# INLINE blockSize #-} |
| 149 | 149 | ||
| 150 | -- | Get block index of a block. | 150 | -- | Get block index of a block. |