@@ -5295,7 +5295,7 @@ data PhraseSuggester =
52955295 , phraseSuggesterShardSize :: Maybe Int
52965296 , phraseSuggesterHighlight :: Maybe PhraseSuggesterHighlighter
52975297 , phraseSuggesterCollate :: Maybe PhraseSuggesterCollate
5298− , phraseSuggesterCandidateGenerators :: Maybe [DirectGenerators]
5298+ , phraseSuggesterCandidateGenerators :: [DirectGenerators]
52995299 }
53005300 deriving (Show, Generic, Eq, Read)
53015301
@@ -5328,12 +5328,12 @@ instance FromJSON PhraseSuggester where
53285328 <*> o .:? "shard_size"
53295329 <*> o .:? "highlight"
53305330 <*> o .:? "collate"
5331− <*> o .:? "direct_generator"
5331+ <*> o .:? "direct_generator" .!= []
53325332
53335333mkPhraseSuggester :: FieldName -> PhraseSuggester
53345334mkPhraseSuggester fName =
53355335 PhraseSuggester fName Nothing Nothing Nothing Nothing Nothing Nothing
5336− Nothing Nothing Nothing Nothing Nothing
5336+ Nothing Nothing Nothing Nothing []
53375337
53385338data PhraseSuggesterHighlighter =
53395339 PhraseSuggesterHighlighter { phraseSuggesterHighlighterPreTag :: Text
@@ -5442,7 +5442,7 @@ instance FromJSON DirectGeneratorSuggestModeTypes where
54425442 parse f = fail ("Unexpected DirectGeneratorSuggestModeTypes: " <> show f)
54435443
54445444data DirectGenerators = DirectGenerators
5445− { directGeneratorsField :: Text
5445+ { directGeneratorsField :: FieldName
54465446 , directGeneratorsSize :: Maybe Int
54475447 , directGeneratorSuggestMode :: DirectGeneratorSuggestModeTypes
54485448 , directGeneratorMaxEdits :: Maybe Double
@@ -5485,3 +5485,6 @@ instance FromJSON DirectGenerators where
54855485 <*> o .:? "max_term_freq"
54865486 <*> o .:? "pre_filter"
54875487 <*> o .:? "post_filter"
5488+
5489+mkDirectGenerators :: FieldName -> DirectGenerators
5490+mkDirectGenerators fn = DirectGenerators fn Nothing DirectGeneratorSuggestModeMissing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing