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.37.2