1 files changed, 0 insertions, 13 deletions
diff --git a/examples/Main.hs b/examples/Main.hs
index bc3fbb8b..1d3b711b 100644
--- a/examples/Main.hs
+++ b/examples/Main.hs
@@ -1,23 +1,10 @@
 module Main (main) where
-import Control.Monad
 import Network.BitTorrent
-import Network.BitTorrent.Extension
 import System.Environment
-import Control.Monad.Trans
 main :: IO ()
 main = do
  [path]  <- getArgs
  torrent <- fromFile path
  print (contentLayout "./" (tInfo torrent))
-  client  <- newClient 100 [ExtDHT]
-  swarm   <- newLeecher  client torrent
-  storage <- swarm `bindTo`  "/tmp/"
-  ppStorage storage >>= print
-  discover swarm $ do
-    liftIO $ print "connected to peer"
-    forever $ do
-      liftIO (getCurrentProgress client >>= print)
-      exchange storage
-    liftIO $ print "disconnected"

diff --git a/examples/Main.hs b/examples/Main.hs index bc3fbb8b..1d3b711b 100644 --- a/examples/Main.hs +++ b/examples/Main.hs
@@ -1,23 +1,10 @@
1	module Main (main) where	1	module Main (main) where
2		2
3	import Control.Monad
4	import Network.BitTorrent	3	import Network.BitTorrent
5	import Network.BitTorrent.Extension
6	import System.Environment	4	import System.Environment
7	import Control.Monad.Trans
8		5
9	main :: IO ()	6	main :: IO ()
10	main = do	7	main = do
11	[path] <- getArgs	8	[path] <- getArgs
12	torrent <- fromFile path	9	torrent <- fromFile path
13	print (contentLayout "./" (tInfo torrent))	10	print (contentLayout "./" (tInfo torrent))
14	client <- newClient 100 [ExtDHT]
15	swarm <- newLeecher client torrent
16	storage <- swarm `bindTo` "/tmp/"
17	ppStorage storage >>= print
18	discover swarm $ do
19	liftIO $ print "connected to peer"
20	forever $ do
21	liftIO (getCurrentProgress client >>= print)
22	exchange storage
23	liftIO $ print "disconnected"