mirror of
https://github.com/typeable/bloodhound.git
synced 2024-09-11 08:25:32 +03:00
Fixup warnings about unused function and redundant constraints.
This commit is contained in:
parent
79b4f90163
commit
029d91e5f3
@ -5460,9 +5460,6 @@ instance FromJSON PhraseSuggesterCollate where
|
||||
return $ PhraseSuggesterCollate (TemplateQueryInline inline' params') prune'
|
||||
parseJSON x = typeMismatch "PhraseSuggesterCollate" x
|
||||
|
||||
mkPhraseSuggesterCollate :: TemplateQueryInline -> PhraseSuggesterCollate
|
||||
mkPhraseSuggesterCollate tQuery = PhraseSuggesterCollate tQuery False
|
||||
|
||||
data SuggestOptions =
|
||||
SuggestOptions { suggestOptionsText :: Text
|
||||
, suggestOptionsScore :: Double
|
||||
@ -5509,4 +5506,4 @@ instance FromJSON NamedSuggestionResponse where
|
||||
suggestionResponses' <- o .: suggestionName'
|
||||
return $ NamedSuggestionResponse suggestionName' suggestionResponses'
|
||||
|
||||
parseJSON x = typeMismatch "NamedSuggestionResponse" x
|
||||
parseJSON x = typeMismatch "NamedSuggestionResponse" x
|
||||
|
@ -2098,7 +2098,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
|
||||
@ -5238,9 +5238,6 @@ instance FromJSON PhraseSuggesterCollate where
|
||||
return $ PhraseSuggesterCollate (TemplateQueryInline inline' params') prune'
|
||||
parseJSON x = typeMismatch "PhraseSuggesterCollate" x
|
||||
|
||||
mkPhraseSuggesterCollate :: TemplateQueryInline -> PhraseSuggesterCollate
|
||||
mkPhraseSuggesterCollate tQuery = PhraseSuggesterCollate tQuery False
|
||||
|
||||
data SuggestOptions =
|
||||
SuggestOptions { suggestOptionsText :: Text
|
||||
, suggestOptionsScore :: Double
|
||||
|
Loading…
Reference in New Issue
Block a user