summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Tracker
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/Tracker')
-rw-r--r--src/Network/BitTorrent/Tracker/RPC/UDP.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Tracker/RPC/UDP.hs b/src/Network/BitTorrent/Tracker/RPC/UDP.hs
index 24e96238..31b6b870 100644
--- a/src/Network/BitTorrent/Tracker/RPC/UDP.hs
+++ b/src/Network/BitTorrent/Tracker/RPC/UDP.hs
@@ -123,10 +123,14 @@ checkOptions Options {..} = do
123 throwIO $ userError "optMinTimeout must be positive" 123 throwIO $ userError "optMinTimeout must be positive"
124 124
125 unless (optMaxTimeout > 0) $ do 125 unless (optMaxTimeout > 0) $ do
126 throwIO $ userError "optMaxTimeout must be positive"
127
128 unless (optMultiplier > 0) $ do
129 throwIO $ userError "optMultiplier must be positive"
130
131 unless (optMaxTimeout > optMinTimeout) $ do
126 throwIO $ userError "optMaxTimeout must be greater than optMinTimeout" 132 throwIO $ userError "optMaxTimeout must be greater than optMinTimeout"
127 133
128 unless (optMinTimeout > 0) $ do
129 throwIO $ userError "optMinTimeout must be positive"
130 134
131{----------------------------------------------------------------------- 135{-----------------------------------------------------------------------
132-- Manager state 136-- Manager state