From 38d8eb046cefce18a6689488994c05abf1223ffe Mon Sep 17 00:00:00 2001 From: Sam T Date: Thu, 13 Jun 2013 07:36:48 +0400 Subject: + Add defaultClient function. This exposes problems with keepalives: exsample: sendWakeup: resource exhausted (Resource temporarily unavailable ) --- exsamples/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'exsamples') diff --git a/exsamples/Main.hs b/exsamples/Main.hs index 2c879378..9ed311ae 100644 --- a/exsamples/Main.hs +++ b/exsamples/Main.hs @@ -12,10 +12,10 @@ import Data.IORef main :: IO () main = do - [path] <- getArgs + [path] <- getArgs torrent <- fromFile path - client <- newClient 1 [] + client <- defaultClient swarm <- newLeacher client torrent discover swarm $ do -- cgit v1.2.3