From 0968d03183996fb090bb7e8963eb97581538bfab Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 7 Dec 2013 03:41:08 +0400 Subject: rename peerID field to peerId --- tests/Network/BitTorrent/Tracker/MessageSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/Network/BitTorrent') 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 -- cgit v1.2.3