summaryrefslogtreecommitdiff
path: root/examples/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/Main.hs')
-rw-r--r--examples/Main.hs18
1 files changed, 0 insertions, 18 deletions
diff --git a/examples/Main.hs b/examples/Main.hs
deleted file mode 100644
index ef12cc70..00000000
--- a/examples/Main.hs
+++ /dev/null
@@ -1,18 +0,0 @@
1module Main (main) where
2
3import Control.Concurrent
4import Network.BitTorrent
5import Network.BitTorrent.Sessions
6import System.Environment
7
8main :: IO ()
9main = do
10 [path] <- getArgs
11 torrent <- fromFile path
12 print (contentLayout "./" (tInfo torrent))
13 let loc = TorrentLoc path "/tmp"
14
15 withDefaultClient (head defaultPorts) 3000 $ \ client -> do
16 openSwarmSession client loc
17 threadDelay 1000000000000
18 return ()