peer is needed only for debug print

diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs
index 22dc48f485ef6fd51be47a6aabb185510ab0b0f2..88e5a7105e73c8e74719519659cedbcb30e280c1 100644 (file)
--- 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