From b1413145f58be6c3d7e536574a19e1b6c333cd54 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Thu, 13 Jun 2013 09:52:40 +0400
Subject: ~ Use bounded chan to avoid space leaks.

---
 exsamples/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'exsamples')

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
   [path]  <- getArgs
   torrent <- fromFile path
 
-  client  <- defaultClient
+  client  <- newClient 2 []
   swarm   <- newLeacher  client torrent
 
   discover swarm $ do
-- 
cgit v1.2.3