1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs
index ed42363f..44c55128 100644
--- a/src/Network/BitTorrent/DHT.hs
+++ b/src/Network/BitTorrent/DHT.hs
@@ -44,8 +44,8 @@ module Network.BitTorrent.DHT
       , LogFun
       , Node
       , defaultHandlers
-       , startNode
+       , newNode
-       , stopNode
+       , closeNode
         -- ** Monad
       , MonadDHT (..)
@@ -86,7 +86,7 @@ dht :: Address ip
    -> IO a        -- ^ result.
 dht opts addr action = do
  runStderrLoggingT $ LoggingT $ \ logger -> do
-    bracket (startNode defaultHandlers opts addr logger) stopNode $
+    bracket (newNode defaultHandlers opts addr logger) closeNode $
      \ node -> runDHT node action
 {-# INLINE dht #-}

diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs index ed42363f..44c55128 100644 --- a/src/Network/BitTorrent/DHT.hs +++ b/src/Network/BitTorrent/DHT.hs
@@ -44,8 +44,8 @@ module Network.BitTorrent.DHT
44	, LogFun	44	, LogFun
45	, Node	45	, Node
46	, defaultHandlers	46	, defaultHandlers
47	, startNode	47	, newNode
48	, stopNode	48	, closeNode
49		49
50	-- ** Monad	50	-- ** Monad
51	, MonadDHT (..)	51	, MonadDHT (..)
@@ -86,7 +86,7 @@ dht :: Address ip
86	-> IO a -- ^ result.	86	-> IO a -- ^ result.
87	dht opts addr action = do	87	dht opts addr action = do
88	runStderrLoggingT $ LoggingT $ \ logger -> do	88	runStderrLoggingT $ LoggingT $ \ logger -> do
89	bracket (startNode defaultHandlers opts addr logger) stopNode $	89	bracket (newNode defaultHandlers opts addr logger) closeNode $
90	\ node -> runDHT node action	90	\ node -> runDHT node action
91	{-# INLINE dht #-}	91	{-# INLINE dht #-}
92		92