From e86d9abd00812e8d7eac81ab9b4586e182299aa8 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org> Date: Mon, 27 Jul 2015 19:58:53 +0530 Subject: [PATCH] peer is needed only for debug print --- src/FuncTorrent/Peer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs index 22dc48f..88e5a71 100644 --- a/src/FuncTorrent/Peer.hs +++ b/src/FuncTorrent/Peer.hs @@ -97,7 +97,7 @@ connectToPeer peer@(Peer _ ip port) = do return h doHandShake :: Handle -> Peer -> ByteString -> String -> IO () -doHandShake h peer@(Peer _ ip port) infoHash peerid = do +doHandShake h peer infoHash peerid = do let hs = genHandShakeMsg infoHash peerid hPut h hs putStrLn $ "--> handhake to peer: " ++ show peer -- 2.45.2