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/Metadata.hs | |
parent | 7627d4dda31ddbececa4c80b340026da9e06c80e (diff) |
Use PieceSize then appropriate
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Session/Metadata.hs')
-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 |