3 files changed, 5 insertions, 5 deletions

diff --git a/src/Network/BitTorrent/Core/PeerAddr.hs b/src/Network/BitTorrent/Core/PeerAddr.hs
index 5173c4fc..77f042d5 100644
--- a/src/Network/BitTorrent/Core/PeerAddr.hs
+++ b/src/Network/BitTorrent/Core/PeerAddr.hs
@@ -56,7 +56,7 @@ instance Serialize PortNumber where
 -- | Peer address info normally extracted from peer list or peer
 -- compact list encoding.
 data PeerAddr = PeerAddr {
-      peerID   :: !(Maybe PeerId)
+      peerId   :: !(Maybe PeerId)
     , peerIP   :: {-# UNPACK #-} !HostAddress
     , peerPort :: {-# UNPACK #-} !PortNumber
     } deriving (Show, Eq, Ord, Typeable)
@@ -82,14 +82,14 @@ instance BEncode PeerAddr where
 --   For more info see: <http://www.bittorrent.org/beps/bep_0023.html>
 --
 instance Serialize PeerAddr where
-  put PeerAddr {..} = put peerID >> put peerPort
+  put PeerAddr {..} = put peerId >> put peerPort
   {-# INLINE put #-}
   get = PeerAddr Nothing <$> get <*> get
   {-# INLINE get #-}
 
 instance Pretty PeerAddr where
   pretty p @ PeerAddr {..}
-    | Just pid <- peerID = pretty (fingerprint pid) <+> "at" <+> paddr
+    | Just pid <- peerId = pretty (fingerprint pid) <+> "at" <+> paddr
     |     otherwise      = paddr
     where
       paddr = text (show (peerSockAddr p))
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'
diff --git a/tests/Network/BitTorrent/Tracker/MessageSpec.hs b/tests/Network/BitTorrent/Tracker/MessageSpec.hs
index 8ae1a1cc..ac770905 100644
--- a/tests/Network/BitTorrent/Tracker/MessageSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/MessageSpec.hs
@@ -46,7 +46,7 @@ validateInfo AnnounceQuery {..}  AnnounceInfo {..} = do
     respIncomplete  `shouldSatisfy` isJust
     respMinInterval `shouldSatisfy` isNothing
     respWarning     `shouldSatisfy` isNothing
-    peerList `shouldSatisfy` L.all (isNothing . peerID)
+    peerList `shouldSatisfy` L.all (isNothing . peerId)
     fromJust respComplete + fromJust respIncomplete `shouldBe` L.length peerList
   where
     peerList = getPeerList respPeers