From 627b44ab54111322eeb273de87c6d8a24d7f37c1 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Tue, 25 Feb 2014 15:29:21 +0400 Subject: Use PieceSize then appropriate --- src/Network/BitTorrent/Exchange/Session/Metadata.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Network/BitTorrent/Exchange/Session/Metadata.hs') 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 makeLenses ''Status -nullStatus :: PieceSize -> Status +-- | Create a new scheduler for infodict of the given size. +nullStatus :: Int -> Status nullStatus ps = Status [] (Block.empty ps) type Updates a = State Status a -- cgit v1.2.3