@@ -485,7 +485,7 @@ instance Arbitrary a => Arbitrary (NonEmpty a) where
485485arbitraryScore :: Gen Score
486486arbitraryScore = fmap getPositive <$> arbitrary
487487
488−instance Arbitrary a => Arbitrary (Hit a) where
488+instance (Arbitrary a, Typeable a) => Arbitrary (Hit a) where
489489 arbitrary = Hit <$> arbitrary
490490 <*> arbitrary
491491 <*> arbitrary
@@ -495,7 +495,7 @@ instance Arbitrary a => Arbitrary (Hit a) where
495495 shrink = genericShrink
496496
497497
498−instance Arbitrary a => Arbitrary (SearchHits a) where
498+instance (Arbitrary a, Typeable a) => Arbitrary (SearchHits a) where
499499 arbitrary = reduceSize $ do
500500 tot <- getPositive <$> arbitrary
501501 score <- arbitraryScore