git.iko.soy/typeable/bloodhound
on master help sign in
Add 'mkPhraseSuggesterCollate' helper function
ca5e5cdJosh Berman
src/Database/V1/Bloodhound/Types.hs+3
compare with master
unifiedsplit
@@ -5460,6 +5460,9 @@ 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+
5463data SuggestOptions =
5466data SuggestOptions =
5464 SuggestOptions { suggestOptionsText :: Text
5467 SuggestOptions { suggestOptionsText :: Text
5465 , suggestOptionsScore :: Double
5468 , suggestOptionsScore :: Double
src/Database/V5/Bloodhound/Types.hs+3
@@ -5238,6 +5238,9 @@ 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+
5241data SuggestOptions =
5244data SuggestOptions =
5242 SuggestOptions { suggestOptionsText :: Text
5245 SuggestOptions { suggestOptionsText :: Text
5243 , suggestOptionsScore :: Double
5246 , suggestOptionsScore :: Double