~ Add exsamples.

1 files changed, 20 insertions, 0 deletions

diff --git a/exsamples/Main.hs b/exsamples/Main.hs
new file mode 100644
index 00000000..3a347ab6
--- /dev/null
+++ b/exsamples/Main.hs
@@ -0,0 +1,20 @@
+module Main (main) where
+
+import Data.Bitfield
+import Network.BitTorrent
+import System.Environment
+
+
+main :: IO ()
+main = do
+  [path] <- getArgs
+  Right torrent <- fromFile path
+
+  client  <- newClient []
+  swarm   <- newLeacher  client torrent
+
+  discover swarm $ \se -> do
+    peers <- getPeerList se
+    print peers
+
+  print "Bye-bye!"
\ No newline at end of file