diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-06 21:49:59 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-06 21:49:59 +0400 |
| commit | 76f8ae65d404e1489b2e8186fd8e70f18c0221da (patch) | |
| tree | 118a0a7710ee9e8e6ba568891f6d40615de81ff3 /tests/Network/BitTorrent/Tracker | |
| parent | 541eb8c462cd1f6f3a1aaaaddf15674b2f953795 (diff) | |
Fix warning
Diffstat (limited to 'tests/Network/BitTorrent/Tracker')
| -rw-r--r-- | tests/Network/BitTorrent/Tracker/RPCSpec.hs | 2 |
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 | |||
| 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 |