diff options
Diffstat (limited to 'examples')
-rw-r--r-- | examples/Client.hs | 6 |
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 @@ | |||
1 | module Main (main) where | 1 | module Main (main) where |
2 | import Control.Concurrent | ||
3 | import Control.Monad.Trans | ||
2 | import System.Environment | 4 | import System.Environment |
3 | import System.Exit | 5 | import System.Exit |
4 | import System.IO | 6 | import System.IO |
5 | import Network.BitTorrent | 7 | import Network.BitTorrent |
6 | 8 | ||
9 | |||
7 | parseArgs :: IO FilePath | 10 | parseArgs :: IO FilePath |
8 | parseArgs = do | 11 | parseArgs = do |
9 | args <- getArgs | 12 | args <- getArgs |
@@ -19,4 +22,5 @@ main = do | |||
19 | torrent <- fromFile path | 22 | torrent <- fromFile path |
20 | simpleClient $ do | 23 | simpleClient $ do |
21 | h <- openTorrent torrent | 24 | h <- openTorrent torrent |
22 | return () | 25 | start h |
26 | liftIO $ threadDelay 10000000000 | ||