1 files changed, 3 insertions, 3 deletions

diff --git a/tests/Network/BitTorrent/DHT/SessionSpec.hs b/tests/Network/BitTorrent/DHT/SessionSpec.hs
index 8c536352..ef844b31 100644
--- a/tests/Network/BitTorrent/DHT/SessionSpec.hs
+++ b/tests/Network/BitTorrent/DHT/SessionSpec.hs
@@ -26,7 +26,7 @@ myAddr = "127.0.0.1:60000"
 
 simpleDHT :: DHT IPv4 a -> IO a
 simpleDHT m =
-  bracket (newNode defaultHandlers def myAddr nullLogger) closeNode $ \ node ->
+  bracket (newNode defaultHandlers def myAddr nullLogger Nothing) closeNode $ \ node ->
     runDHT node m
 
 isRight :: Either a b -> Bool
@@ -43,7 +43,7 @@ spec :: Spec
 spec = do
   describe "session" $ do
     it "is active until closeNode called" $ do
-      node <- newNode [] def myAddr nullLogger
+      node <- newNode [] def myAddr nullLogger Nothing
       runDHT node monadActive `shouldReturn` True
       runDHT node monadActive `shouldReturn` True
       closeNode node
@@ -106,4 +106,4 @@ spec = do
 
     describe "(<@>) operator" $ do
       it "" $
-         pending
\ No newline at end of file
+         pending