~ Yet Yet Another Literate Haskell Test.

1 files changed, 3 insertions, 11 deletions

diff --git a/examples/Main.lhs b/examples/Main.lhs
index 1a7b5b12..4d1c4eef 100644
--- a/examples/Main.lhs
+++ b/examples/Main.lhs
@@ -1,28 +1,20 @@
-A very helpful and literate comment.
-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