Fix some warnings

1 files changed, 1 insertions, 3 deletions

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