git.iko.soy/typeable/bloodhound
on master help sign in
Drop redundant constraints
commit6cc41ed2b98f85c11a432617acf3ecd8144f13a9 authorMichael Xavier <michael@michaelxavier.net> dateWed 11 Jan 2017, 09:35 (10 years ago) parent244a123
2 files changed+4−4
compare with master
unifiedsplit
src/Database/Bloodhound/Types.hs+1−1 tests/tests.hs+3−3
src/Database/Bloodhound/Types.hs+1−1
@@ -2012,7 +2012,7 @@ instance BucketAggregation DateRangeResult where
20122012 docCount = dateRangeDocCount
20132013 aggs = dateRangeAggs
20142014
2015−instance (FromJSON a, BucketAggregation a) => FromJSON (Bucket a) where
2015+instance (FromJSON a) => FromJSON (Bucket a) where
20162016 parseJSON (Object v) = Bucket <$>
20172017 v .: "buckets"
20182018 parseJSON _ = mempty
tests/tests.hs+3−3
@@ -586,7 +586,7 @@ instance ApproxEq Vers.Version where
586586 (=~) = (==)
587587instance (ApproxEq a, Show a) => ApproxEq [a] where
588588 as =~ bs = and (zipWith (=~) as bs)
589−instance (ApproxEq l, Show l, ApproxEq r, Show r) => ApproxEq (Either l r) where
589+instance (ApproxEq l, ApproxEq r) => ApproxEq (Either l r) where
590590 Left a =~ Left b = a =~ b
591591 Right a =~ Right b = a =~ b
592592 _ =~ _ = False
@@ -643,7 +643,7 @@ instance Arbitrary a => Arbitrary (NonEmpty a) where
643643arbitraryScore :: Gen Score
644644arbitraryScore = fmap getPositive <$> arbitrary
645645
646−instance (Arbitrary a, Typeable a) => Arbitrary (Hit a) where
646+instance (Arbitrary a) => Arbitrary (Hit a) where
647647 arbitrary = Hit <$> arbitrary
648648 <*> arbitrary
649649 <*> arbitrary
@@ -653,7 +653,7 @@ instance (Arbitrary a, Typeable a) => Arbitrary (Hit a) where
653653 shrink = genericShrink
654654
655655
656−instance (Arbitrary a, Typeable a) => Arbitrary (SearchHits a) where
656+instance (Arbitrary a) => Arbitrary (SearchHits a) where
657657 arbitrary = reduceSize $ do
658658 tot <- getPositive <$> arbitrary
659659 score <- arbitraryScore