diff options
Diffstat (limited to 'src/Network')
-rw-r--r-- | src/Network/BitTorrent/Tracker/RPC/UDP.hs | 8 |
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 |