1 files changed, 4 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Peer.hs b/src/Network/BitTorrent/Peer.hs
index 9aa924d3..6e5db0e0 100644
--- a/src/Network/BitTorrent/Peer.hs
+++ b/src/Network/BitTorrent/Peer.hs
@@ -531,8 +531,12 @@ 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.