1 files changed, 2 insertions, 2 deletions
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

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
12		12
13	main :: IO ()	13	main :: IO ()
14	main = do	14	main = do
15	[path] <- getArgs	15	[path] <- getArgs
16	torrent <- fromFile path	16	torrent <- fromFile path
17		17
18	client <- newClient 1 []	18	client <- defaultClient
19	swarm <- newLeacher client torrent	19	swarm <- newLeacher client torrent
20		20
21	discover swarm $ do	21	discover swarm $ do