diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-07-14 03:25:46 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-07-14 03:25:46 +0400 |
| commit | 5a6e5634452ff463a7442dbd8761678651517d20 (patch) | |
| tree | 5ca9f455dee0aa6fcbf67e34f23b753f00bf3d55 /src/Network/BitTorrent.hs | |
| parent | e160fcee699c7012d8f50a6e4bcd3b8a9c02aedf (diff) | |
~ Minor changes.
Diffstat (limited to 'src/Network/BitTorrent.hs')
| -rw-r--r-- | src/Network/BitTorrent.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 | |||
| 46 | -- | Client session with default parameters. Use it for testing only. | 46 | -- | Client session with default parameters. Use it for testing only. |
| 47 | withDefaultClient :: PortNumber -> PortNumber -> (ClientSession -> IO ()) -> IO () | 47 | withDefaultClient :: PortNumber -> PortNumber -> (ClientSession -> IO ()) -> IO () |
| 48 | withDefaultClient dhtPort listPort action = do | 48 | withDefaultClient dhtPort listPort action = do |
| 49 | withClientSession defaultThreadCount defaultExtensions $ \client -> do | 49 | withClientSession defaultThreadCount defaultExtensions listPort dhtPort action |
| 50 | action client | ||
| 51 | 50 | ||
| 52 | {----------------------------------------------------------------------- | 51 | {----------------------------------------------------------------------- |
| 53 | Torrent management | 52 | Torrent management |