@@ -254,7 +254,7 @@ instance Arbitrary a => Arbitrary (Hit a) where
256instance Arbitrary a => Arbitrary (SearchHits a) where
256instance Arbitrary a => Arbitrary (SearchHits a) where
257− arbitrary = do
257+ arbitrary = sized $ \n -> resize (n `div` 2) $ do
258 tot <- getPositive <$> arbitrary
258 tot <- getPositive <$> arbitrary
259 score <- arbitraryScore
259 score <- arbitraryScore
260 hs <- arbitrary
260 hs <- arbitrary