~ Add exsamples.

2 files changed, 25 insertions, 0 deletions

diff --git a/bittorrent.cabal b/bittorrent.cabal
index 6266b63b..b4da98a4 100644
--- a/bittorrent.cabal
+++ b/bittorrent.cabal
@@ -102,6 +102,11 @@ library
     cpp-options:       -DTESTING
   ghc-options:         -Wall
 
+executable exsample
+  main-is:             Main.hs
+  hs-source-dirs:      exsamples
+  build-depends:       base == 4.*
+                     , bittorrent
 
 
 test-suite info-hash
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