Add 'mkPhraseSuggesterCollate' helper function

This commit is contained in:
Josh Berman 2017-05-09 12:46:11 +03:00
parent 3ce3482d57
commit ca5e5cd168
2 changed files with 6 additions and 0 deletions

View File

@ -5460,6 +5460,9 @@ 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

View File

@ -5238,6 +5238,9 @@ 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