@@ -72,6 +72,7 @@ instance OpenApiOptions xs => OpenApiOptions (OmitNothingFields ': xs) where
73instance OpenApiOptions xs => OpenApiOptions (RejectUnknownFields ': xs) where
73instance OpenApiOptions xs => OpenApiOptions (RejectUnknownFields ': xs) where
74 openApiOptions = openApiOptions @xs
74 openApiOptions = openApiOptions @xs
75+ openApiSchemaModifier = schema . additionalProperties .~ Just (AdditionalPropertiesAllowed False)
76instance (StringModifier f, OpenApiOptions xs) => OpenApiOptions (FieldLabelModifier f ': xs) where
77instance (StringModifier f, OpenApiOptions xs) => OpenApiOptions (FieldLabelModifier f ': xs) where
77 openApiOptions = (openApiOptions @xs) {fieldLabelModifier = getStringModifier @f}
78 openApiOptions = (openApiOptions @xs) {fieldLabelModifier = getStringModifier @f}