1 files changed, 7 insertions, 2 deletions

diff --git a/examples/Main.hs b/examples/Main.hs
index b8e3c11f..5128b290 100644
--- a/examples/Main.hs
+++ b/examples/Main.hs
@@ -1,6 +1,8 @@
 module Main (main) where
 
+import Control.Concurrent
 import Network.BitTorrent
+import Network.BitTorrent.Sessions
 import System.Environment
 
 main :: IO ()
@@ -8,6 +10,9 @@ main = do
   [path]  <- getArgs
   torrent <- fromFile path
   print (contentLayout "./" (tInfo torrent))
+  let loc = TorrentLoc path "/tmp"
 
-  withDefaultClient 3000 3001 $ \ client ->
-    addTorrent client $ TorrentLoc path "/tmp"
+  withDefaultClient 51413 3000 $ \ client -> do
+    openSwarmSession client loc
+    threadDelay 1000000000000
+    return ()