From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
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/%5B/README.win32?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