1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
module Network.BitTorrent.DHT.TestData
( TestEntry (..)
, testTorrents
) where
import Data.Torrent
data TestEntry = TestEntry
{ entryName :: String
, entryHash :: InfoHash
, entryPeers :: Int -- ^ approximate number of peers, may change with time
}
testTorrents :: [TestEntry]
testTorrents =
[ TestEntry
{ entryName = "Automate with Arduino, Android..."
, entryHash = "8c0433e541dc5d1cfc095799cef171cd4eb586f7"
, entryPeers = 300
}
, TestEntry
{ entryName = "Beginning Programming with Java For Dummies"
, entryHash = "fd8967721731cc16c8b203a03e49ce839cecf184"
, entryPeers = 200
}
, TestEntry
{ entryName = "The C Programming Language"
, entryHash = "146d13f090e50e97091dbbe5b37678dd1471cfad"
, entryPeers = 100
}
, TestEntry
{ entryName = "The C++ Programming Language"
, entryHash = "8e8e8e6319031a22cff26d895afe050085c84a7f"
, entryPeers = 50
}
, TestEntry
{ entryName = "Game and Graphics Programming for iOS..."
, entryHash = "703d0595b727fccbfaa3d03be25f57347ccfd6de"
, entryPeers = 30
}
]
|
