Merge pull request #11 from Fuuzetsu/UDPSpec

Fix some trivial UDPSpec failures

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
     throwIO $ userError "optMinTimeout must be positive"
 
   unless (optMaxTimeout > 0) $ do
+    throwIO $ userError "optMaxTimeout must be positive"
+
+  unless (optMultiplier > 0) $ do
+    throwIO $ userError "optMultiplier must be positive"
+
+  unless (optMaxTimeout > optMinTimeout) $ do
     throwIO $ userError "optMaxTimeout must be greater than optMinTimeout"
 
-  unless (optMinTimeout > 0) $ do
-    throwIO $ userError "optMinTimeout must be positive"
 
 {-----------------------------------------------------------------------
 --  Manager state