@@ -1802,11 +1802,11 @@ instance FromJSON BucketValue where
1802 parseJSON _ = mempty
1802 parseJSON _ = mempty
1804instance FromJSON TermsResult where
1804instance FromJSON TermsResult where
1805− parseJSON = withObject "TermsResult" $ \o -> do
1805+ parseJSON (Object v) = TermsResult <$>
1806− termKey <- o .: "key"
1806+ v .: "key" <*>
1807− termsDocCount <- o .: "doc_count"
1807+ v .: "doc_count" <*>
1808− termsAggs <- o .:? "aggregations"
1808+ v .:? "aggregations"
1809− return TermsResult{..}
1809+ parseJSON _ = mempty
1811instance FromJSON DateHistogramResult where
1811instance FromJSON DateHistogramResult where
1812 parseJSON (Object v) = DateHistogramResult <$>
1812 parseJSON (Object v) = DateHistogramResult <$>