diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-07-14 03:25:46 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-07-14 03:25:46 +0400 |
| commit | 5a6e5634452ff463a7442dbd8761678651517d20 (patch) | |
| tree | 5ca9f455dee0aa6fcbf67e34f23b753f00bf3d55 /examples/Main.hs | |
| parent | e160fcee699c7012d8f50a6e4bcd3b8a9c02aedf (diff) | |
~ Minor changes.
Diffstat (limited to 'examples/Main.hs')
| -rw-r--r-- | examples/Main.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 | |||
| 8 | [path] <- getArgs | 8 | [path] <- getArgs |
| 9 | torrent <- fromFile path | 9 | torrent <- fromFile path |
| 10 | print (contentLayout "./" (tInfo torrent)) | 10 | print (contentLayout "./" (tInfo torrent)) |
| 11 | |||
| 12 | withDefaultClient 3000 3001 $ \ client -> | ||
| 13 | addTorrent client $ TorrentLoc path "/tmp" | ||