From 6dfbb3d98510cb5d043c1b5828f2a42089da3546 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Wed, 26 Feb 2014 17:55:29 +0400
Subject: Comment udp tracker constants

---
 src/Network/BitTorrent/Tracker/RPC/UDP.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Network/BitTorrent/Tracker/RPC/UDP.hs')

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
 --  Options
 -----------------------------------------------------------------------}
 
+-- | 'System.Timeout.timeout' specific.
 sec :: Int
 sec = 1000000
 
+-- | See <http://www.bittorrent.org/beps/bep_0015.html#time-outs>
 defMinTimeout :: Int
 defMinTimeout = 15 * sec
 
+-- | See <http://www.bittorrent.org/beps/bep_0015.html#time-outs>
 defMaxTimeout :: Int
 defMaxTimeout = 15 * 2 ^ (8 :: Int) * sec
 
+-- | See: <http://www.bittorrent.org/beps/bep_0015.html#time-outs>
 defMultiplier :: Int
 defMultiplier = 2
 
+-- TODO why 98?
 defMaxPacketSize :: Int
 defMaxPacketSize = 98
 
-- 
cgit v1.2.3