loafle/openapi-generator-original
3
0
Fork 1
mirror of https://github.com/OpenAPITools/openapi-generator.git synced 2025-12-09 23:06:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge remote-tracking branch 'origin/3.4.x' into 4.0.x

Browse Source
This commit is contained in:
William Cheng
2018-11-15 17:49:44 +08:00
parent 8ba4b3a276 a87a544bf5
commit 2bcf5b2263
581 changed files with 32821 additions and 958 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