1 files changed, 1 insertions, 1 deletions

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