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

Drop redundant constraints

Browse Source
This commit is contained in:
Michael Xavier 2017-01-11 09:35:05 -08:00
parent 244a123fd9
commit 6cc41ed2b9
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Database/Bloodhound/Types.hs
View File

@ -2012,7 +2012,7 @@ instance BucketAggregation DateRangeResult where
docCount = dateRangeDocCount
aggs = dateRangeAggs
instance (FromJSON a, BucketAggregation a) => FromJSON (Bucket a) where
instance (FromJSON a) => FromJSON (Bucket a) where
parseJSON (Object v) = Bucket <$>
v .: "buckets"
parseJSON _ = mempty

6
tests/tests.hs
View File

@ -586,7 +586,7 @@ instance ApproxEq Vers.Version where
(=~) = (==)
instance (ApproxEq a, Show a) => ApproxEq [a] where
as =~ bs = and (zipWith (=~) as bs)
instance (ApproxEq l, Show l, ApproxEq r, Show r) => ApproxEq (Either l r) where
instance (ApproxEq l, ApproxEq r) => ApproxEq (Either l r) where
Left a =~ Left b = a =~ b
Right a =~ Right b = a =~ b
_ =~ _ = False
@ -643,7 +643,7 @@ instance Arbitrary a => Arbitrary (NonEmpty a) where
arbitraryScore :: Gen Score
arbitraryScore = fmap getPositive <$> arbitrary
instance (Arbitrary a, Typeable a) => Arbitrary (Hit a) where
instance (Arbitrary a) => Arbitrary (Hit a) where
arbitrary = Hit <$> arbitrary
<*> arbitrary
<*> arbitrary
@ -653,7 +653,7 @@ instance (Arbitrary a, Typeable a) => Arbitrary (Hit a) where
shrink = genericShrink
instance (Arbitrary a, Typeable a) => Arbitrary (SearchHits a) where
instance (Arbitrary a) => Arbitrary (SearchHits a) where
arbitrary = reduceSize $ do
tot <- getPositive <$> arbitrary
score <- arbitraryScore