diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-30 13:06:09 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-30 13:06:09 +0400 |
| commit | 5573c240b4c2e87cf2deb55939591edd0851f8b8 (patch) | |
| tree | 4c51ad9d979ad1c1b34e9083cfbe67c5a3650aa2 /src/Network/BitTorrent/Tracker/RPC/Message.hs | |
| parent | 7f54308b57615bc61c0727538af2b5a54366eadb (diff) | |
Add basic spec for UDP tracker RPC
Diffstat (limited to 'src/Network/BitTorrent/Tracker/RPC/Message.hs')
| -rw-r--r-- | src/Network/BitTorrent/Tracker/RPC/Message.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Network/BitTorrent/Tracker/RPC/Message.hs b/src/Network/BitTorrent/Tracker/RPC/Message.hs index 18c1a4c7..a0691f37 100644 --- a/src/Network/BitTorrent/Tracker/RPC/Message.hs +++ b/src/Network/BitTorrent/Tracker/RPC/Message.hs | |||
| @@ -482,6 +482,7 @@ parseFailureStatus = mkStatus <$> parseFailureCode <*> parseFailureMessage | |||
| 482 | 482 | ||
| 483 | type ScrapeQuery = [InfoHash] | 483 | type ScrapeQuery = [InfoHash] |
| 484 | 484 | ||
| 485 | -- TODO rename to ScrapeEntry | ||
| 485 | -- | Overall information about particular torrent. | 486 | -- | Overall information about particular torrent. |
| 486 | data ScrapeInfo = ScrapeInfo { | 487 | data ScrapeInfo = ScrapeInfo { |
| 487 | -- | Number of seeders - peers with the entire file. | 488 | -- | Number of seeders - peers with the entire file. |
| @@ -501,6 +502,7 @@ data ScrapeInfo = ScrapeInfo { | |||
| 501 | $(deriveJSON (L.map toLower . L.dropWhile isLower) ''ScrapeInfo) | 502 | $(deriveJSON (L.map toLower . L.dropWhile isLower) ''ScrapeInfo) |
| 502 | 503 | ||
| 503 | -- TODO hash map | 504 | -- TODO hash map |
| 505 | -- TODO rename to ScrapeInfo | ||
| 504 | -- | Scrape info about a set of torrents. | 506 | -- | Scrape info about a set of torrents. |
| 505 | type Scrape = Map InfoHash ScrapeInfo | 507 | type Scrape = Map InfoHash ScrapeInfo |
| 506 | 508 | ||