@@ -40,6 +40,7 @@ import Control.Lens
4040import qualified Data.Aeson.Types as A
4141import Data.OpenApi
4242import Data.OpenApi.Internal.Schema
43+import Data.OpenApi.Internal.ParamSchema
4344import Data.Proxy
4445import Data.Typeable
4546import Deriving.Aeson
@@ -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