From d2c9ef1c2f7acd27ab6fac9b80f6590bf0d505b9 Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Fri, 1 Aug 2014 23:08:12 +0200 Subject: Manually specify which instance to use --- tests/Network/BitTorrent/DHT/MessageSpec.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/Network/BitTorrent/DHT/MessageSpec.hs b/tests/Network/BitTorrent/DHT/MessageSpec.hs index ab6e1ea5..ae9ab487 100644 --- a/tests/Network/BitTorrent/DHT/MessageSpec.hs +++ b/tests/Network/BitTorrent/DHT/MessageSpec.hs @@ -203,6 +203,9 @@ spec = do Response _ GotPeers {..} <- query remoteAddr (Query nid (GetPeers def)) let _ = peers :: Either [NodeInfo IPv4] [PeerAddr IPv4] let invalidToken = "" - query remoteAddr (Query nid (Announce False def thisPort invalidToken))) + let q :: MonadKRPC h m => SockAddr -> Query Announce + -> m (Response Announced) + q = query + q remoteAddr (Query nid (Announce False def thisPort invalidToken))) `shouldThrow` isQueryError return () -- cgit v1.2.3