ilyakooo0/deriving-openapi3
1
0
Fork 0
mirror of https://github.com/ilyakooo0/deriving-openapi3.git synced 2024-08-16 14:00:33 +03:00
Code Issues Projects Releases Wiki Activity

Let's add toParamSchema also?

Browse Source
This commit is contained in:
Ville Tirronen 2022-04-05 09:53:06 +03:00
parent ca2f807868
commit 4d656fdcb7
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Deriving/OpenApi.hs
View File

@ -40,6 +40,7 @@ import Control.Lens
import qualified Data.Aeson.Types as A
import Data.OpenApi
import Data.OpenApi.Internal.Schema
import Data.OpenApi.Internal.ParamSchema
import Data.Proxy
import Data.Typeable
import Deriving.Aeson
@ -77,6 +78,13 @@ instance
openApiSchemaModifier @xs
<$> genericDeclareNamedSchema (openApiOptionsModifier @xs defaultSchemaOptions) (Proxy @x)
instance
(OpenApiOptionModifier xs, GToParamSchema (Rep x), Generic x) =>
ToParamSchema (CustomJSON (xs :: k) x)
where
toParamSchema Proxy =
genericToParamSchema (openApiOptionsModifier @xs defaultSchemaOptions) (Proxy @x)
class OpenApiOptionModifier x where
openApiOptionsModifier :: SchemaOptions -> SchemaOptions
openApiOptionsModifier = id