typeable/bloodhound
1
0
Fork 0
mirror of https://github.com/typeable/bloodhound.git synced 2024-09-11 08:25:32 +03:00
Code Issues Projects Releases Wiki Activity

Fixup warnings about unused function and redundant constraints.

Browse Source
This commit is contained in:
Tim McGilchrist 2017-06-02 08:59:29 +10:00
parent 79b4f90163
commit 029d91e5f3
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Database/V1/Bloodhound/Types.hs
View File

@ -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

5
src/Database/V5/Bloodhound/Types.hs
View File

@ -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