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
 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

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