diff options
Diffstat (limited to 'tests/Network/BitTorrent/DHT/QuerySpec.hs')
| -rw-r--r-- | tests/Network/BitTorrent/DHT/QuerySpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Network/BitTorrent/DHT/QuerySpec.hs b/tests/Network/BitTorrent/DHT/QuerySpec.hs index 81c3b45b..6b3b5485 100644 --- a/tests/Network/BitTorrent/DHT/QuerySpec.hs +++ b/tests/Network/BitTorrent/DHT/QuerySpec.hs | |||
| @@ -28,7 +28,7 @@ nullLogger _ _ _ _ = return () | |||
| 28 | 28 | ||
| 29 | simpleDHT :: [NodeHandler IPv4] -> DHT IPv4 a -> IO a | 29 | simpleDHT :: [NodeHandler IPv4] -> DHT IPv4 a -> IO a |
| 30 | simpleDHT hs m = | 30 | simpleDHT hs m = |
| 31 | bracket (newNode hs def myAddr nullLogger) closeNode $ \ node -> | 31 | bracket (newNode hs def myAddr nullLogger Nothing) closeNode $ \ node -> |
| 32 | runDHT node m | 32 | runDHT node m |
| 33 | 33 | ||
| 34 | getBootInfo :: IO (NodeInfo IPv4) | 34 | getBootInfo :: IO (NodeInfo IPv4) |
| @@ -102,4 +102,4 @@ spec = parallel $ do | |||
| 102 | sourceList [startNodes] $= | 102 | sourceList [startNodes] $= |
| 103 | search entryHash (getPeersQ entryHash) $= | 103 | search entryHash (getPeersQ entryHash) $= |
| 104 | CL.concat $$ CL.take 10 | 104 | CL.concat $$ CL.take 10 |
| 105 | L.length peers `shouldBe` 10 \ No newline at end of file | 105 | L.length peers `shouldBe` 10 |