git.iko.soy/typeable/bloodhound
on master help sign in
Fixup warnings about unused function and redundant constraints.
029d91eTim McGilchrist
src/Database/V1/Bloodhound/Types.hs+1−4
compare with master
unifiedsplit
@@ -5460,9 +5460,6 @@ instance FromJSON PhraseSuggesterCollate where
5460 return $ PhraseSuggesterCollate (TemplateQueryInline inline' params') prune'
5460 return $ PhraseSuggesterCollate (TemplateQueryInline inline' params') prune'
5461 parseJSON x = typeMismatch "PhraseSuggesterCollate" x
5461 parseJSON x = typeMismatch "PhraseSuggesterCollate" x
5462
5462
5463−mkPhraseSuggesterCollate :: TemplateQueryInline -> PhraseSuggesterCollate
5464−mkPhraseSuggesterCollate tQuery = PhraseSuggesterCollate tQuery False
5465−
5466data SuggestOptions =
5463data SuggestOptions =
5467 SuggestOptions { suggestOptionsText :: Text
5464 SuggestOptions { suggestOptionsText :: Text
5468 , suggestOptionsScore :: Double
5465 , suggestOptionsScore :: Double
@@ -5509,4 +5506,4 @@ instance FromJSON NamedSuggestionResponse where
5509 suggestionResponses' <- o .: suggestionName'
5506 suggestionResponses' <- o .: suggestionName'
5510 return $ NamedSuggestionResponse suggestionName' suggestionResponses'
5507 return $ NamedSuggestionResponse suggestionName' suggestionResponses'
5511
5508
5512− parseJSON x = typeMismatch "NamedSuggestionResponse" x
5509+ parseJSON x = typeMismatch "NamedSuggestionResponse" x
src/Database/V5/Bloodhound/Types.hs+1−4
@@ -2098,7 +2098,7 @@ instance BucketAggregation DateRangeResult where
2098 docCount = dateRangeDocCount
2098 docCount = dateRangeDocCount
2099 aggs = dateRangeAggs
2099 aggs = dateRangeAggs
2100
2100
2101−instance (FromJSON a, BucketAggregation a) => FromJSON (Bucket a) where
2101+instance (FromJSON a) => FromJSON (Bucket a) where
2102 parseJSON (Object v) = Bucket <$>
2102 parseJSON (Object v) = Bucket <$>
2103 v .: "buckets"
2103 v .: "buckets"
2104 parseJSON _ = mempty
2104 parseJSON _ = mempty
@@ -5238,9 +5238,6 @@ instance FromJSON PhraseSuggesterCollate where
5238 return $ PhraseSuggesterCollate (TemplateQueryInline inline' params') prune'
5238 return $ PhraseSuggesterCollate (TemplateQueryInline inline' params') prune'
5239 parseJSON x = typeMismatch "PhraseSuggesterCollate" x
5239 parseJSON x = typeMismatch "PhraseSuggesterCollate" x
5240
5240
5241−mkPhraseSuggesterCollate :: TemplateQueryInline -> PhraseSuggesterCollate
5242−mkPhraseSuggesterCollate tQuery = PhraseSuggesterCollate tQuery False
5243−
5244data SuggestOptions =
5241data SuggestOptions =
5245 SuggestOptions { suggestOptionsText :: Text
5242 SuggestOptions { suggestOptionsText :: Text
5246 , suggestOptionsScore :: Double
5243 , suggestOptionsScore :: Double