+ Rename to await and yield.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Exchange/Protocol.hs b/src/Network/BitTorrent/Exchange/Protocol.hs
index 718e339d..6b97d8d1 100644
--- a/src/Network/BitTorrent/Exchange/Protocol.hs
+++ b/src/Network/BitTorrent/Exchange/Protocol.hs
@@ -164,14 +164,18 @@ defaultHandshake = Handshake defaultBTProtocol defaultReserved
 -- | Handshaking with a peer specified by the second argument.
 handshake :: Socket -> Handshake -> IO Handshake
 handshake sock hs = do
+    putStrLn "send handshake"
     sendAll sock (S.encode hs)
 
+    putStrLn "recv handshake size"
     header <- recv sock 1
     when (B.length header == 0) $
       throw $ userError "Unable to receive handshake."
 
     let protocolLen = B.head header
     let restLen     = handshakeSize protocolLen - 1
+
+    putStrLn "recv handshake body"
     body <- recv sock restLen
     let resp = B.cons protocolLen body