@@ -39,8 +39,8 @@ where
39import Control.Lens
39import Control.Lens
40import qualified Data.Aeson.Types as A
40import qualified Data.Aeson.Types as A
41import Data.OpenApi
41import Data.OpenApi
42−import Data.OpenApi.Internal.Schema
43import Data.OpenApi.Internal.ParamSchema
42import Data.OpenApi.Internal.ParamSchema
43+import Data.OpenApi.Internal.Schema
44import Data.Proxy
44import Data.Proxy
45import Data.Typeable
45import Data.Typeable
46import Deriving.Aeson
46import Deriving.Aeson
@@ -83,7 +83,7 @@ instance
83 ToParamSchema (CustomJSON (xs :: k) x)
83 ToParamSchema (CustomJSON (xs :: k) x)
85 toParamSchema Proxy =
85 toParamSchema Proxy =
86− genericToParamSchema (openApiOptionsModifier @xs defaultSchemaOptions) (Proxy @x)
86+ genericToParamSchema (openApiOptionsModifier @xs defaultSchemaOptions) (Proxy @x)
88class OpenApiOptionModifier x where
88class OpenApiOptionModifier x where
89 openApiOptionsModifier :: SchemaOptions -> SchemaOptions
89 openApiOptionsModifier :: SchemaOptions -> SchemaOptions