Fix some trivial UDPSpec failures

1 files changed, 2 insertions, 2 deletions

diff --git a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs
index 1ec3bdb7..3a3dddf5 100644
--- a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs
@@ -67,7 +67,7 @@ spec = parallel $ do
       let opts = def { optMinTimeout = 2, optMaxTimeout = 1 }
       newManager opts `shouldThrow` isSomeException
 
-    it "should throw exception on  optMultiplier" $ do
+    it "should throw exception on zero optMultiplier" $ do
       let opts = def { optMultiplier = 0 }
       newManager opts `shouldThrow` isSomeException
 
@@ -141,4 +141,4 @@ spec = parallel $ do
             it "should handle arbitrary intermixed concurrent queries" $ do
               withManager rpcOpts $ \ mgr -> do
                 _ <- mapConcurrently (\ _ -> scrape mgr trackerURI [def]) [1..rpcCount]
-                return ()
\ No newline at end of file
+                return ()