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