diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-22 02:31:07 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-22 02:31:07 +0400 |
| commit | 8d721087ca4e7878f602cc6e4ddcaa68c5274350 (patch) | |
| tree | a0fe0cfbe1c73fde7dbc4d6c530db8605fbc7e92 /tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | |
| parent | 30ba75b71f250d6080268513728df5ba3a2e8d61 (diff) | |
Fix warning
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs')
| -rw-r--r-- | tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 51 | describe "Manager" $ do | 51 | describe "Manager" $ do |
| 52 | it "should handle arbitrary intermixed concurrent queries" $ do | 52 | it "should handle arbitrary intermixed concurrent queries" $ do |
| 53 | withManager def $ \ mgr -> do | 53 | withManager def $ \ mgr -> do |
| 54 | _ <- mapConcurrently (\ _ -> scrape mgr uri [def]) [1..100] | 54 | _ <- mapConcurrently (\ _ -> scrape mgr uri [def]) [1..100 :: Int] |
| 55 | return () \ No newline at end of file | 55 | return () \ No newline at end of file |