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 =
     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'