diff options
Diffstat (limited to 'src/Network/BitTorrent/Tracker/RPC')
-rw-r--r-- | src/Network/BitTorrent/Tracker/RPC/UDP.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Network/BitTorrent/Tracker/RPC/UDP.hs b/src/Network/BitTorrent/Tracker/RPC/UDP.hs index 76188eaf..b0f44ec6 100644 --- a/src/Network/BitTorrent/Tracker/RPC/UDP.hs +++ b/src/Network/BitTorrent/Tracker/RPC/UDP.hs | |||
@@ -60,18 +60,23 @@ import Network.BitTorrent.Tracker.Message | |||
60 | -- Options | 60 | -- Options |
61 | -----------------------------------------------------------------------} | 61 | -----------------------------------------------------------------------} |
62 | 62 | ||
63 | -- | 'System.Timeout.timeout' specific. | ||
63 | sec :: Int | 64 | sec :: Int |
64 | sec = 1000000 | 65 | sec = 1000000 |
65 | 66 | ||
67 | -- | See <http://www.bittorrent.org/beps/bep_0015.html#time-outs> | ||
66 | defMinTimeout :: Int | 68 | defMinTimeout :: Int |
67 | defMinTimeout = 15 * sec | 69 | defMinTimeout = 15 * sec |
68 | 70 | ||
71 | -- | See <http://www.bittorrent.org/beps/bep_0015.html#time-outs> | ||
69 | defMaxTimeout :: Int | 72 | defMaxTimeout :: Int |
70 | defMaxTimeout = 15 * 2 ^ (8 :: Int) * sec | 73 | defMaxTimeout = 15 * 2 ^ (8 :: Int) * sec |
71 | 74 | ||
75 | -- | See: <http://www.bittorrent.org/beps/bep_0015.html#time-outs> | ||
72 | defMultiplier :: Int | 76 | defMultiplier :: Int |
73 | defMultiplier = 2 | 77 | defMultiplier = 2 |
74 | 78 | ||
79 | -- TODO why 98? | ||
75 | defMaxPacketSize :: Int | 80 | defMaxPacketSize :: Int |
76 | defMaxPacketSize = 98 | 81 | defMaxPacketSize = 98 |
77 | 82 | ||