diff options
Diffstat (limited to 'src/Network/Torrent/Handshake.hs')
| -rw-r--r-- | src/Network/Torrent/Handshake.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Torrent/Handshake.hs b/src/Network/Torrent/Handshake.hs index 7643b2e9..b17afaf7 100644 --- a/src/Network/Torrent/Handshake.hs +++ b/src/Network/Torrent/Handshake.hs | |||
| @@ -34,7 +34,7 @@ instance Serialize Handshake where | |||
| 34 | 34 | ||
| 35 | get = do | 35 | get = do |
| 36 | len <- getWord8 | 36 | len <- getWord8 |
| 37 | Handshake <$> getBytes (fromIntegral len) | 37 | Handshake <$> getBytes (fromIntegral (len - 49)) |
| 38 | <*> getWord64be | 38 | <*> getWord64be |
| 39 | <*> getBytes 20 | 39 | <*> getBytes 20 |
| 40 | <*> get | 40 | <*> get |