diff options
Diffstat (limited to 'tests/Network/BitTorrent/DHT/QuerySpec.hs')
-rw-r--r-- | tests/Network/BitTorrent/DHT/QuerySpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/DHT/QuerySpec.hs b/tests/Network/BitTorrent/DHT/QuerySpec.hs index b89ce4ff..33114b40 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 (startNode hs def myAddr nullLogger) stopNode $ \ node -> | 31 | bracket (newNode hs def myAddr nullLogger) closeNode $ \ node -> |
32 | runDHT node m | 32 | runDHT node m |
33 | 33 | ||
34 | getBootInfo :: IO (NodeInfo IPv4) | 34 | getBootInfo :: IO (NodeInfo IPv4) |