From 8d721087ca4e7878f602cc6e4ddcaa68c5274350 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 22 Feb 2014 02:31:07 +0400 Subject: Fix warning --- tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/Network') diff --git a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs index 3ecc139d..540a887c 100644 --- a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs +++ b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs @@ -51,5 +51,5 @@ spec = parallel $ do describe "Manager" $ do it "should handle arbitrary intermixed concurrent queries" $ do withManager def $ \ mgr -> do - _ <- mapConcurrently (\ _ -> scrape mgr uri [def]) [1..100] + _ <- mapConcurrently (\ _ -> scrape mgr uri [def]) [1..100 :: Int] return () \ No newline at end of file -- cgit v1.2.3