diff options
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Session/Metadata.hs')
-rw-r--r-- | src/Network/BitTorrent/Exchange/Session/Metadata.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/Exchange/Session/Metadata.hs b/src/Network/BitTorrent/Exchange/Session/Metadata.hs index 02c2269f..79fd03b0 100644 --- a/src/Network/BitTorrent/Exchange/Session/Metadata.hs +++ b/src/Network/BitTorrent/Exchange/Session/Metadata.hs | |||
@@ -1,14 +1,14 @@ | |||
1 | {-# LANGUAGE TemplateHaskell #-} | 1 | {-# LANGUAGE TemplateHaskell #-} |
2 | module Network.BitTorrent.Exchange.Session.Metadata | 2 | module Network.BitTorrent.Exchange.Session.Metadata |
3 | ( -- * Metadata transfer state | 3 | ( -- * Transfer state |
4 | Status | 4 | Status |
5 | , nullStatus | 5 | , nullStatus |
6 | 6 | ||
7 | -- * Metadata updates | 7 | -- * State updates |
8 | , Updates | 8 | , Updates |
9 | , runUpdates | 9 | , runUpdates |
10 | 10 | ||
11 | -- * Metadata piece control | 11 | -- * Piece transfer control |
12 | , scheduleBlock | 12 | , scheduleBlock |
13 | , resetPending | 13 | , resetPending |
14 | , cancelPending | 14 | , cancelPending |
@@ -33,6 +33,7 @@ import Network.BitTorrent.Exchange.Block as Block | |||
33 | import Network.BitTorrent.Exchange.Message as Message hiding (Status) | 33 | import Network.BitTorrent.Exchange.Message as Message hiding (Status) |
34 | 34 | ||
35 | 35 | ||
36 | -- | Current transfer status. | ||
36 | data Status = Status | 37 | data Status = Status |
37 | { _pending :: [(PeerAddr IP, PieceIx)] | 38 | { _pending :: [(PeerAddr IP, PieceIx)] |
38 | , _bucket :: Bucket | 39 | , _bucket :: Bucket |