git.iko.soy/typeable/bloodhound
on master help sign in
Oh yeah, old GHCs need that typeable
908e23eMichael Xavier
tests/tests.hs+2−2
compare with master
unifiedsplit
@@ -643,7 +643,7 @@ instance Arbitrary a => Arbitrary (NonEmpty a) where
643arbitraryScore :: Gen Score
643arbitraryScore :: Gen Score
644arbitraryScore = fmap getPositive <$> arbitrary
644arbitraryScore = fmap getPositive <$> arbitrary
645
645
646−instance (Arbitrary a) => Arbitrary (Hit a) where
646+instance (Arbitrary a, Typeable a) => Arbitrary (Hit a) where
647 arbitrary = Hit <$> arbitrary
647 arbitrary = Hit <$> arbitrary
648 <*> arbitrary
648 <*> arbitrary
649 <*> arbitrary
649 <*> arbitrary
@@ -653,7 +653,7 @@ instance (Arbitrary a) => Arbitrary (Hit a) where
653 shrink = genericShrink
653 shrink = genericShrink
654
654
655
655
656−instance (Arbitrary a) => Arbitrary (SearchHits a) where
656+instance (Arbitrary a, Typeable a) => Arbitrary (SearchHits a) where
657 arbitrary = reduceSize $ do
657 arbitrary = reduceSize $ do
658 tot <- getPositive <$> arbitrary
658 tot <- getPositive <$> arbitrary
659 score <- arbitraryScore
659 score <- arbitraryScore