diff options
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Message.hs')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Message.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Exchange/Message.hs b/src/Network/BitTorrent/Exchange/Message.hs index 7748f843..d8873f95 100644 --- a/src/Network/BitTorrent/Exchange/Message.hs +++ b/src/Network/BitTorrent/Exchange/Message.hs | |||
| @@ -864,7 +864,7 @@ instance PeerMessage ExtendedMetadata where | |||
| 864 | 864 | ||
| 865 | -- | All 'Piece's in 'MetadataData' messages MUST have size equal to | 865 | -- | All 'Piece's in 'MetadataData' messages MUST have size equal to |
| 866 | -- this value. The last trailing piece can be shorter. | 866 | -- this value. The last trailing piece can be shorter. |
| 867 | metadataPieceSize :: Int | 867 | metadataPieceSize :: P.PieceSize |
| 868 | metadataPieceSize = 16 * 1024 | 868 | metadataPieceSize = 16 * 1024 |
| 869 | 869 | ||
| 870 | isLastPiece :: P.Piece a -> Int -> Bool | 870 | isLastPiece :: P.Piece a -> Int -> Bool |