@@ -39,6 +39,7 @@ where
3939import Control.Lens
4040import qualified Data.Aeson.Types as A
4141import Data.OpenApi
42+import Data.OpenApi.Internal.ParamSchema
4243import Data.OpenApi.Internal.Schema
4344import Data.Proxy
4445import Data.Typeable
@@ -77,6 +78,13 @@ instance
7778 openApiSchemaModifier @xs
7879 <$> genericDeclareNamedSchema (openApiOptionsModifier @xs defaultSchemaOptions) (Proxy @x)
7980
81+instance
82+ (OpenApiOptionModifier xs, GToParamSchema (Rep x), Generic x) =>
83+ ToParamSchema (CustomJSON (xs :: k) x)
84+ where
85+ toParamSchema Proxy =
86+ genericToParamSchema (openApiOptionsModifier @xs defaultSchemaOptions) (Proxy @x)
87+
8088class OpenApiOptionModifier x where
8189 openApiOptionsModifier :: SchemaOptions -> SchemaOptions
8290 openApiOptionsModifier = id