diff options
Diffstat (limited to 'src/Network/BitTorrent/DHT.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs index 080a0fc0..cdc5124b 100644 --- a/src/Network/BitTorrent/DHT.hs +++ b/src/Network/BitTorrent/DHT.hs | |||
@@ -43,7 +43,7 @@ module Network.BitTorrent.DHT | |||
43 | -- ** Session | 43 | -- ** Session |
44 | , LogFun | 44 | , LogFun |
45 | , Node | 45 | , Node |
46 | , handlers | 46 | , defaultHandlers |
47 | , startNode | 47 | , startNode |
48 | , stopNode | 48 | , stopNode |
49 | 49 | ||
@@ -87,8 +87,8 @@ dht :: Address ip | |||
87 | -> IO a -- ^ result. | 87 | -> IO a -- ^ result. |
88 | dht opts addr action = do | 88 | dht opts addr action = do |
89 | runStderrLoggingT $ LoggingT $ \ logger -> do | 89 | runStderrLoggingT $ LoggingT $ \ logger -> do |
90 | bracket (startNode handlers opts addr logger) stopNode $ \ node -> | 90 | bracket (startNode defaultHandlers opts addr logger) stopNode $ |
91 | runDHT node action | 91 | \ node -> runDHT node action |
92 | {-# INLINE dht #-} | 92 | {-# INLINE dht #-} |
93 | 93 | ||
94 | {----------------------------------------------------------------------- | 94 | {----------------------------------------------------------------------- |