diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-14 23:26:21 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-14 23:26:21 +0400 |
| commit | 254a407eafe53d7d98b55a694b840f1af6fe5e75 (patch) | |
| tree | 9464626052e0f05ce7e9d8b6fba147ce033d4498 /src/Network/BitTorrent/Exchange/Message.hs | |
| parent | c7d84e12184430062305d1d4677a90df558484ea (diff) | |
| parent | 8e4419d5bf7880ac862675dc4105cf6503c488bc (diff) | |
Merge branch 'dev' of https://github.com/DanielG/bittorrent
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Message.hs')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Message.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Exchange/Message.hs b/src/Network/BitTorrent/Exchange/Message.hs index 0adb8299..fb3a5c82 100644 --- a/src/Network/BitTorrent/Exchange/Message.hs +++ b/src/Network/BitTorrent/Exchange/Message.hs | |||
| @@ -678,8 +678,8 @@ instance Default ExtendedHandshake where | |||
| 678 | 678 | ||
| 679 | instance BEncode ExtendedHandshake where | 679 | instance BEncode ExtendedHandshake where |
| 680 | toBEncode ExtendedHandshake {..} = toDict $ | 680 | toBEncode ExtendedHandshake {..} = toDict $ |
| 681 | "ipv4" .=? ehsIPv4 -- FIXME invalid encoding | 681 | "ipv4" .=? (S.encode <$> ehsIPv4) |
| 682 | .: "ipv6" .=? ehsIPv6 -- FIXME invalid encoding | 682 | .: "ipv6" .=? (S.encode <$> ehsIPv6) |
| 683 | .: "m" .=! ehsCaps | 683 | .: "m" .=! ehsCaps |
| 684 | .: "metadata_size" .=? ehsMetadataSize | 684 | .: "metadata_size" .=? ehsMetadataSize |
| 685 | .: "p" .=? ehsPort | 685 | .: "p" .=? ehsPort |