diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-06-13 09:52:40 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-06-13 09:52:40 +0400 |
| commit | b1413145f58be6c3d7e536574a19e1b6c333cd54 (patch) | |
| tree | 2d2464533a4ec45d572d191c6439b84c73567a9c /exsamples/Main.hs | |
| parent | 38d8eb046cefce18a6689488994c05abf1223ffe (diff) | |
~ Use bounded chan to avoid space leaks.
Diffstat (limited to 'exsamples/Main.hs')
| -rw-r--r-- | exsamples/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/exsamples/Main.hs b/exsamples/Main.hs index 9ed311ae..ebc81b02 100644 --- a/exsamples/Main.hs +++ b/exsamples/Main.hs | |||
| @@ -15,7 +15,7 @@ main = do | |||
| 15 | [path] <- getArgs | 15 | [path] <- getArgs |
| 16 | torrent <- fromFile path | 16 | torrent <- fromFile path |
| 17 | 17 | ||
| 18 | client <- defaultClient | 18 | client <- newClient 2 [] |
| 19 | swarm <- newLeacher client torrent | 19 | swarm <- newLeacher client torrent |
| 20 | 20 | ||
| 21 | discover swarm $ do | 21 | discover swarm $ do |