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 9b53ad6d..7a50b6ba 100644 --- a/src/Network/BitTorrent/Client.hs +++ b/src/Network/BitTorrent/Client.hs | |||
@@ -94,7 +94,7 @@ newClient opts @ Options {..} logger = do | |||
94 | tmgr <- Tracker.newManager def (PeerInfo pid Nothing optPort) | 94 | tmgr <- Tracker.newManager def (PeerInfo pid Nothing optPort) |
95 | emgr <- Exchange.newManager (exchangeOptions pid opts) connHandler | 95 | emgr <- Exchange.newManager (exchangeOptions pid opts) connHandler |
96 | node <- do | 96 | node <- do |
97 | node <- startNode handlers def optNodeAddr logger | 97 | node <- startNode defaultHandlers def optNodeAddr logger |
98 | runDHT node $ bootstrap (maybeToList optBootNode) | 98 | runDHT node $ bootstrap (maybeToList optBootNode) |
99 | return node | 99 | return node |
100 | return Client | 100 | return Client |