From 5a6e5634452ff463a7442dbd8761678651517d20 Mon Sep 17 00:00:00 2001 From: Sam T Date: Sun, 14 Jul 2013 03:25:46 +0400 Subject: ~ Minor changes. --- examples/Main.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'examples/Main.hs') diff --git a/examples/Main.hs b/examples/Main.hs index 1d3b711b..b8e3c11f 100644 --- a/examples/Main.hs +++ b/examples/Main.hs @@ -8,3 +8,6 @@ main = do [path] <- getArgs torrent <- fromFile path print (contentLayout "./" (tInfo torrent)) + + withDefaultClient 3000 3001 $ \ client -> + addTorrent client $ TorrentLoc path "/tmp" -- cgit v1.2.3