Fix some warnings

2 files changed, 2 insertions, 4 deletions

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