- Remove some debug stuff.

4 files changed, 5 insertions, 18 deletions

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"
diff --git a/src/Network/BitTorrent/Peer.hs b/src/Network/BitTorrent/Peer.hs
index 6e5db0e0..9aa924d3 100644
--- a/src/Network/BitTorrent/Peer.hs
+++ b/src/Network/BitTorrent/Peer.hs
@@ -531,12 +531,8 @@ peerSockAddr = SockAddrInet <$> (g . peerPort) <*> (htonl . peerIP)
 -- | Tries to connect to peer using reasonable default parameters.
 connectToPeer :: PeerAddr -> IO Socket
 connectToPeer p = do
-  putStrLn "socket"
   sock <- socket AF_INET Stream Network.Socket.defaultProtocol
-
-  putStrLn "connect"
   connect sock (peerSockAddr p)
-  putStrLn "connected"
   return sock
 
 -- | Pretty print peer address in human readable form.
diff --git a/src/Network/BitTorrent/Tracker.hs b/src/Network/BitTorrent/Tracker.hs
index 6bf6de4b..179dae1d 100644
--- a/src/Network/BitTorrent/Tracker.hs
+++ b/src/Network/BitTorrent/Tracker.hs
@@ -170,7 +170,6 @@ sec = 1000 * 1000
 waitInterval :: TSession -> IO ()
 waitInterval se @ TSession {..} = do
   delay <- readIORef seInterval
-  print delay
   threadDelay (delay * sec)
 
 withTracker :: Progress -> TConnection -> (TSession -> IO a) -> IO a
@@ -178,21 +177,17 @@ withTracker initProgress conn action = bracket start end (action . fst)
   where
     start = do
       resp <- askTracker (startedReq conn initProgress)
-      print resp
       se   <- newSession initProgress (respInterval resp) (respPeers resp)
-      tid  <- forkIO (return ()) -- (syncSession se)
+      tid  <- forkIO (syncSession se)
       return (se, tid)
 
     syncSession se @ TSession {..} = forever $ do
         waitInterval se
         pr   <- getProgress se
-        print "tracker req"
         resp <- tryJust isIOException $ do
                     askTracker (regularReq defaultNumWant conn pr)
-        print "tracker resp"
         case resp of
           Right (ok @ OK {..}) -> do
-            print ok
             writeIORef seInterval respInterval
             writeList2Chan sePeers respPeers
           _ -> return ()
@@ -203,7 +198,6 @@ withTracker initProgress conn action = bracket start end (action . fst)
     end (se, tid) = do
       killThread tid
       pr <- getProgress se
-      print  "stopping"
       leaveTracker $ stoppedReq conn pr
 
 
diff --git a/src/Network/BitTorrent/Tracker/Protocol.hs b/src/Network/BitTorrent/Tracker/Protocol.hs
index efc709e2..f7599ba2 100644
--- a/src/Network/BitTorrent/Tracker/Protocol.hs
+++ b/src/Network/BitTorrent/Tracker/Protocol.hs
@@ -230,7 +230,6 @@ askTracker req = do
 
     rawResp  <- simpleHTTP r
     respBody <- getResponseBody rawResp
-    print $ respBody
     checkResult $ decoded respBody
   where
 
@@ -247,5 +246,5 @@ leaveTracker req = do
   let r = mkHTTPRequest (encodeRequest req)
 
   rawResp  <- simpleHTTP r
-  respBody <- getResponseBody rawResp
+  _ <- getResponseBody rawResp
   return ()