From 0968d03183996fb090bb7e8963eb97581538bfab Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Sat, 7 Dec 2013 03:41:08 +0400
Subject: rename peerID field to peerId

---
 src/Network/BitTorrent/Exchange/Wire.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Network/BitTorrent/Exchange/Wire.hs')

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 =
     unless (hsInfoHash hs == hsInfoHash hs') $ do
       throwIO $ ProtocolError $ UnexpectedTopic (hsInfoHash hs')
 
-    unless (hsPeerId hs' == fromMaybe (hsPeerId hs') (peerID addr)) $ do
+    unless (hsPeerId hs' == fromMaybe (hsPeerId hs') (peerId addr)) $ do
       throwIO $ ProtocolError $ UnexpectedPeerId (hsPeerId hs')
 
     let caps = hsReserved hs <> hsReserved hs'
-- 
cgit v1.2.3