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

Merge pull request #186 from tmcgilchrist/topic/fixup_warnings

Browse Source 
Fixup warnings about unused function and redundant constraints.
This commit is contained in:
Chris Allen 2017-06-06 16:52:36 -05:00 committed by GitHub
commit 05a9094d85
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