2 files changed, 17 insertions, 18 deletions

diff --git a/examples/Client.hs b/examples/Client.hs
new file mode 100644
index 00000000..efafba72
--- /dev/null
+++ b/examples/Client.hs
@@ -0,0 +1,17 @@
+module Main (main) where
+
+import Control.Concurrent
+import Data.Default
+import Data.Torrent
+import Network.BitTorrent.Client
+import System.Environment
+import Text.PrettyPrint.Class
+
+
+main :: IO ()
+main = do
+  [path]  <- getArgs
+  torrent <- fromFile path
+  client  <- newClient def
+  addTorrent torrent client
+  return ()
\ No newline at end of file
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 @@
-module Main (main) where
-
-import Control.Concurrent
-import Network.BitTorrent
-import Network.BitTorrent.Sessions
-import System.Environment
-
-main :: IO ()
-main = do
-  [path]  <- getArgs
-  torrent <- fromFile path
-  print (contentLayout "./" (tInfo torrent))
-  let loc = TorrentLoc path "/tmp"
-
-  withDefaultClient (head defaultPorts) 3000 $ \ client -> do
-    openSwarmSession client loc
-    threadDelay 1000000000000
-    return ()