typeable/bloodhound
1
0
Fork 0
mirror of https://github.com/typeable/bloodhound.git synced 2024-12-02 06:30:29 +03:00
Code Issues Projects Releases Wiki Activity

Oh yeah, old GHCs need that typeable

Browse Source
This commit is contained in:
Michael Xavier 2017-01-11 12:59:10 -08:00
parent 167426efc4
commit 908e23ead4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/tests.hs
View File

@ -643,7 +643,7 @@ instance Arbitrary a => Arbitrary (NonEmpty a) where
arbitraryScore :: Gen Score
arbitraryScore = fmap getPositive <$> arbitrary
instance (Arbitrary a) => Arbitrary (Hit a) where
instance (Arbitrary a, Typeable a) => Arbitrary (Hit a) where
arbitrary = Hit <$> arbitrary
<*> arbitrary
<*> arbitrary
@ -653,7 +653,7 @@ instance (Arbitrary a) => Arbitrary (Hit a) where
shrink = genericShrink
instance (Arbitrary a) => Arbitrary (SearchHits a) where
instance (Arbitrary a, Typeable a) => Arbitrary (SearchHits a) where
arbitrary = reduceSize $ do
tot <- getPositive <$> arbitrary
score <- arbitraryScore