~ fix goddamn length encoding bug

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Network/Torrent/Handshake.hs b/src/Network/Torrent/Handshake.hs
index b17afaf7..c14fd591 100644
--- a/src/Network/Torrent/Handshake.hs
+++ b/src/Network/Torrent/Handshake.hs
@@ -26,7 +26,7 @@ data Handshake = Handshake {
 
 instance Serialize Handshake where
   put hs = do
-    putWord8 (49 + fromIntegral (B.length (hsProtocol hs)))
+    putWord8 (fromIntegral (B.length (hsProtocol hs)))
     putByteString (hsProtocol hs)
     putWord64be   (hsReserved hs)
     putByteString (hsInfoHash hs)
@@ -34,7 +34,7 @@ instance Serialize Handshake where
 
   get = do
     len  <- getWord8
-    Handshake <$> getBytes (fromIntegral (len - 49))
+    Handshake <$> getBytes (fromIntegral len)
               <*> getWord64be
               <*> getBytes 20
               <*> get