From 1fb701938aba43797124d2975c15f936ac71409a Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Fri, 14 Jun 2013 07:12:53 +0400
Subject: ~ Cosmetic changes.

---
 src/Network/BitTorrent.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'src/Network/BitTorrent.hs')

diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs
index 546c7644..24d78e85 100644
--- a/src/Network/BitTorrent.hs
+++ b/src/Network/BitTorrent.hs
@@ -16,6 +16,7 @@ module Network.BitTorrent
 
        , SwarmSession
        , newLeacher, newSeeder
+       , getSessionCount
 
          -- * Discovery
        , discover
@@ -63,16 +64,11 @@ discover swarm action = do
 
   progress <- getCurrentProgress (clientSession swarm)
 
-  putStrLn "lookup peers"
   withTracker progress conn $ \tses -> do
-    putStrLn "get peer list "
     forever $ do
       addr <- getPeerAddr tses
-      putStrLn "connect to peer"
       spawnP2P swarm addr $ do
-        liftIO $ putStrLn "run p2p session"
         action
-      putStrLn "connected"
 
 listener :: SwarmSession -> P2P () -> IO PortNumber
 listener _ _ = do
-- 
cgit v1.2.3