Add exchange manager and session to client session

1 files changed, 5 insertions, 1 deletions

diff --git a/examples/Client.hs b/examples/Client.hs
index 2fc66101..0ed4bb6f 100644
--- a/examples/Client.hs
+++ b/examples/Client.hs
@@ -1,9 +1,12 @@
 module Main (main) where
+import Control.Concurrent
+import Control.Monad.Trans
 import System.Environment
 import System.Exit
 import System.IO
 import Network.BitTorrent
 
+
 parseArgs :: IO FilePath
 parseArgs = do
   args <- getArgs
@@ -19,4 +22,5 @@ main = do
   torrent <- fromFile path
   simpleClient $ do
     h <- openTorrent torrent
-    return ()
+    start h
+    liftIO $ threadDelay 10000000000