@@ -98,8 +98,10 @@ instance OpenApiOptionModifier UnwrapUnaryRecords where
99instance OpenApiOptionModifier OmitNothingFields
99instance OpenApiOptionModifier OmitNothingFields
101+#if MIN_VERSION_deriving_aeson(0,2,4)
101instance OpenApiOptionModifier RejectUnknownFields where
102instance OpenApiOptionModifier RejectUnknownFields where
102 openApiSchemaModifier = schema . additionalProperties .~ Just (AdditionalPropertiesAllowed False)
103 openApiSchemaModifier = schema . additionalProperties .~ Just (AdditionalPropertiesAllowed False)
104instance StringModifier f => OpenApiOptionModifier (FieldLabelModifier f) where
106instance StringModifier f => OpenApiOptionModifier (FieldLabelModifier f) where
105 openApiOptionsModifier o = o {fieldLabelModifier = getStringModifier @f}
107 openApiOptionsModifier o = o {fieldLabelModifier = getStringModifier @f}