From 5a6e5634452ff463a7442dbd8761678651517d20 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Sun, 14 Jul 2013 03:25:46 +0400
Subject: ~ Minor changes.

---
 src/Network/BitTorrent.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/Network/BitTorrent.hs')

diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs
index 8c3189d3..c166b1b1 100644
--- a/src/Network/BitTorrent.hs
+++ b/src/Network/BitTorrent.hs
@@ -46,8 +46,7 @@ import System.Torrent.Storage
 -- | Client session with default parameters. Use it for testing only.
 withDefaultClient :: PortNumber -> PortNumber -> (ClientSession -> IO ()) -> IO ()
 withDefaultClient dhtPort listPort action = do
-  withClientSession defaultThreadCount defaultExtensions $ \client -> do
-    action client
+  withClientSession defaultThreadCount defaultExtensions listPort dhtPort action
 
 {-----------------------------------------------------------------------
     Torrent management
-- 
cgit v1.2.3