loafle/openapi-generator
3
0
Fork 0
forked from loafle/openapi-generator-original
Code Pull Requests Activity

Add top level x-group-parameters support (#1405)

Browse Source 
* add top level x-group-parameters support

* update petstore samples
This commit is contained in:
William Cheng
2018-11-12 14:25:32 +08:00
committed by GitHub
parent 69a766882d
commit c7349c7f88
127 changed files with 1762 additions and 202 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Fake.hs
View File

@@ -377,9 +377,15 @@ instance Produces TestEnumParameters MimeNoContent
-- Fake endpoint to test group parameters (optional)
--
testGroupParameters
:: OpenAPIPetstoreRequest TestGroupParameters MimeNoContent NoContent MimeNoContent
testGroupParameters =
:: RequiredStringGroup -- ^ "requiredStringGroup" - Required String in group parameters
-> RequiredBooleanGroup -- ^ "requiredBooleanGroup" - Required Boolean in group parameters
-> RequiredInt64Group -- ^ "requiredInt64Group" - Required Integer in group parameters
-> OpenAPIPetstoreRequest TestGroupParameters MimeNoContent NoContent MimeNoContent
testGroupParameters (RequiredStringGroup requiredStringGroup) (RequiredBooleanGroup requiredBooleanGroup) (RequiredInt64Group requiredInt64Group) =
_mkRequest "DELETE" ["/fake"]
`setQuery` toQuery ("required_string_group", Just requiredStringGroup)
`setHeader` toHeader ("required_boolean_group", requiredBooleanGroup)
`setQuery` toQuery ("required_int64_group", Just requiredInt64Group)
data TestGroupParameters

9
samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Model.hs
View File

@@ -180,9 +180,18 @@ newtype Query = Query { unQuery :: Text } deriving (P.Eq, P.Show)
-- ** RequestBody
newtype RequestBody = RequestBody { unRequestBody :: (Map.Map String Text) } deriving (P.Eq, P.Show, A.ToJSON)
-- ** RequiredBooleanGroup
newtype RequiredBooleanGroup = RequiredBooleanGroup { unRequiredBooleanGroup :: Bool } deriving (P.Eq, P.Show)
-- ** RequiredFile
newtype RequiredFile = RequiredFile { unRequiredFile :: FilePath } deriving (P.Eq, P.Show)
-- ** RequiredInt64Group
newtype RequiredInt64Group = RequiredInt64Group { unRequiredInt64Group :: Integer } deriving (P.Eq, P.Show)
-- ** RequiredStringGroup
newtype RequiredStringGroup = RequiredStringGroup { unRequiredStringGroup :: Int } deriving (P.Eq, P.Show)
-- ** Status
newtype Status = Status { unStatus :: [E'Status2] } deriving (P.Eq, P.Show)

19
samples/client/petstore/haskell-http-client/openapi.yaml
View File

@@ -593,6 +593,25 @@ paths:
description: Fake endpoint to test group parameters (optional)
operationId: testGroupParameters
parameters:
- description: Required String in group parameters
in: query
name: required_string_group
required: true
schema:
type: integer
- description: Required Boolean in group parameters
in: header
name: required_boolean_group
required: true
schema:
type: boolean
- description: Required Integer in group parameters
in: query
name: required_int64_group
required: true
schema:
format: int64
type: integer
- description: String in group parameters
in: query
name: string_group