From 2fee3e9d893973b3db7af606e6583d2ccd9d05eb Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Thu, 20 Feb 2014 06:25:03 +0400 Subject: Fix some warnings --- tests/Network/BitTorrent/DHT/SessionSpec.hs | 2 +- tests/Network/BitTorrent/DHTSpec.hs | 4 +--- 2 files changed, 2 insertions(+), 4 deletions(-) (limited to 'tests/Network/BitTorrent') diff --git a/tests/Network/BitTorrent/DHT/SessionSpec.hs b/tests/Network/BitTorrent/DHT/SessionSpec.hs index c936dd1b..41852763 100644 --- a/tests/Network/BitTorrent/DHT/SessionSpec.hs +++ b/tests/Network/BitTorrent/DHT/SessionSpec.hs @@ -64,7 +64,7 @@ spec = do property $ \ (nid :: NodeId) -> do let info = NodeInfo nid myAddr closest <- simpleDHT $ do - insertNode info + _ <- insertNode info liftIO $ yield getClosest nid closest `shouldSatisfy` L.elem info diff --git a/tests/Network/BitTorrent/DHTSpec.hs b/tests/Network/BitTorrent/DHTSpec.hs index a8248be2..76b48257 100644 --- a/tests/Network/BitTorrent/DHTSpec.hs +++ b/tests/Network/BitTorrent/DHTSpec.hs @@ -4,11 +4,9 @@ import Control.Monad import Data.Default import Data.List as L import Test.Hspec -import Test.QuickCheck import System.Timeout import Data.Torrent.InfoHash -import Network.BitTorrent.Core import Network.BitTorrent.DHT @@ -38,7 +36,7 @@ spec = do it "partial bootstrapping should finish in less than 10 seconds" $ do node <- resolveHostName (L.head defaultBootstrapNodes) res <- timeout partialBootstrapTimeout $ do - dht def def $ do + dht opts def $ do bootstrap [node] isBootstrapped res `shouldBe` Just True -- cgit v1.2.3