summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Tracker.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/Tracker.hs')
-rw-r--r--src/Network/BitTorrent/Tracker.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Tracker.hs b/src/Network/BitTorrent/Tracker.hs
index f7d88bd9..2b8fab07 100644
--- a/src/Network/BitTorrent/Tracker.hs
+++ b/src/Network/BitTorrent/Tracker.hs
@@ -277,6 +277,8 @@ data ScrapeInfo = ScrapeInfo {
277 , siName :: !(Maybe Text) 277 , siName :: !(Maybe Text)
278 } deriving (Show, Eq) 278 } deriving (Show, Eq)
279 279
280$(deriveJSON (L.map toLower . L.dropWhile isLower) ''ScrapeInfo)
281
280-- | Scrape info about a set of torrents. 282-- | Scrape info about a set of torrents.
281type Scrape = Map InfoHash ScrapeInfo 283type Scrape = Map InfoHash ScrapeInfo
282 284
@@ -295,8 +297,6 @@ instance BEncodable ScrapeInfo where
295 <*> d >--? "name" 297 <*> d >--? "name"
296 fromBEncode _ = decodingError "ScrapeInfo" 298 fromBEncode _ = decodingError "ScrapeInfo"
297 299
298$(deriveJSON (L.map toLower . L.dropWhile isLower) ''ScrapeInfo)
299
300-- | Trying to convert /announce/ URL to /scrape/ URL. If 'scrapeURL' 300-- | Trying to convert /announce/ URL to /scrape/ URL. If 'scrapeURL'
301-- gives 'Nothing' then tracker do not support scraping. The info hash 301-- gives 'Nothing' then tracker do not support scraping. The info hash
302-- list is used to restrict the tracker's report to that particular 302-- list is used to restrict the tracker's report to that particular