@@ -582,6 +582,7 @@ data UpdatableIndexSetting = NumberOfReplicas ReplicaCount
582 | IndexCompoundFormat CompoundFormat
582 | IndexCompoundFormat CompoundFormat
583 | IndexCompoundOnFlush Bool
583 | IndexCompoundOnFlush Bool
584 | WarmerEnabled Bool
584 | WarmerEnabled Bool
585+ | MappingTotalFieldsLimit Int
585 deriving (Eq, Show, Generic, Typeable)
586 deriving (Eq, Show, Generic, Typeable)
587data AllocationPolicy = AllocAll
588data AllocationPolicy = AllocAll
@@ -2987,6 +2988,7 @@ instance ToJSON UpdatableIndexSetting where
2987 toJSON (BlocksRead x) = oPath ("blocks" :| ["read"]) x
2988 toJSON (BlocksRead x) = oPath ("blocks" :| ["read"]) x
2988 toJSON (BlocksWrite x) = oPath ("blocks" :| ["write"]) x
2989 toJSON (BlocksWrite x) = oPath ("blocks" :| ["write"]) x
2989 toJSON (BlocksMetaData x) = oPath ("blocks" :| ["metadata"]) x
2990 toJSON (BlocksMetaData x) = oPath ("blocks" :| ["metadata"]) x
2991+ toJSON (MappingTotalFieldsLimit x) = oPath ("index" :| ["mapping","total_fields","limit"]) x
2991instance FromJSON UpdatableIndexSetting where
2993instance FromJSON UpdatableIndexSetting where
2992 parseJSON = withObject "UpdatableIndexSetting" parse
2994 parseJSON = withObject "UpdatableIndexSetting" parse
@@ -3018,6 +3020,7 @@ instance FromJSON UpdatableIndexSetting where
3018 <|> blocksRead `taggedAt` ["blocks", "read"]
3020 <|> blocksRead `taggedAt` ["blocks", "read"]
3019 <|> blocksWrite `taggedAt` ["blocks", "write"]
3021 <|> blocksWrite `taggedAt` ["blocks", "write"]
3020 <|> blocksMetaData `taggedAt` ["blocks", "metadata"]
3022 <|> blocksMetaData `taggedAt` ["blocks", "metadata"]
3023+ <|> mappingTotalFieldsLimit `taggedAt` ["index", "mapping", "total_fields", "limit"]
3021 where taggedAt f ks = taggedAt' f (Object o) ks
3024 where taggedAt f ks = taggedAt' f (Object o) ks
3022 taggedAt' f v [] = f =<< (parseJSON v <|> (parseJSON (unStringlyTypeJSON v)))
3025 taggedAt' f v [] = f =<< (parseJSON v <|> (parseJSON (unStringlyTypeJSON v)))
3023 taggedAt' f v (k:ks) = withObject "Object" (\o -> do v' <- o .: k
3026 taggedAt' f v (k:ks) = withObject "Object" (\o -> do v' <- o .: k
@@ -3050,6 +3053,7 @@ instance FromJSON UpdatableIndexSetting where
3050 blocksRead = pure . BlocksRead
3053 blocksRead = pure . BlocksRead
3051 blocksWrite = pure . BlocksWrite
3054 blocksWrite = pure . BlocksWrite
3052 blocksMetaData = pure . BlocksMetaData
3055 blocksMetaData = pure . BlocksMetaData
3056+ mappingTotalFieldsLimit = pure . MappingTotalFieldsLimit
3054instance FromJSON IndexSettingsSummary where
3058instance FromJSON IndexSettingsSummary where
3055 parseJSON = withObject "IndexSettingsSummary" parse
3059 parseJSON = withObject "IndexSettingsSummary" parse