diff options
| author | joe <joe@jerkface.net> | 2017-01-01 01:10:44 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-01-01 01:10:44 -0500 |
| commit | 80c860df8c29f99e0a82b454c1c0f0c6902764ef (patch) | |
| tree | afb7a07440b308179252f7e5a79cc85870705358 /tests/Network/BitTorrent/Tracker | |
| parent | b0cb559c503e791c2a2297a6316d59dab6c49202 (diff) | |
Fixed build of testsuite.
Diffstat (limited to 'tests/Network/BitTorrent/Tracker')
| -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 3a3dddf5..73acb3fa 100644 --- a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs +++ b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | |||
| @@ -18,7 +18,7 @@ import Network.BitTorrent.Tracker.RPC.UDP | |||
| 18 | 18 | ||
| 19 | 19 | ||
| 20 | validateInfo :: AnnounceQuery -> AnnounceInfo -> Expectation | 20 | validateInfo :: AnnounceQuery -> AnnounceInfo -> Expectation |
| 21 | validateInfo _ Message.Failure {..} = error "validateInfo: failure" | 21 | validateInfo _ Message.Failure {} = error "validateInfo: failure" |
| 22 | validateInfo AnnounceQuery {..} AnnounceInfo {..} = do | 22 | validateInfo AnnounceQuery {..} AnnounceInfo {..} = do |
| 23 | respComplete `shouldSatisfy` isJust | 23 | respComplete `shouldSatisfy` isJust |
| 24 | respIncomplete `shouldSatisfy` isJust | 24 | respIncomplete `shouldSatisfy` isJust |