peer is needed only for debug print
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Mon, 27 Jul 2015 14:28:53 +0000 (19:58 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Mon, 27 Jul 2015 14:28:53 +0000 (19:58 +0530)
src/FuncTorrent/Peer.hs

index 22dc48f485ef6fd51be47a6aabb185510ab0b0f2..88e5a7105e73c8e74719519659cedbcb30e280c1 100644 (file)
@@ -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