diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-07 03:41:08 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-07 03:41:08 +0400 |
| commit | 0968d03183996fb090bb7e8963eb97581538bfab (patch) | |
| tree | b7982e2b7087979aaa1012178317f79a77b4a1b2 /src/Network/BitTorrent/Exchange/Wire.hs | |
| parent | 10cebfb3bf311d386af2a849c13e5e99bd975f57 (diff) | |
rename peerID field to peerId
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Wire.hs')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Wire.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Exchange/Wire.hs b/src/Network/BitTorrent/Exchange/Wire.hs index 1cf14809..2c8eb316 100644 --- a/src/Network/BitTorrent/Exchange/Wire.hs +++ b/src/Network/BitTorrent/Exchange/Wire.hs | |||
| @@ -233,7 +233,7 @@ connectWire hs addr extCaps wire = | |||
| 233 | unless (hsInfoHash hs == hsInfoHash hs') $ do | 233 | unless (hsInfoHash hs == hsInfoHash hs') $ do |
| 234 | throwIO $ ProtocolError $ UnexpectedTopic (hsInfoHash hs') | 234 | throwIO $ ProtocolError $ UnexpectedTopic (hsInfoHash hs') |
| 235 | 235 | ||
| 236 | unless (hsPeerId hs' == fromMaybe (hsPeerId hs') (peerID addr)) $ do | 236 | unless (hsPeerId hs' == fromMaybe (hsPeerId hs') (peerId addr)) $ do |
| 237 | throwIO $ ProtocolError $ UnexpectedPeerId (hsPeerId hs') | 237 | throwIO $ ProtocolError $ UnexpectedPeerId (hsPeerId hs') |
| 238 | 238 | ||
| 239 | let caps = hsReserved hs <> hsReserved hs' | 239 | let caps = hsReserved hs <> hsReserved hs' |