2 files changed, 3 insertions, 3 deletions

diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs
index 0c806db2..9aa25866 100644
--- a/src/Network/BitTorrent/DHT/Session.hs
+++ b/src/Network/BitTorrent/DHT/Session.hs
@@ -275,7 +275,7 @@ instance MonadActive (DHT ip) where
   monadActive = getManager >>= liftIO . isActive
   {-# INLINE monadActive #-}
 
--- | All allocated resources will be closed at 'stopNode'.
+-- | All allocated resources will be closed at 'closeNode'.
 instance MonadResource (DHT ip) where
   liftResourceT m = do
     s <- asks resources
@@ -292,7 +292,7 @@ instance MonadLogger (DHT ip) where
 type NodeHandler ip = Handler (DHT ip)
 
 -- | Run DHT session. You /must/ properly close session using
--- 'stopNode' function, otherwise socket or other scarce resources may
+-- 'closeNode' function, otherwise socket or other scarce resources may
 -- leak.
 newNode :: Address ip
           => [NodeHandler ip] -- ^ handlers to run on accepted queries;
diff --git a/tests/Network/BitTorrent/DHT/SessionSpec.hs b/tests/Network/BitTorrent/DHT/SessionSpec.hs
index a5376c32..8c536352 100644
--- a/tests/Network/BitTorrent/DHT/SessionSpec.hs
+++ b/tests/Network/BitTorrent/DHT/SessionSpec.hs
@@ -42,7 +42,7 @@ nullLogger _ _ _ _ = return ()
 spec :: Spec
 spec = do
   describe "session" $ do
-    it "is active until stopNode called" $ do
+    it "is active until closeNode called" $ do
       node <- newNode [] def myAddr nullLogger
       runDHT node monadActive `shouldReturn` True
       runDHT node monadActive `shouldReturn` True