1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/Tracker/RPCSpec.hs b/tests/Network/BitTorrent/Tracker/RPCSpec.hs
index 340754d3..da4a0878 100644
--- a/tests/Network/BitTorrent/Tracker/RPCSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/RPCSpec.hs
@@ -30,7 +30,7 @@ spec = do
        it "have valid response" $ do
          withManager def pinfo $ \ mgr -> do
            q    <- arbitrarySample
-            info <- announce mgr uri q
+            _    <- announce mgr uri q
            return ()
      describe "scrape" $ do

diff --git a/tests/Network/BitTorrent/Tracker/RPCSpec.hs b/tests/Network/BitTorrent/Tracker/RPCSpec.hs index 340754d3..da4a0878 100644 --- a/tests/Network/BitTorrent/Tracker/RPCSpec.hs +++ b/tests/Network/BitTorrent/Tracker/RPCSpec.hs
@@ -30,7 +30,7 @@ spec = do
30	it "have valid response" $ do	30	it "have valid response" $ do
31	withManager def pinfo $ \ mgr -> do	31	withManager def pinfo $ \ mgr -> do
32	q <- arbitrarySample	32	q <- arbitrarySample
33	info <- announce mgr uri q	33	_ <- announce mgr uri q
34	return ()	34	return ()
35		35
36	describe "scrape" $ do	36	describe "scrape" $ do