diff options
Diffstat (limited to 'src/Network/BitTorrent/Client.hs')
-rw-r--r-- | src/Network/BitTorrent/Client.hs | 2 |
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 |