diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-06-30 05:18:24 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-06-30 05:18:24 +0400 |
| commit | c15da2e2b376d81671f35e821e94db19e59d5ddd (patch) | |
| tree | 7bcc2c929df2dd49f27ef3083eb830344b3d7685 /src/Network/BitTorrent/Exchange/Protocol.hs | |
| parent | f556bf196bf07308f024cc43c1a51dfd4c21188c (diff) | |
+ Add very basic storage operations.
Now we can download and make some progress, but very unstable.
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Protocol.hs')
| -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. |