summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Client.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/Client.hs')
-rw-r--r--src/Network/BitTorrent/Client.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Client.hs b/src/Network/BitTorrent/Client.hs
index d21b4d1e..b9a59f45 100644
--- a/src/Network/BitTorrent/Client.hs
+++ b/src/Network/BitTorrent/Client.hs
@@ -114,7 +114,7 @@ initClient opts @ Options {..} logFun = do
114 let mkEx = Exchange.newManager (exchangeOptions pid opts) (connHandler tmap) 114 let mkEx = Exchange.newManager (exchangeOptions pid opts) (connHandler tmap)
115 (_, emgr) <- allocate mkEx Exchange.closeManager 115 (_, emgr) <- allocate mkEx Exchange.closeManager
116 116
117 let mkNode = DHT.newNode defaultHandlers def optNodeAddr logFun 117 let mkNode = DHT.newNode defaultHandlers def optNodeAddr logFun Nothing
118 (_, node) <- allocate mkNode DHT.closeNode 118 (_, node) <- allocate mkNode DHT.closeNode
119 119
120 resourceMap <- getInternalState 120 resourceMap <- getInternalState