diff options
Diffstat (limited to 'src/Network/BitTorrent/Exchange')
-rw-r--r-- | src/Network/BitTorrent/Exchange/Protocol.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Exchange/Protocol.hs b/src/Network/BitTorrent/Exchange/Protocol.hs index 8d42e3a8..4cf4685d 100644 --- a/src/Network/BitTorrent/Exchange/Protocol.hs +++ b/src/Network/BitTorrent/Exchange/Protocol.hs | |||
@@ -237,7 +237,7 @@ data Block = Block { | |||
237 | , blkOffset :: {-# UNPACK #-} !Int | 237 | , blkOffset :: {-# UNPACK #-} !Int |
238 | 238 | ||
239 | -- | Payload. | 239 | -- | Payload. |
240 | , blkData :: !ByteString | 240 | , blkData :: !ByteString -- TODO make lazy bytestring |
241 | } deriving (Show, Eq) | 241 | } deriving (Show, Eq) |
242 | 242 | ||
243 | -- | Format block in human readable form. Payload is ommitted. | 243 | -- | Format block in human readable form. Payload is ommitted. |