git.iko.soy/typeable/bloodhound
on master help sign in
Oh yeah, old GHCs need that typeable
commit908e23ead499a75adc34b67af1333a8c7508f683 authorMichael Xavier <michael@michaelxavier.net> dateWed 11 Jan 2017, 12:59 (10 years ago) parent167426e
1 file changed+2−2
compare with master
unifiedsplit
tests/tests.hs+2−2
tests/tests.hs+2−2
@@ -643,7 +643,7 @@ instance Arbitrary a => Arbitrary (NonEmpty a) where
643643arbitraryScore :: Gen Score
644644arbitraryScore = fmap getPositive <$> arbitrary
645645
646−instance (Arbitrary a) => Arbitrary (Hit a) where
646+instance (Arbitrary a, Typeable a) => Arbitrary (Hit a) where
647647 arbitrary = Hit <$> arbitrary
648648 <*> arbitrary
649649 <*> arbitrary
@@ -653,7 +653,7 @@ instance (Arbitrary a) => Arbitrary (Hit a) where
653653 shrink = genericShrink
654654
655655
656−instance (Arbitrary a) => Arbitrary (SearchHits a) where
656+instance (Arbitrary a, Typeable a) => Arbitrary (SearchHits a) where
657657 arbitrary = reduceSize $ do
658658 tot <- getPositive <$> arbitrary
659659 score <- arbitraryScore