~ Unliterate example.

1 files changed, 23 insertions, 0 deletions

diff --git a/examples/Main.hs b/examples/Main.hs
new file mode 100644
index 00000000..bc3fbb8b
--- /dev/null
+++ b/examples/Main.hs
@@ -0,0 +1,23 @@
+module Main (main) where
+
+import Control.Monad
+import Network.BitTorrent
+import Network.BitTorrent.Extension
+import System.Environment
+import Control.Monad.Trans
+
+main :: IO ()
+main = do
+  [path]  <- getArgs
+  torrent <- fromFile path
+  print (contentLayout "./" (tInfo torrent))
+  client  <- newClient 100 [ExtDHT]
+  swarm   <- newLeecher  client torrent
+  storage <- swarm `bindTo`  "/tmp/"
+  ppStorage storage >>= print
+  discover swarm $ do
+    liftIO $ print "connected to peer"
+    forever $ do
+      liftIO (getCurrentProgress client >>= print)
+      exchange storage
+    liftIO $ print "disconnected"