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

Merge pull request #5 from aleator/add-toParamSchema

Browse Source 
Let's add toParamSchema also?
This commit is contained in:
iko 2022-04-06 11:59:43 +03:00 committed by GitHub
commit 2b77c6ff4e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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

@ -39,6 +39,7 @@ where
import Control.Lens
import qualified Data.Aeson.Types as A
import Data.OpenApi
import Data.OpenApi.Internal.ParamSchema
import Data.OpenApi.Internal.Schema
import Data.Proxy
import Data.Typeable
@ -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