summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/DHT.hs')
-rw-r--r--src/Network/BitTorrent/DHT.hs6
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.
88dht opts addr action = do 88dht 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{-----------------------------------------------------------------------