- Remove some debug stuff.

1 files changed, 0 insertions, 4 deletions

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.