diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-25 15:29:21 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-25 15:29:21 +0400 |
| commit | 627b44ab54111322eeb273de87c6d8a24d7f37c1 (patch) | |
| tree | 65396d24977de856df49ba4803387fdfdf15c976 /src/Network/BitTorrent/Exchange/Session | |
| parent | 7627d4dda31ddbececa4c80b340026da9e06c80e (diff) | |
Use PieceSize then appropriate
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Session')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Session/Metadata.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Exchange/Session/Metadata.hs b/src/Network/BitTorrent/Exchange/Session/Metadata.hs index 7e14f493..174550fa 100644 --- a/src/Network/BitTorrent/Exchange/Session/Metadata.hs +++ b/src/Network/BitTorrent/Exchange/Session/Metadata.hs | |||
| @@ -38,7 +38,8 @@ data Status = Status | |||
| 38 | 38 | ||
| 39 | makeLenses ''Status | 39 | makeLenses ''Status |
| 40 | 40 | ||
| 41 | nullStatus :: PieceSize -> Status | 41 | -- | Create a new scheduler for infodict of the given size. |
| 42 | nullStatus :: Int -> Status | ||
| 42 | nullStatus ps = Status [] (Block.empty ps) | 43 | nullStatus ps = Status [] (Block.empty ps) |
| 43 | 44 | ||
| 44 | type Updates a = State Status a | 45 | type Updates a = State Status a |