From eadb3a6826fb784c33b10b2eab7d4f7bf72b0043 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Wed, 12 Jun 2013 08:13:18 +0400
Subject: - Remove some debug stuff.

---
 src/Network/BitTorrent/Internal.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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

diff --git a/src/Network/BitTorrent/Internal.hs b/src/Network/BitTorrent/Internal.hs
index 3d07a82f..da104240 100644
--- a/src/Network/BitTorrent/Internal.hs
+++ b/src/Network/BitTorrent/Internal.hs
@@ -250,10 +250,7 @@ withPeerSession ss @ SwarmSession {..} addr
       let caps = encodeExts $ allowedExtensions $ clientSession
       let pid  = clientPeerID $ clientSession
       let chs  = Handshake defaultBTProtocol caps (tInfoHash torrentMeta) pid
-      putStrLn "trying to connect"
       sock <- connectToPeer addr
-
-      putStrLn "trying to handshake"
       phs  <- handshake sock chs `onException` close sock
 
       cbf <- readTVarIO clientBitfield
@@ -324,11 +321,12 @@ updateOutcoming PeerSession {..}  =
 
 sendKA :: Socket -> IO ()
 sendKA sock {- SwarmSession {..} -} = do
-  print "I'm sending keep alive."
+  return ()
+--  print "I'm sending keep alive."
 --  sendAll sock (encode BT.KeepAlive)
 --  let mgr = eventManager clientSession
 --  updateTimeout mgr
-  print "Done.."
+--  print "Done.."
 
 abortSession :: IO ()
 abortSession = error "abortSession: not implemented"
-- 
cgit v1.2.3