~ Literate Haskell test.

1 files changed, 32 insertions, 0 deletions

diff --git a/examples/Main.lhs b/examples/Main.lhs
new file mode 100644
index 00000000..7d798bfc
--- /dev/null
+++ b/examples/Main.lhs
@@ -0,0 +1,32 @@
+A very helpful and literate comment.
+% A very helpful comment for very helpful and very literate comment.
+\begin{code}
+module Main (main) where
+
+import Control.Monad
+import Network.BitTorrent
+import System.Environment
+import Control.Monad.Trans
+
+
+main :: IO ()
+main = do
+  [path]  <- getArgs
+  torrent <- fromFile path
+
+  print (contentLayout "./" (tInfo torrent))
+
+  client  <- newClient 2 []
+  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"
+\end{code}
\ No newline at end of file