diff options
| author | Sam T <sta.cs.vsu@gmail.com> | 2013-04-07 05:11:42 +0400 |
|---|---|---|
| committer | Sam T <sta.cs.vsu@gmail.com> | 2013-04-07 05:11:42 +0400 |
| commit | d04ee2a3f65ba8d191bba778a66f771e4530b99b (patch) | |
| tree | 5542448ab5cb9c8f5cd683fd3c9fac44a4798e86 /src/Network/Torrent/Handshake.hs | |
| parent | 0b93032e3f7488681d5cb402cb5b4c9e566628b2 (diff) | |
~ fix bugs in encoding
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 |