Update client example

1 files changed, 17 insertions, 0 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