From: Ramakrishnan Muthukrishnan Date: Mon, 27 Jul 2015 14:28:53 +0000 (+0530) Subject: peer is needed only for debug print X-Git-Url: https://git.rkrishnan.org/components/com_hotproperty/frontends/%22file:/htmlfontify-example.html?a=commitdiff_plain;h=e86d9abd00812e8d7eac81ab9b4586e182299aa8;p=functorrent.git peer is needed only for debug print --- 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