diff options
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/MessageSpec.hs')
| -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 |