diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-04-04 05:43:38 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-04-04 05:43:38 +0400 |
| commit | 49628a6be68a495ab846218bc6b7581c01c1bc69 (patch) | |
| tree | a1253248306a3ebd8a1bd5463b55296ec1abfaeb /tests | |
| parent | 1beb66f98504a39c8a6c976f243a1f69ffb48d8d (diff) | |
[Spec] Fix build failure
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Network/BitTorrent/Tracker/MessageSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/Tracker/MessageSpec.hs b/tests/Network/BitTorrent/Tracker/MessageSpec.hs index 87d9f191..c56afd2a 100644 --- a/tests/Network/BitTorrent/Tracker/MessageSpec.hs +++ b/tests/Network/BitTorrent/Tracker/MessageSpec.hs | |||
| @@ -31,7 +31,7 @@ import Network.BitTorrent.Core | |||
| 31 | --prop_urlencode :: Eq a => URLDecoded a => URLEncoded a => a -> Bool | 31 | --prop_urlencode :: Eq a => URLDecoded a => URLEncoded a => a -> Bool |
| 32 | --prop_urlencode a = urlDecode (T.pack (urlEncode a)) == a | 32 | --prop_urlencode a = urlDecode (T.pack (urlEncode a)) == a |
| 33 | 33 | ||
| 34 | instance Arbitrary Event where | 34 | instance Arbitrary AnnounceEvent where |
| 35 | arbitrary = elements [minBound..maxBound] | 35 | arbitrary = elements [minBound..maxBound] |
| 36 | 36 | ||
| 37 | instance Arbitrary AnnounceQuery where | 37 | instance Arbitrary AnnounceQuery where |