~ Yet Another Literate Haskell Test.

1 files changed, 30 insertions, 33 deletions

diff --git a/examples/Main.lhs b/examples/Main.lhs
index 7af7a8a0..1a7b5b12 100644
--- a/examples/Main.lhs
+++ b/examples/Main.lhs
@@ -1,34 +1,31 @@
 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
+A very helpful comment for very helpful and very literate comment.
+
+> 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"