diff options
Diffstat (limited to 'src/Network/BitTorrent/Client.hs')
| -rw-r--r-- | src/Network/BitTorrent/Client.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Client.hs b/src/Network/BitTorrent/Client.hs index 905d3384..bd4993ba 100644 --- a/src/Network/BitTorrent/Client.hs +++ b/src/Network/BitTorrent/Client.hs | |||
| @@ -98,8 +98,8 @@ initClient opts @ Options {..} logFun = do | |||
| 98 | let mkEx = Exchange.newManager (exchangeOptions pid opts) (connHandler tmap) | 98 | let mkEx = Exchange.newManager (exchangeOptions pid opts) (connHandler tmap) |
| 99 | (_, emgr) <- allocate mkEx Exchange.closeManager | 99 | (_, emgr) <- allocate mkEx Exchange.closeManager |
| 100 | 100 | ||
| 101 | let mkNode = startNode defaultHandlers def optNodeAddr logFun | 101 | let mkNode = DHT.newNode defaultHandlers def optNodeAddr logFun |
| 102 | (_, node) <- allocate mkNode stopNode | 102 | (_, node) <- allocate mkNode DHT.closeNode |
| 103 | 103 | ||
| 104 | resourceMap <- getInternalState | 104 | resourceMap <- getInternalState |
| 105 | return Client | 105 | return Client |