handShakeMsg m peer_id = concat [pstrlen, pstr, reserved, infoH, peerID]
where pstrlen = concat $ toChunks $ Bin.encode (19 :: Int8)
pstr = pack "BitTorrent protocol"
handShakeMsg m peer_id = concat [pstrlen, pstr, reserved, infoH, peerID]
where pstrlen = concat $ toChunks $ Bin.encode (19 :: Int8)
pstr = pack "BitTorrent protocol"