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
 --prop_urlencode :: Eq a => URLDecoded a => URLEncoded a => a -> Bool
 --prop_urlencode a = urlDecode (T.pack (urlEncode a)) == a
 
-instance Arbitrary Event where
+instance Arbitrary AnnounceEvent where
   arbitrary = elements [minBound..maxBound]
 
 instance Arbitrary AnnounceQuery where