summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Network/BitTorrent/Tracker/RPC/UDP.hs5
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.
63sec :: Int 64sec :: Int
64sec = 1000000 65sec = 1000000
65 66
67-- | See <http://www.bittorrent.org/beps/bep_0015.html#time-outs>
66defMinTimeout :: Int 68defMinTimeout :: Int
67defMinTimeout = 15 * sec 69defMinTimeout = 15 * sec
68 70
71-- | See <http://www.bittorrent.org/beps/bep_0015.html#time-outs>
69defMaxTimeout :: Int 72defMaxTimeout :: Int
70defMaxTimeout = 15 * 2 ^ (8 :: Int) * sec 73defMaxTimeout = 15 * 2 ^ (8 :: Int) * sec
71 74
75-- | See: <http://www.bittorrent.org/beps/bep_0015.html#time-outs>
72defMultiplier :: Int 76defMultiplier :: Int
73defMultiplier = 2 77defMultiplier = 2
74 78
79-- TODO why 98?
75defMaxPacketSize :: Int 80defMaxPacketSize :: Int
76defMaxPacketSize = 98 81defMaxPacketSize = 98
77 82