diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-08 22:19:30 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-08 22:19:30 +0400 |
| commit | c147b181094937d780b93ca82fb8604deeb9a7cd (patch) | |
| tree | 70769dac70272e36fe115160bf4cf808d831f6c8 /src/Network/BitTorrent/Exchange/Message.hs | |
| parent | 9913a611431efddd9f641b0ec3d85c7f7497ce72 (diff) | |
Fix BDict traversal in caps parsing
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Message.hs')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Message.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Exchange/Message.hs b/src/Network/BitTorrent/Exchange/Message.hs index 6fcf22f7..38a8ac33 100644 --- a/src/Network/BitTorrent/Exchange/Message.hs +++ b/src/Network/BitTorrent/Exchange/Message.hs | |||
| @@ -514,7 +514,7 @@ appendBDict :: BDict -> ExtendedMap -> ExtendedMap | |||
| 514 | appendBDict (Cons key val xs) caps | 514 | appendBDict (Cons key val xs) caps |
| 515 | | Just ext <- fromKey key | 515 | | Just ext <- fromKey key |
| 516 | , Right eid <- fromBEncode val = M.insert ext eid (appendBDict xs caps) | 516 | , Right eid <- fromBEncode val = M.insert ext eid (appendBDict xs caps) |
| 517 | | otherwise = caps | 517 | | otherwise = appendBDict xs caps |
| 518 | appendBDict Nil caps = caps | 518 | appendBDict Nil caps = caps |
| 519 | 519 | ||
| 520 | -- | Handshake compatible encoding. | 520 | -- | Handshake compatible encoding. |