diff --git a/samples/client/petstore/haskell-http-client/README.md b/samples/client/petstore/haskell-http-client/README.md index dfb76cd76ad..516e16023ca 100644 --- a/samples/client/petstore/haskell-http-client/README.md +++ b/samples/client/petstore/haskell-http-client/README.md @@ -2,7 +2,7 @@ The library in `lib` provides auto-generated-from-OpenAPI [http-client](https://www.stackage.org/lts-10.0/package/http-client-0.5.7.1) bindings to the OpenAPI Petstore API. -OpenApi Version: 3.0.1 +OpenApi Version: 3.0.0 ## Installation diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-AnotherFake.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-AnotherFake.html similarity index 57% rename from samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-AnotherFake.html rename to samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-AnotherFake.html index 88926e5b821..323960013b8 100644 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-AnotherFake.html +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-AnotherFake.html @@ -1,4 +1,4 @@ -SwaggerPetstore.API.AnotherFake

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.API.AnotherFake

Contents

Description

 

Synopsis

Operations

AnotherFake

testSpecialTags

testSpecialTags Source #

Arguments

:: (Consumes TestSpecialTags MimeJSON, MimeRender MimeJSON Client) 
=> Client

"client" - client model

-> SwaggerPetstoreRequest TestSpecialTags MimeJSON Client MimeJSON 
PATCH /another-fake/dummy

To test special tags

To test special tags

data TestSpecialTags Source #

Instances

Produces TestSpecialTags MimeJSON Source #
application/json
Consumes TestSpecialTags MimeJSON Source #
application/json
HasBodyParam TestSpecialTags Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestSpecialTags contentType, MimeRender contentType Client) => SwaggerPetstoreRequest TestSpecialTags contentType res accept -> Client -> SwaggerPetstoreRequest TestSpecialTags contentType res accept Source #

\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.API.AnotherFake

Contents

Description

 

Synopsis

Operations

AnotherFake

testSpecialTags

testSpecialTags Source #

Arguments

:: (Consumes TestSpecialTags MimeJSON, MimeRender MimeJSON Client) 
=> Client

"client" - client model

-> OpenAPIPetstoreRequest TestSpecialTags MimeJSON Client MimeJSON 
PATCH /another-fake/dummy

To test special tags

To test special tags

data TestSpecialTags Source #

Instances

Produces TestSpecialTags MimeJSON Source #
application/json
Consumes TestSpecialTags MimeJSON Source #
application/json
HasBodyParam TestSpecialTags Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestSpecialTags contentType, MimeRender contentType Client) => OpenAPIPetstoreRequest TestSpecialTags contentType res accept -> Client -> OpenAPIPetstoreRequest TestSpecialTags contentType res accept Source #

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-Fake.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-Fake.html new file mode 100644 index 00000000000..29e2ff9ae62 --- /dev/null +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-Fake.html @@ -0,0 +1,4 @@ +OpenAPIPetstore.API.Fake

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.API.Fake

Contents

Description

 

Synopsis

Operations

Fake

fakeOuterBooleanSerialize

fakeOuterBooleanSerialize Source #

Arguments

:: Consumes FakeOuterBooleanSerialize MimeJSON 
=> Accept accept

request accept (MimeType)

-> OpenAPIPetstoreRequest FakeOuterBooleanSerialize MimeJSON Bool accept 
POST /fake/outer/boolean

Test serialization of outer boolean types

data FakeOuterBooleanSerialize Source #

Instances

fakeOuterCompositeSerialize

fakeOuterCompositeSerialize Source #

Arguments

:: Consumes FakeOuterCompositeSerialize MimeJSON 
=> Accept accept

request accept (MimeType)

-> OpenAPIPetstoreRequest FakeOuterCompositeSerialize MimeJSON OuterComposite accept 
POST /fake/outer/composite

Test serialization of object with outer number type

data FakeOuterCompositeSerialize Source #

Instances

fakeOuterNumberSerialize

fakeOuterNumberSerialize Source #

Arguments

:: Consumes FakeOuterNumberSerialize MimeJSON 
=> Accept accept

request accept (MimeType)

-> OpenAPIPetstoreRequest FakeOuterNumberSerialize MimeJSON Double accept 
POST /fake/outer/number

Test serialization of outer number types

data FakeOuterNumberSerialize Source #

Instances

fakeOuterStringSerialize

fakeOuterStringSerialize Source #

Arguments

:: Consumes FakeOuterStringSerialize MimeJSON 
=> Accept accept

request accept (MimeType)

-> OpenAPIPetstoreRequest FakeOuterStringSerialize MimeJSON Text accept 
POST /fake/outer/string

Test serialization of outer string types

data FakeOuterStringSerialize Source #

Instances

testClientModel

testClientModel Source #

Arguments

:: (Consumes TestClientModel MimeJSON, MimeRender MimeJSON Client) 
=> Client

"client" - client model

-> OpenAPIPetstoreRequest TestClientModel MimeJSON Client MimeJSON 
PATCH /fake

To test "client" model

To test "client" model

data TestClientModel Source #

Instances

Produces TestClientModel MimeJSON Source #
application/json
Consumes TestClientModel MimeJSON Source #
application/json
HasBodyParam TestClientModel Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClientModel contentType, MimeRender contentType Client) => OpenAPIPetstoreRequest TestClientModel contentType res accept -> Client -> OpenAPIPetstoreRequest TestClientModel contentType res accept Source #

testEndpointParameters

testEndpointParameters Source #

Arguments

:: Consumes TestEndpointParameters MimeFormUrlEncoded 
=> Number

"number" - None

-> ParamDouble

"double" - None

-> PatternWithoutDelimiter

"patternWithoutDelimiter" - None

-> Byte

"byte" - None

-> OpenAPIPetstoreRequest TestEndpointParameters MimeFormUrlEncoded NoContent MimeNoContent 
POST /fake

Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트

Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트

AuthMethod: AuthBasicHttpBasicTest

data TestEndpointParameters Source #

Instances

Produces TestEndpointParameters MimeNoContent Source # 
Consumes TestEndpointParameters MimeFormUrlEncoded Source #
application/x-www-form-urlencoded
HasOptionalParam TestEndpointParameters Password Source #

Optional Param "password" - None

HasOptionalParam TestEndpointParameters ParamString Source #

Optional Param "string" - None

HasOptionalParam TestEndpointParameters ParamInteger Source #

Optional Param "integer" - None

HasOptionalParam TestEndpointParameters ParamFloat Source #

Optional Param "float" - None

HasOptionalParam TestEndpointParameters ParamDateTime Source #

Optional Param "dateTime" - None

HasOptionalParam TestEndpointParameters ParamDate Source #

Optional Param "date" - None

HasOptionalParam TestEndpointParameters ParamBinary Source #

Optional Param "binary" - None

HasOptionalParam TestEndpointParameters Int64 Source #

Optional Param "int64" - None

HasOptionalParam TestEndpointParameters Int32 Source #

Optional Param "int32" - None

HasOptionalParam TestEndpointParameters Callback Source #

Optional Param "callback" - None

testEnumParameters

testEnumParameters :: Consumes TestEnumParameters MimeFormUrlEncoded => OpenAPIPetstoreRequest TestEnumParameters MimeFormUrlEncoded NoContent MimeNoContent Source #

GET /fake

To test enum parameters

To test enum parameters

data TestEnumParameters Source #

Instances

Produces TestEnumParameters MimeNoContent Source # 
Consumes TestEnumParameters MimeFormUrlEncoded Source #
application/x-www-form-urlencoded
HasOptionalParam TestEnumParameters EnumQueryStringArray Source #

Optional Param "enum_query_string_array" - Query parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumQueryString Source #

Optional Param "enum_query_string" - Query parameter enum test (string)

HasOptionalParam TestEnumParameters EnumQueryInteger Source #

Optional Param "enum_query_integer" - Query parameter enum test (double)

HasOptionalParam TestEnumParameters EnumQueryDouble Source #

Optional Param "enum_query_double" - Query parameter enum test (double)

HasOptionalParam TestEnumParameters EnumHeaderStringArray Source #

Optional Param "enum_header_string_array" - Header parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumHeaderString Source #

Optional Param "enum_header_string" - Header parameter enum test (string)

HasOptionalParam TestEnumParameters EnumFormStringArray Source #

Optional Param "enum_form_string_array" - Form parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumFormString Source #

Optional Param "enum_form_string" - Form parameter enum test (string)

testInlineAdditionalProperties

testInlineAdditionalProperties Source #

Arguments

:: (Consumes TestInlineAdditionalProperties MimeJSON, MimeRender MimeJSON RequestBody) 
=> RequestBody

"requestBody" - request body

-> OpenAPIPetstoreRequest TestInlineAdditionalProperties MimeJSON NoContent MimeNoContent 
POST /fake/inline-additionalProperties

test inline additionalProperties

data TestInlineAdditionalProperties Source #

Instances

testJsonFormData

testJsonFormData Source #

Arguments

:: Consumes TestJsonFormData MimeFormUrlEncoded 
=> Param

"param" - field1

-> Param2

"param2" - field2

-> OpenAPIPetstoreRequest TestJsonFormData MimeFormUrlEncoded NoContent MimeNoContent 
GET /fake/jsonFormData

test json serialization of form data

data TestJsonFormData Source #

Instances

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-FakeClassnameTags123.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-FakeClassnameTags123.html similarity index 55% rename from samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-FakeClassnameTags123.html rename to samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-FakeClassnameTags123.html index 6cb4e9311eb..bc622051489 100644 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-FakeClassnameTags123.html +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-FakeClassnameTags123.html @@ -1,4 +1,4 @@ -SwaggerPetstore.API.FakeClassnameTags123

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.API.FakeClassnameTags123

Contents

Description

 

Synopsis

Operations

FakeClassnameTags123

testClassname

testClassname Source #

Arguments

:: (Consumes TestClassname MimeJSON, MimeRender MimeJSON Client) 
=> Client

"client" - client model

-> SwaggerPetstoreRequest TestClassname MimeJSON Client MimeJSON 
PATCH /fake_classname_test

To test class name in snake case

To test class name in snake case

AuthMethod: AuthApiKeyApiKeyQuery

data TestClassname Source #

Instances

Produces TestClassname MimeJSON Source #
application/json
Consumes TestClassname MimeJSON Source #
application/json
HasBodyParam TestClassname Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClassname contentType, MimeRender contentType Client) => SwaggerPetstoreRequest TestClassname contentType res accept -> Client -> SwaggerPetstoreRequest TestClassname contentType res accept Source #

\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.API.FakeClassnameTags123

Contents

Description

 

Synopsis

Operations

FakeClassnameTags123

testClassname

testClassname Source #

Arguments

:: (Consumes TestClassname MimeJSON, MimeRender MimeJSON Client) 
=> Client

"client" - client model

-> OpenAPIPetstoreRequest TestClassname MimeJSON Client MimeJSON 
PATCH /fake_classname_test

To test class name in snake case

To test class name in snake case

AuthMethod: AuthApiKeyApiKeyQuery

data TestClassname Source #

Instances

Produces TestClassname MimeJSON Source #
application/json
Consumes TestClassname MimeJSON Source #
application/json
HasBodyParam TestClassname Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClassname contentType, MimeRender contentType Client) => OpenAPIPetstoreRequest TestClassname contentType res accept -> Client -> OpenAPIPetstoreRequest TestClassname contentType res accept Source #

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-Pet.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-Pet.html similarity index 50% rename from samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-Pet.html rename to samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-Pet.html index bd6a6704a2a..e0483c21520 100644 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-Pet.html +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-Pet.html @@ -1,4 +1,4 @@ -SwaggerPetstore.API.Pet

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.API.Pet

Contents

Description

 

Synopsis

Operations

Pet

addPet

addPet Source #

Arguments

:: (Consumes AddPet contentType, MimeRender contentType Pet) 
=> ContentType contentType

request content-type (MimeType)

-> Pet

"pet" - Pet object that needs to be added to the store

-> SwaggerPetstoreRequest AddPet contentType NoContent MimeNoContent 
POST /pet

Add a new pet to the store

AuthMethod: AuthOAuthPetstoreAuth

data AddPet Source #

Instances

Produces AddPet MimeNoContent Source # 
Consumes AddPet MimeXML Source #
application/xml
Consumes AddPet MimeJSON Source #
application/json
HasBodyParam AddPet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes AddPet contentType, MimeRender contentType Pet) => SwaggerPetstoreRequest AddPet contentType res accept -> Pet -> SwaggerPetstoreRequest AddPet contentType res accept Source #

deletePet

deletePet Source #

Arguments

:: PetId

"petId" - Pet id to delete

-> SwaggerPetstoreRequest DeletePet MimeNoContent NoContent MimeNoContent 
DELETE /pet/{petId}

Deletes a pet

AuthMethod: AuthOAuthPetstoreAuth

data DeletePet Source #

Instances

findPetsByStatus

findPetsByStatus Source #

Arguments

:: Accept accept

request accept (MimeType)

-> Status

"status" - Status values that need to be considered for filter

-> SwaggerPetstoreRequest FindPetsByStatus MimeNoContent [Pet] accept 
GET /pet/findByStatus

Finds Pets by status

Multiple status values can be provided with comma separated strings

AuthMethod: AuthOAuthPetstoreAuth

data FindPetsByStatus Source #

Instances

findPetsByTags

findPetsByTags Source #

Arguments

:: Accept accept

request accept (MimeType)

-> Tags

"tags" - Tags to filter by

-> SwaggerPetstoreRequest FindPetsByTags MimeNoContent [Pet] accept 

Deprecated: 

GET /pet/findByTags

Finds Pets by tags

Multiple tags can be provided with comma separated strings. Use tag1, tag2, tag3 for testing.

AuthMethod: AuthOAuthPetstoreAuth

data FindPetsByTags Source #

Instances

getPetById

getPetById Source #

Arguments

:: Accept accept

request accept (MimeType)

-> PetId

"petId" - ID of pet to return

-> SwaggerPetstoreRequest GetPetById MimeNoContent Pet accept 
GET /pet/{petId}

Find pet by ID

Returns a single pet

AuthMethod: AuthApiKeyApiKey

data GetPetById Source #

Instances

updatePet

updatePet Source #

Arguments

:: (Consumes UpdatePet contentType, MimeRender contentType Pet) 
=> ContentType contentType

request content-type (MimeType)

-> Pet

"pet" - Pet object that needs to be added to the store

-> SwaggerPetstoreRequest UpdatePet contentType NoContent MimeNoContent 
PUT /pet

Update an existing pet

AuthMethod: AuthOAuthPetstoreAuth

data UpdatePet Source #

Instances

Produces UpdatePet MimeNoContent Source # 
Consumes UpdatePet MimeXML Source #
application/xml
Consumes UpdatePet MimeJSON Source #
application/json
HasBodyParam UpdatePet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes UpdatePet contentType, MimeRender contentType Pet) => SwaggerPetstoreRequest UpdatePet contentType res accept -> Pet -> SwaggerPetstoreRequest UpdatePet contentType res accept Source #

updatePetWithForm

updatePetWithForm Source #

Arguments

:: Consumes UpdatePetWithForm MimeFormUrlEncoded 
=> PetId

"petId" - ID of pet that needs to be updated

-> SwaggerPetstoreRequest UpdatePetWithForm MimeFormUrlEncoded NoContent MimeNoContent 
POST /pet/{petId}

Updates a pet in the store with form data

AuthMethod: AuthOAuthPetstoreAuth

data UpdatePetWithForm Source #

Instances

Produces UpdatePetWithForm MimeNoContent Source # 
Consumes UpdatePetWithForm MimeFormUrlEncoded Source #
application/x-www-form-urlencoded
HasOptionalParam UpdatePetWithForm StatusText Source #

Optional Param "status" - Updated status of the pet

HasOptionalParam UpdatePetWithForm Name2 Source #

Optional Param "name" - Updated name of the pet

uploadFile

uploadFile Source #

Arguments

:: Consumes UploadFile MimeMultipartFormData 
=> PetId

"petId" - ID of pet to update

-> SwaggerPetstoreRequest UploadFile MimeMultipartFormData ApiResponse MimeJSON 
POST /pet/{petId}/uploadImage

uploads an image

AuthMethod: AuthOAuthPetstoreAuth

data UploadFile Source #

Instances

Produces UploadFile MimeJSON Source #
application/json
Consumes UploadFile MimeMultipartFormData Source #
multipart/form-data
HasOptionalParam UploadFile File Source #

Optional Param "file" - file to upload

Methods

applyOptionalParam :: SwaggerPetstoreRequest UploadFile contentType res accept -> File -> SwaggerPetstoreRequest UploadFile contentType res accept Source #

(-&-) :: SwaggerPetstoreRequest UploadFile contentType res accept -> File -> SwaggerPetstoreRequest UploadFile contentType res accept Source #

HasOptionalParam UploadFile AdditionalMetadata Source #

Optional Param "additionalMetadata" - Additional data to pass to server

\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.API.Pet

Contents

Description

 

Synopsis

Operations

Pet

addPet

addPet Source #

Arguments

:: (Consumes AddPet contentType, MimeRender contentType Pet) 
=> ContentType contentType

request content-type (MimeType)

-> Pet

"pet" - Pet object that needs to be added to the store

-> OpenAPIPetstoreRequest AddPet contentType NoContent MimeNoContent 
POST /pet

Add a new pet to the store

AuthMethod: AuthOAuthPetstoreAuth

data AddPet Source #

Instances

Produces AddPet MimeNoContent Source # 
Consumes AddPet MimeXML Source #
application/xml
Consumes AddPet MimeJSON Source #
application/json
HasBodyParam AddPet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes AddPet contentType, MimeRender contentType Pet) => OpenAPIPetstoreRequest AddPet contentType res accept -> Pet -> OpenAPIPetstoreRequest AddPet contentType res accept Source #

deletePet

deletePet Source #

Arguments

:: PetId

"petId" - Pet id to delete

-> OpenAPIPetstoreRequest DeletePet MimeNoContent NoContent MimeNoContent 
DELETE /pet/{petId}

Deletes a pet

AuthMethod: AuthOAuthPetstoreAuth

data DeletePet Source #

Instances

findPetsByStatus

findPetsByStatus Source #

Arguments

:: Accept accept

request accept (MimeType)

-> Status

"status" - Status values that need to be considered for filter

-> OpenAPIPetstoreRequest FindPetsByStatus MimeNoContent [Pet] accept 
GET /pet/findByStatus

Finds Pets by status

Multiple status values can be provided with comma separated strings

AuthMethod: AuthOAuthPetstoreAuth

data FindPetsByStatus Source #

Instances

findPetsByTags

findPetsByTags Source #

Arguments

:: Accept accept

request accept (MimeType)

-> Tags

"tags" - Tags to filter by

-> OpenAPIPetstoreRequest FindPetsByTags MimeNoContent [Pet] accept 

Deprecated: 

GET /pet/findByTags

Finds Pets by tags

Multiple tags can be provided with comma separated strings. Use tag1, tag2, tag3 for testing.

AuthMethod: AuthOAuthPetstoreAuth

data FindPetsByTags Source #

Instances

getPetById

getPetById Source #

Arguments

:: Accept accept

request accept (MimeType)

-> PetId

"petId" - ID of pet to return

-> OpenAPIPetstoreRequest GetPetById MimeNoContent Pet accept 
GET /pet/{petId}

Find pet by ID

Returns a single pet

AuthMethod: AuthApiKeyApiKey

data GetPetById Source #

Instances

updatePet

updatePet Source #

Arguments

:: (Consumes UpdatePet contentType, MimeRender contentType Pet) 
=> ContentType contentType

request content-type (MimeType)

-> Pet

"pet" - Pet object that needs to be added to the store

-> OpenAPIPetstoreRequest UpdatePet contentType NoContent MimeNoContent 
PUT /pet

Update an existing pet

AuthMethod: AuthOAuthPetstoreAuth

data UpdatePet Source #

Instances

Produces UpdatePet MimeNoContent Source # 
Consumes UpdatePet MimeXML Source #
application/xml
Consumes UpdatePet MimeJSON Source #
application/json
HasBodyParam UpdatePet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes UpdatePet contentType, MimeRender contentType Pet) => OpenAPIPetstoreRequest UpdatePet contentType res accept -> Pet -> OpenAPIPetstoreRequest UpdatePet contentType res accept Source #

updatePetWithForm

updatePetWithForm Source #

Arguments

:: Consumes UpdatePetWithForm MimeFormUrlEncoded 
=> PetId

"petId" - ID of pet that needs to be updated

-> OpenAPIPetstoreRequest UpdatePetWithForm MimeFormUrlEncoded NoContent MimeNoContent 
POST /pet/{petId}

Updates a pet in the store with form data

AuthMethod: AuthOAuthPetstoreAuth

data UpdatePetWithForm Source #

Instances

Produces UpdatePetWithForm MimeNoContent Source # 
Consumes UpdatePetWithForm MimeFormUrlEncoded Source #
application/x-www-form-urlencoded
HasOptionalParam UpdatePetWithForm StatusText Source #

Optional Param "status" - Updated status of the pet

HasOptionalParam UpdatePetWithForm Name2 Source #

Optional Param "name" - Updated name of the pet

uploadFile

uploadFile Source #

Arguments

:: Consumes UploadFile MimeMultipartFormData 
=> PetId

"petId" - ID of pet to update

-> OpenAPIPetstoreRequest UploadFile MimeMultipartFormData ApiResponse MimeJSON 
POST /pet/{petId}/uploadImage

uploads an image

AuthMethod: AuthOAuthPetstoreAuth

data UploadFile Source #

Instances

Produces UploadFile MimeJSON Source #
application/json
Consumes UploadFile MimeMultipartFormData Source #
multipart/form-data
HasOptionalParam UploadFile File Source #

Optional Param "file" - file to upload

Methods

applyOptionalParam :: OpenAPIPetstoreRequest UploadFile contentType res accept -> File -> OpenAPIPetstoreRequest UploadFile contentType res accept Source #

(-&-) :: OpenAPIPetstoreRequest UploadFile contentType res accept -> File -> OpenAPIPetstoreRequest UploadFile contentType res accept Source #

HasOptionalParam UploadFile AdditionalMetadata Source #

Optional Param "additionalMetadata" - Additional data to pass to server

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-Store.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-Store.html new file mode 100644 index 00000000000..0d577406852 --- /dev/null +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-Store.html @@ -0,0 +1,4 @@ +OpenAPIPetstore.API.Store

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.API.Store

Contents

Description

 

Synopsis

Operations

Store

deleteOrder

deleteOrder Source #

Arguments

:: OrderIdText

"orderId" - ID of the order that needs to be deleted

-> OpenAPIPetstoreRequest DeleteOrder MimeNoContent NoContent MimeNoContent 
DELETE /store/order/{order_id}

Delete purchase order by ID

For valid response try integer IDs with value < 1000. Anything above 1000 or nonintegers will generate API errors

data DeleteOrder Source #

Instances

getInventory

getInventory :: OpenAPIPetstoreRequest GetInventory MimeNoContent (Map String Int) MimeJSON Source #

GET /store/inventory

Returns pet inventories by status

Returns a map of status codes to quantities

AuthMethod: AuthApiKeyApiKey

data GetInventory Source #

Instances

getOrderById

getOrderById Source #

Arguments

:: Accept accept

request accept (MimeType)

-> OrderId

"orderId" - ID of pet that needs to be fetched

-> OpenAPIPetstoreRequest GetOrderById MimeNoContent Order accept 
GET /store/order/{order_id}

Find purchase order by ID

For valid response try integer IDs with value 5 or 10. Other values will generated exceptions

data GetOrderById Source #

Instances

placeOrder

placeOrder Source #

Arguments

:: (Consumes PlaceOrder MimeJSON, MimeRender MimeJSON Order) 
=> Accept accept

request accept (MimeType)

-> Order

"order" - order placed for purchasing the pet

-> OpenAPIPetstoreRequest PlaceOrder MimeJSON Order accept 
POST /store/order

Place an order for a pet

data PlaceOrder Source #

Instances

Produces PlaceOrder MimeXML Source #
application/xml
Produces PlaceOrder MimeJSON Source #
application/json
Consumes PlaceOrder MimeJSON Source #
application/json
HasBodyParam PlaceOrder Order Source #

Body Param Order - order placed for purchasing the pet

Methods

setBodyParam :: (Consumes PlaceOrder contentType, MimeRender contentType Order) => OpenAPIPetstoreRequest PlaceOrder contentType res accept -> Order -> OpenAPIPetstoreRequest PlaceOrder contentType res accept Source #

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-User.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-User.html new file mode 100644 index 00000000000..7d66ed3c187 --- /dev/null +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API-User.html @@ -0,0 +1,4 @@ +OpenAPIPetstore.API.User

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.API.User

Contents

Description

 

Synopsis

Operations

User

createUser

createUser Source #

Arguments

:: (Consumes CreateUser MimeJSON, MimeRender MimeJSON User) 
=> User

"user" - Created user object

-> OpenAPIPetstoreRequest CreateUser MimeJSON NoContent MimeNoContent 
POST /user

Create user

This can only be done by the logged in user.

data CreateUser Source #

Instances

Produces CreateUser MimeNoContent Source # 
Consumes CreateUser MimeJSON Source #
application/json
HasBodyParam CreateUser User Source #

Body Param User - Created user object

Methods

setBodyParam :: (Consumes CreateUser contentType, MimeRender contentType User) => OpenAPIPetstoreRequest CreateUser contentType res accept -> User -> OpenAPIPetstoreRequest CreateUser contentType res accept Source #

createUsersWithArrayInput

createUsersWithArrayInput Source #

Arguments

:: (Consumes CreateUsersWithArrayInput MimeJSON, MimeRender MimeJSON User2) 
=> User2

"user" - List of user object

-> OpenAPIPetstoreRequest CreateUsersWithArrayInput MimeJSON NoContent MimeNoContent 
POST /user/createWithArray

Creates list of users with given input array

data CreateUsersWithArrayInput Source #

Instances

createUsersWithListInput

createUsersWithListInput Source #

Arguments

:: (Consumes CreateUsersWithListInput MimeJSON, MimeRender MimeJSON User2) 
=> User2

"user" - List of user object

-> OpenAPIPetstoreRequest CreateUsersWithListInput MimeJSON NoContent MimeNoContent 
POST /user/createWithList

Creates list of users with given input array

data CreateUsersWithListInput Source #

Instances

deleteUser

deleteUser Source #

Arguments

:: Username

"username" - The name that needs to be deleted

-> OpenAPIPetstoreRequest DeleteUser MimeNoContent NoContent MimeNoContent 
DELETE /user/{username}

Delete user

This can only be done by the logged in user.

data DeleteUser Source #

Instances

getUserByName

getUserByName Source #

Arguments

:: Accept accept

request accept (MimeType)

-> Username

"username" - The name that needs to be fetched. Use user1 for testing.

-> OpenAPIPetstoreRequest GetUserByName MimeNoContent User accept 
GET /user/{username}

Get user by user name

data GetUserByName Source #

Instances

loginUser

loginUser Source #

Arguments

:: Accept accept

request accept (MimeType)

-> Username

"username" - The user name for login

-> Password

"password" - The password for login in clear text

-> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept 
GET /user/login

Logs user into the system

data LoginUser Source #

Instances

logoutUser

logoutUser :: OpenAPIPetstoreRequest LogoutUser MimeNoContent NoContent MimeNoContent Source #

GET /user/logout

Logs out current logged in user session

data LogoutUser Source #

Instances

updateUser

updateUser Source #

Arguments

:: (Consumes UpdateUser MimeJSON, MimeRender MimeJSON User) 
=> User

"user" - Updated user object

-> Username

"username" - name that need to be deleted

-> OpenAPIPetstoreRequest UpdateUser MimeJSON NoContent MimeNoContent 
PUT /user/{username}

Updated user

This can only be done by the logged in user.

data UpdateUser Source #

Instances

Produces UpdateUser MimeNoContent Source # 
Consumes UpdateUser MimeJSON Source #
application/json
HasBodyParam UpdateUser User Source #

Body Param User - Updated user object

Methods

setBodyParam :: (Consumes UpdateUser contentType, MimeRender contentType User) => OpenAPIPetstoreRequest UpdateUser contentType res accept -> User -> OpenAPIPetstoreRequest UpdateUser contentType res accept Source #

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API.html similarity index 64% rename from samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API.html rename to samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API.html index 93d06ff9c7c..f29e9b44269 100644 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API.html +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-API.html @@ -1,4 +1,4 @@ -SwaggerPetstore.API

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.API

Description

 

Documentation

module SwaggerPetstore.API.AnotherFake

module SwaggerPetstore.API.Fake

module SwaggerPetstore.API.FakeClassnameTags123

module SwaggerPetstore.API.Pet

module SwaggerPetstore.API.Store

module SwaggerPetstore.API.User

\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.API

Description

 

Documentation

module OpenAPIPetstore.API.AnotherFake

module OpenAPIPetstore.API.Fake

module OpenAPIPetstore.API.FakeClassnameTags123

module OpenAPIPetstore.API.Pet

module OpenAPIPetstore.API.Store

module OpenAPIPetstore.API.User

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Client.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Client.html similarity index 69% rename from samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Client.html rename to samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Client.html index dd8ad640c3b..d0fbf7ca30e 100644 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Client.html +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Client.html @@ -1,4 +1,4 @@ -SwaggerPetstore.Client

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.Client

Contents

Description

 

Synopsis

Dispatch

Lbs

dispatchLbs Source #

Arguments

:: (Produces req accept, MimeType contentType) 
=> Manager

http-client Connection manager

-> SwaggerPetstoreConfig

config

-> SwaggerPetstoreRequest req contentType res accept

request

-> IO (Response ByteString)

response

send a request returning the raw http response

Mime

data MimeResult res Source #

pair of decoded http body and http response

Constructors

MimeResult 

Fields

Instances

Functor MimeResult Source # 

Methods

fmap :: (a -> b) -> MimeResult a -> MimeResult b #

(<$) :: a -> MimeResult b -> MimeResult a #

Foldable MimeResult Source # 

Methods

fold :: Monoid m => MimeResult m -> m #

foldMap :: Monoid m => (a -> m) -> MimeResult a -> m #

foldr :: (a -> b -> b) -> b -> MimeResult a -> b #

foldr' :: (a -> b -> b) -> b -> MimeResult a -> b #

foldl :: (b -> a -> b) -> b -> MimeResult a -> b #

foldl' :: (b -> a -> b) -> b -> MimeResult a -> b #

foldr1 :: (a -> a -> a) -> MimeResult a -> a #

foldl1 :: (a -> a -> a) -> MimeResult a -> a #

toList :: MimeResult a -> [a] #

null :: MimeResult a -> Bool #

length :: MimeResult a -> Int #

elem :: Eq a => a -> MimeResult a -> Bool #

maximum :: Ord a => MimeResult a -> a #

minimum :: Ord a => MimeResult a -> a #

sum :: Num a => MimeResult a -> a #

product :: Num a => MimeResult a -> a #

Traversable MimeResult Source # 

Methods

traverse :: Applicative f => (a -> f b) -> MimeResult a -> f (MimeResult b) #

sequenceA :: Applicative f => MimeResult (f a) -> f (MimeResult a) #

mapM :: Monad m => (a -> m b) -> MimeResult a -> m (MimeResult b) #

sequence :: Monad m => MimeResult (m a) -> m (MimeResult a) #

Show res => Show (MimeResult res) Source # 

Methods

showsPrec :: Int -> MimeResult res -> ShowS #

show :: MimeResult res -> String #

showList :: [MimeResult res] -> ShowS #

data MimeError Source #

pair of unrender/parser error and http response

Constructors

MimeError 

Fields

Instances

dispatchMime Source #

Arguments

:: (Produces req accept, MimeUnrender accept res, MimeType contentType) 
=> Manager

http-client Connection manager

-> SwaggerPetstoreConfig

config

-> SwaggerPetstoreRequest req contentType res accept

request

-> IO (MimeResult res)

response

send a request returning the MimeResult

dispatchMime' Source #

Arguments

:: (Produces req accept, MimeUnrender accept res, MimeType contentType) 
=> Manager

http-client Connection manager

-> SwaggerPetstoreConfig

config

-> SwaggerPetstoreRequest req contentType res accept

request

-> IO (Either MimeError res)

response

like dispatchMime, but only returns the decoded http body

Unsafe

dispatchLbsUnsafe Source #

Arguments

:: (MimeType accept, MimeType contentType) 
=> Manager

http-client Connection manager

-> SwaggerPetstoreConfig

config

-> SwaggerPetstoreRequest req contentType res accept

request

-> IO (Response ByteString)

response

like dispatchReqLbs, but does not validate the operation is a Producer of the "accept" MimeType. (Useful if the server's response is undocumented)

dispatchInitUnsafe Source #

Arguments

:: Manager

http-client Connection manager

-> SwaggerPetstoreConfig

config

-> InitRequest req contentType res accept

init request

-> IO (Response ByteString)

response

dispatch an InitRequest

InitRequest

newtype InitRequest req contentType res accept Source #

wraps an http-client Request with request/response type parameters

Constructors

InitRequest 

Fields

Instances

Show (InitRequest req contentType res accept) Source # 

Methods

showsPrec :: Int -> InitRequest req contentType res accept -> ShowS #

show :: InitRequest req contentType res accept -> String #

showList :: [InitRequest req contentType res accept] -> ShowS #

_toInitRequest Source #

Arguments

:: (MimeType accept, MimeType contentType) 
=> SwaggerPetstoreConfig

config

-> SwaggerPetstoreRequest req contentType res accept

request

-> IO (InitRequest req contentType res accept)

initialized request

Build an http-client Request record from the supplied config and request

modifyInitRequest :: InitRequest req contentType res accept -> (Request -> Request) -> InitRequest req contentType res accept Source #

modify the underlying Request

modifyInitRequestM :: Monad m => InitRequest req contentType res accept -> (Request -> m Request) -> m (InitRequest req contentType res accept) Source #

modify the underlying Request (monadic)

Logging

runConfigLog :: MonadIO m => SwaggerPetstoreConfig -> LogExec m Source #

Run a block using the configured logger instance

runConfigLogWithExceptions :: (MonadCatch m, MonadIO m) => Text -> SwaggerPetstoreConfig -> LogExec m Source #

Run a block using the configured logger instance (logs exceptions)

\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.Client

Contents

Description

 

Synopsis

Dispatch

Lbs

dispatchLbs Source #

Arguments

:: (Produces req accept, MimeType contentType) 
=> Manager

http-client Connection manager

-> OpenAPIPetstoreConfig

config

-> OpenAPIPetstoreRequest req contentType res accept

request

-> IO (Response ByteString)

response

send a request returning the raw http response

Mime

data MimeResult res Source #

pair of decoded http body and http response

Constructors

MimeResult 

Fields

Instances

Functor MimeResult Source # 

Methods

fmap :: (a -> b) -> MimeResult a -> MimeResult b #

(<$) :: a -> MimeResult b -> MimeResult a #

Foldable MimeResult Source # 

Methods

fold :: Monoid m => MimeResult m -> m #

foldMap :: Monoid m => (a -> m) -> MimeResult a -> m #

foldr :: (a -> b -> b) -> b -> MimeResult a -> b #

foldr' :: (a -> b -> b) -> b -> MimeResult a -> b #

foldl :: (b -> a -> b) -> b -> MimeResult a -> b #

foldl' :: (b -> a -> b) -> b -> MimeResult a -> b #

foldr1 :: (a -> a -> a) -> MimeResult a -> a #

foldl1 :: (a -> a -> a) -> MimeResult a -> a #

toList :: MimeResult a -> [a] #

null :: MimeResult a -> Bool #

length :: MimeResult a -> Int #

elem :: Eq a => a -> MimeResult a -> Bool #

maximum :: Ord a => MimeResult a -> a #

minimum :: Ord a => MimeResult a -> a #

sum :: Num a => MimeResult a -> a #

product :: Num a => MimeResult a -> a #

Traversable MimeResult Source # 

Methods

traverse :: Applicative f => (a -> f b) -> MimeResult a -> f (MimeResult b) #

sequenceA :: Applicative f => MimeResult (f a) -> f (MimeResult a) #

mapM :: Monad m => (a -> m b) -> MimeResult a -> m (MimeResult b) #

sequence :: Monad m => MimeResult (m a) -> m (MimeResult a) #

Show res => Show (MimeResult res) Source # 

Methods

showsPrec :: Int -> MimeResult res -> ShowS #

show :: MimeResult res -> String #

showList :: [MimeResult res] -> ShowS #

data MimeError Source #

pair of unrender/parser error and http response

Constructors

MimeError 

Fields

Instances

dispatchMime Source #

Arguments

:: (Produces req accept, MimeUnrender accept res, MimeType contentType) 
=> Manager

http-client Connection manager

-> OpenAPIPetstoreConfig

config

-> OpenAPIPetstoreRequest req contentType res accept

request

-> IO (MimeResult res)

response

send a request returning the MimeResult

dispatchMime' Source #

Arguments

:: (Produces req accept, MimeUnrender accept res, MimeType contentType) 
=> Manager

http-client Connection manager

-> OpenAPIPetstoreConfig

config

-> OpenAPIPetstoreRequest req contentType res accept

request

-> IO (Either MimeError res)

response

like dispatchMime, but only returns the decoded http body

Unsafe

dispatchLbsUnsafe Source #

Arguments

:: (MimeType accept, MimeType contentType) 
=> Manager

http-client Connection manager

-> OpenAPIPetstoreConfig

config

-> OpenAPIPetstoreRequest req contentType res accept

request

-> IO (Response ByteString)

response

like dispatchReqLbs, but does not validate the operation is a Producer of the "accept" MimeType. (Useful if the server's response is undocumented)

dispatchInitUnsafe Source #

Arguments

:: Manager

http-client Connection manager

-> OpenAPIPetstoreConfig

config

-> InitRequest req contentType res accept

init request

-> IO (Response ByteString)

response

dispatch an InitRequest

InitRequest

newtype InitRequest req contentType res accept Source #

wraps an http-client Request with request/response type parameters

Constructors

InitRequest 

Fields

Instances

Show (InitRequest req contentType res accept) Source # 

Methods

showsPrec :: Int -> InitRequest req contentType res accept -> ShowS #

show :: InitRequest req contentType res accept -> String #

showList :: [InitRequest req contentType res accept] -> ShowS #

_toInitRequest Source #

Arguments

:: (MimeType accept, MimeType contentType) 
=> OpenAPIPetstoreConfig

config

-> OpenAPIPetstoreRequest req contentType res accept

request

-> IO (InitRequest req contentType res accept)

initialized request

Build an http-client Request record from the supplied config and request

modifyInitRequest :: InitRequest req contentType res accept -> (Request -> Request) -> InitRequest req contentType res accept Source #

modify the underlying Request

modifyInitRequestM :: Monad m => InitRequest req contentType res accept -> (Request -> m Request) -> m (InitRequest req contentType res accept) Source #

modify the underlying Request (monadic)

Logging

runConfigLog :: MonadIO m => OpenAPIPetstoreConfig -> LogExec m Source #

Run a block using the configured logger instance

runConfigLogWithExceptions :: (MonadCatch m, MonadIO m) => Text -> OpenAPIPetstoreConfig -> LogExec m Source #

Run a block using the configured logger instance (logs exceptions)

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Core.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Core.html new file mode 100644 index 00000000000..a4e0e80be4a --- /dev/null +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Core.html @@ -0,0 +1,4 @@ +OpenAPIPetstore.Core

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.Core

Contents

Description

 

Synopsis

OpenAPIPetstoreConfig

data OpenAPIPetstoreConfig Source #

Constructors

OpenAPIPetstoreConfig 

Fields

Instances

newConfig :: IO OpenAPIPetstoreConfig Source #

constructs a default OpenAPIPetstoreConfig

configHost:

http://petstore.swagger.io:80/v2

configUserAgent:

"openapi-petstore/0.1.0.0"

addAuthMethod :: AuthMethod auth => OpenAPIPetstoreConfig -> auth -> OpenAPIPetstoreConfig Source #

updates config use AuthMethod on matching requests

withStdoutLogging :: OpenAPIPetstoreConfig -> IO OpenAPIPetstoreConfig Source #

updates the config to use stdout logging

withStderrLogging :: OpenAPIPetstoreConfig -> IO OpenAPIPetstoreConfig Source #

updates the config to use stderr logging

withNoLogging :: OpenAPIPetstoreConfig -> OpenAPIPetstoreConfig Source #

updates the config to disable logging

OpenAPIPetstoreRequest

data OpenAPIPetstoreRequest req contentType res accept Source #

Represents a request.

Type Variables:

  • req - request operation
  • contentType - MimeType associated with request body
  • res - response model
  • accept - MimeType associated with response body

Constructors

OpenAPIPetstoreRequest 

Fields

Instances

Show (OpenAPIPetstoreRequest req contentType res accept) Source # 

Methods

showsPrec :: Int -> OpenAPIPetstoreRequest req contentType res accept -> ShowS #

show :: OpenAPIPetstoreRequest req contentType res accept -> String #

showList :: [OpenAPIPetstoreRequest req contentType res accept] -> ShowS #

rMethodL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) Method Source #

rMethod Lens

rUrlPathL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) [ByteString] Source #

rUrlPath Lens

rParamsL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) Params Source #

rParams Lens

rAuthTypesL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) [TypeRep] Source #

rParams Lens

HasBodyParam

class HasBodyParam req param where Source #

Designates the body parameter of a request

Methods

setBodyParam :: forall contentType res accept. (Consumes req contentType, MimeRender contentType param) => OpenAPIPetstoreRequest req contentType res accept -> param -> OpenAPIPetstoreRequest req contentType res accept Source #

Instances

HasBodyParam UpdateUser User Source #

Body Param User - Updated user object

Methods

setBodyParam :: (Consumes UpdateUser contentType, MimeRender contentType User) => OpenAPIPetstoreRequest UpdateUser contentType res accept -> User -> OpenAPIPetstoreRequest UpdateUser contentType res accept Source #

HasBodyParam CreateUsersWithListInput User2 Source #

Body Param User - List of user object

HasBodyParam CreateUsersWithArrayInput User2 Source #

Body Param User - List of user object

HasBodyParam CreateUser User Source #

Body Param User - Created user object

Methods

setBodyParam :: (Consumes CreateUser contentType, MimeRender contentType User) => OpenAPIPetstoreRequest CreateUser contentType res accept -> User -> OpenAPIPetstoreRequest CreateUser contentType res accept Source #

HasBodyParam PlaceOrder Order Source #

Body Param Order - order placed for purchasing the pet

Methods

setBodyParam :: (Consumes PlaceOrder contentType, MimeRender contentType Order) => OpenAPIPetstoreRequest PlaceOrder contentType res accept -> Order -> OpenAPIPetstoreRequest PlaceOrder contentType res accept Source #

HasBodyParam UpdatePet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes UpdatePet contentType, MimeRender contentType Pet) => OpenAPIPetstoreRequest UpdatePet contentType res accept -> Pet -> OpenAPIPetstoreRequest UpdatePet contentType res accept Source #

HasBodyParam AddPet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes AddPet contentType, MimeRender contentType Pet) => OpenAPIPetstoreRequest AddPet contentType res accept -> Pet -> OpenAPIPetstoreRequest AddPet contentType res accept Source #

HasBodyParam TestClassname Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClassname contentType, MimeRender contentType Client) => OpenAPIPetstoreRequest TestClassname contentType res accept -> Client -> OpenAPIPetstoreRequest TestClassname contentType res accept Source #

HasBodyParam TestInlineAdditionalProperties RequestBody Source #

Body Param "request_body" - request body

HasBodyParam TestClientModel Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClientModel contentType, MimeRender contentType Client) => OpenAPIPetstoreRequest TestClientModel contentType res accept -> Client -> OpenAPIPetstoreRequest TestClientModel contentType res accept Source #

HasBodyParam FakeOuterStringSerialize BodyText Source #

Body Param "body" - Input string as post body

HasBodyParam FakeOuterNumberSerialize Body Source #

Body Param "body" - Input number as post body

HasBodyParam FakeOuterCompositeSerialize OuterComposite Source #

Body Param OuterComposite - Input composite as post body

HasBodyParam FakeOuterBooleanSerialize BodyBool Source #

Body Param "body" - Input boolean as post body

HasBodyParam TestSpecialTags Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestSpecialTags contentType, MimeRender contentType Client) => OpenAPIPetstoreRequest TestSpecialTags contentType res accept -> Client -> OpenAPIPetstoreRequest TestSpecialTags contentType res accept Source #

HasOptionalParam

class HasOptionalParam req param where Source #

Designates the optional parameters of a request

Minimal complete definition

applyOptionalParam | (-&-)

Methods

applyOptionalParam :: OpenAPIPetstoreRequest req contentType res accept -> param -> OpenAPIPetstoreRequest req contentType res accept Source #

Apply an optional parameter to a request

(-&-) :: OpenAPIPetstoreRequest req contentType res accept -> param -> OpenAPIPetstoreRequest req contentType res accept infixl 2 Source #

infix operator / alias for addOptionalParam

Instances

HasOptionalParam UploadFile File Source #

Optional Param "file" - file to upload

Methods

applyOptionalParam :: OpenAPIPetstoreRequest UploadFile contentType res accept -> File -> OpenAPIPetstoreRequest UploadFile contentType res accept Source #

(-&-) :: OpenAPIPetstoreRequest UploadFile contentType res accept -> File -> OpenAPIPetstoreRequest UploadFile contentType res accept Source #

HasOptionalParam UploadFile AdditionalMetadata Source #

Optional Param "additionalMetadata" - Additional data to pass to server

HasOptionalParam UpdatePetWithForm StatusText Source #

Optional Param "status" - Updated status of the pet

HasOptionalParam UpdatePetWithForm Name2 Source #

Optional Param "name" - Updated name of the pet

HasOptionalParam DeletePet ApiKey Source # 

Methods

applyOptionalParam :: OpenAPIPetstoreRequest DeletePet contentType res accept -> ApiKey -> OpenAPIPetstoreRequest DeletePet contentType res accept Source #

(-&-) :: OpenAPIPetstoreRequest DeletePet contentType res accept -> ApiKey -> OpenAPIPetstoreRequest DeletePet contentType res accept Source #

HasOptionalParam TestEnumParameters EnumQueryStringArray Source #

Optional Param "enum_query_string_array" - Query parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumQueryString Source #

Optional Param "enum_query_string" - Query parameter enum test (string)

HasOptionalParam TestEnumParameters EnumQueryInteger Source #

Optional Param "enum_query_integer" - Query parameter enum test (double)

HasOptionalParam TestEnumParameters EnumQueryDouble Source #

Optional Param "enum_query_double" - Query parameter enum test (double)

HasOptionalParam TestEnumParameters EnumHeaderStringArray Source #

Optional Param "enum_header_string_array" - Header parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumHeaderString Source #

Optional Param "enum_header_string" - Header parameter enum test (string)

HasOptionalParam TestEnumParameters EnumFormStringArray Source #

Optional Param "enum_form_string_array" - Form parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumFormString Source #

Optional Param "enum_form_string" - Form parameter enum test (string)

HasOptionalParam TestEndpointParameters Password Source #

Optional Param "password" - None

HasOptionalParam TestEndpointParameters ParamString Source #

Optional Param "string" - None

HasOptionalParam TestEndpointParameters ParamInteger Source #

Optional Param "integer" - None

HasOptionalParam TestEndpointParameters ParamFloat Source #

Optional Param "float" - None

HasOptionalParam TestEndpointParameters ParamDateTime Source #

Optional Param "dateTime" - None

HasOptionalParam TestEndpointParameters ParamDate Source #

Optional Param "date" - None

HasOptionalParam TestEndpointParameters ParamBinary Source #

Optional Param "binary" - None

HasOptionalParam TestEndpointParameters Int64 Source #

Optional Param "int64" - None

HasOptionalParam TestEndpointParameters Int32 Source #

Optional Param "int32" - None

HasOptionalParam TestEndpointParameters Callback Source #

Optional Param "callback" - None

data Params Source #

Request Params

Constructors

Params 

Fields

Instances

paramsQueryL :: Lens_' Params Query Source #

paramsQuery Lens

paramsHeadersL :: Lens_' Params RequestHeaders Source #

paramsHeaders Lens

paramsBodyL :: Lens_' Params ParamBody Source #

paramsBody Lens

data ParamBody Source #

Request Body

Constructors

ParamBodyNone 
ParamBodyB ByteString 
ParamBodyBL ByteString 
ParamBodyFormUrlEncoded Form 
ParamBodyMultipartFormData [Part] 

Instances

OpenAPIPetstoreRequest Utils

_mkRequest Source #

Arguments

:: Method

Method

-> [ByteString]

Endpoint

-> OpenAPIPetstoreRequest req contentType res accept

req: Request Type, res: Response Type

_mkParams :: Params Source #

setHeader :: OpenAPIPetstoreRequest req contentType res accept -> [Header] -> OpenAPIPetstoreRequest req contentType res accept Source #

removeHeader :: OpenAPIPetstoreRequest req contentType res accept -> [HeaderName] -> OpenAPIPetstoreRequest req contentType res accept Source #

_setContentTypeHeader :: forall req contentType res accept. MimeType contentType => OpenAPIPetstoreRequest req contentType res accept -> OpenAPIPetstoreRequest req contentType res accept Source #

_setAcceptHeader :: forall req contentType res accept. MimeType accept => OpenAPIPetstoreRequest req contentType res accept -> OpenAPIPetstoreRequest req contentType res accept Source #

setQuery :: OpenAPIPetstoreRequest req contentType res accept -> [QueryItem] -> OpenAPIPetstoreRequest req contentType res accept Source #

addForm :: OpenAPIPetstoreRequest req contentType res accept -> Form -> OpenAPIPetstoreRequest req contentType res accept Source #

_addMultiFormPart :: OpenAPIPetstoreRequest req contentType res accept -> Part -> OpenAPIPetstoreRequest req contentType res accept Source #

_setBodyBS :: OpenAPIPetstoreRequest req contentType res accept -> ByteString -> OpenAPIPetstoreRequest req contentType res accept Source #

_setBodyLBS :: OpenAPIPetstoreRequest req contentType res accept -> ByteString -> OpenAPIPetstoreRequest req contentType res accept Source #

_hasAuthType :: AuthMethod authMethod => OpenAPIPetstoreRequest req contentType res accept -> Proxy authMethod -> OpenAPIPetstoreRequest req contentType res accept Source #

Params Utils

toPath :: ToHttpApiData a => a -> ByteString Source #

toHeader :: ToHttpApiData a => (HeaderName, a) -> [Header] Source #

toForm :: ToHttpApiData v => (ByteString, v) -> Form Source #

toQuery :: ToHttpApiData a => (ByteString, Maybe a) -> [QueryItem] Source #

OpenAPI CollectionFormat Utils

data CollectionFormat Source #

Determines the format of the array if type array is used.

Constructors

CommaSeparated

CSV format for multiple parameters.

SpaceSeparated

Also called SSV

TabSeparated

Also called TSV

PipeSeparated

`value1|value2|value2`

MultiParamArray

Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" (Query) or "formData" (Form)

toHeaderColl :: ToHttpApiData a => CollectionFormat -> (HeaderName, [a]) -> [Header] Source #

toFormColl :: ToHttpApiData v => CollectionFormat -> (ByteString, [v]) -> Form Source #

toQueryColl :: ToHttpApiData a => CollectionFormat -> (ByteString, Maybe [a]) -> Query Source #

_toColl :: Traversable f => CollectionFormat -> (f a -> [(b, ByteString)]) -> f [a] -> [(b, ByteString)] Source #

_toCollA :: (Traversable f, Traversable t, Alternative t) => CollectionFormat -> (f (t a) -> [(b, t ByteString)]) -> f (t [a]) -> [(b, t ByteString)] Source #

_toCollA' :: (Monoid c, Traversable f, Traversable t, Alternative t) => CollectionFormat -> (f (t a) -> [(b, t c)]) -> (Char -> c) -> f (t [a]) -> [(b, t c)] Source #

AuthMethods

class Typeable a => AuthMethod a where Source #

Provides a method to apply auth methods to requests

Minimal complete definition

applyAuthMethod

Methods

applyAuthMethod :: OpenAPIPetstoreConfig -> a -> OpenAPIPetstoreRequest req contentType res accept -> IO (OpenAPIPetstoreRequest req contentType res accept) Source #

Instances

data AnyAuthMethod Source #

An existential wrapper for any AuthMethod

Constructors

AuthMethod a => AnyAuthMethod a 

Instances

AuthMethod AnyAuthMethod Source # 

Methods

applyAuthMethod :: OpenAPIPetstoreConfig -> AnyAuthMethod -> OpenAPIPetstoreRequest req contentType res accept -> IO (OpenAPIPetstoreRequest req contentType res accept) Source #

data AuthMethodException Source #

indicates exceptions related to AuthMethods

Constructors

AuthMethodException String 

Instances

_applyAuthMethods :: OpenAPIPetstoreRequest req contentType res accept -> OpenAPIPetstoreConfig -> IO (OpenAPIPetstoreRequest req contentType res accept) Source #

apply all matching AuthMethods in config to request

Utils

_omitNulls :: [(Text, Value)] -> Value Source #

Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)

_toFormItem :: (ToHttpApiData a, Functor f) => t -> f a -> f (t, [Text]) Source #

Encodes fields using WH.toQueryParam

_emptyToNothing :: Maybe String -> Maybe String Source #

Collapse (Just "") to Nothing

_memptyToNothing :: (Monoid a, Eq a) => Maybe a -> Maybe a Source #

Collapse (Just mempty) to Nothing

DateTime Formatting

newtype DateTime Source #

Constructors

DateTime 

Fields

Instances

Eq DateTime Source # 
Data DateTime Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> DateTime -> c DateTime #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c DateTime #

toConstr :: DateTime -> Constr #

dataTypeOf :: DateTime -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c DateTime) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c DateTime) #

gmapT :: (forall b. Data b => b -> b) -> DateTime -> DateTime #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> DateTime -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> DateTime -> r #

gmapQ :: (forall d. Data d => d -> u) -> DateTime -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> DateTime -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> DateTime -> m DateTime #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> DateTime -> m DateTime #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> DateTime -> m DateTime #

Ord DateTime Source # 
Show DateTime Source # 
ToJSON DateTime Source # 
FromJSON DateTime Source # 
NFData DateTime Source # 

Methods

rnf :: DateTime -> () #

ToHttpApiData DateTime Source # 
FromHttpApiData DateTime Source # 
FormatTime DateTime Source # 
ParseTime DateTime Source # 
MimeRender MimeMultipartFormData DateTime Source # 

_readDateTime :: (ParseTime t, Monad m, Alternative m) => String -> m t Source #

_parseISO8601

_showDateTime :: (t ~ UTCTime, FormatTime t) => t -> String Source #

TI.formatISO8601Millis

_parseISO8601 :: (ParseTime t, Monad m, Alternative m) => String -> m t Source #

parse an ISO8601 date-time string

Date Formatting

newtype Date Source #

Constructors

Date 

Fields

Instances

Enum Date Source # 

Methods

succ :: Date -> Date #

pred :: Date -> Date #

toEnum :: Int -> Date #

fromEnum :: Date -> Int #

enumFrom :: Date -> [Date] #

enumFromThen :: Date -> Date -> [Date] #

enumFromTo :: Date -> Date -> [Date] #

enumFromThenTo :: Date -> Date -> Date -> [Date] #

Eq Date Source # 

Methods

(==) :: Date -> Date -> Bool #

(/=) :: Date -> Date -> Bool #

Data Date Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Date -> c Date #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Date #

toConstr :: Date -> Constr #

dataTypeOf :: Date -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c Date) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Date) #

gmapT :: (forall b. Data b => b -> b) -> Date -> Date #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Date -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Date -> r #

gmapQ :: (forall d. Data d => d -> u) -> Date -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> Date -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Date -> m Date #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Date -> m Date #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Date -> m Date #

Ord Date Source # 

Methods

compare :: Date -> Date -> Ordering #

(<) :: Date -> Date -> Bool #

(<=) :: Date -> Date -> Bool #

(>) :: Date -> Date -> Bool #

(>=) :: Date -> Date -> Bool #

max :: Date -> Date -> Date #

min :: Date -> Date -> Date #

Show Date Source # 

Methods

showsPrec :: Int -> Date -> ShowS #

show :: Date -> String #

showList :: [Date] -> ShowS #

Ix Date Source # 

Methods

range :: (Date, Date) -> [Date] #

index :: (Date, Date) -> Date -> Int #

unsafeIndex :: (Date, Date) -> Date -> Int

inRange :: (Date, Date) -> Date -> Bool #

rangeSize :: (Date, Date) -> Int #

unsafeRangeSize :: (Date, Date) -> Int

ToJSON Date Source # 
FromJSON Date Source # 
NFData Date Source # 

Methods

rnf :: Date -> () #

ToHttpApiData Date Source # 
FromHttpApiData Date Source # 
FormatTime Date Source # 
ParseTime Date Source # 

Methods

buildTime :: TimeLocale -> [(Char, String)] -> Maybe Date #

MimeRender MimeMultipartFormData Date Source # 

_readDate :: (ParseTime t, Monad m) => String -> m t Source #

TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"

_showDate :: FormatTime t => t -> String Source #

TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"

Byte/Binary Formatting

newtype ByteArray Source #

base64 encoded characters

Constructors

ByteArray 

Fields

Instances

Eq ByteArray Source # 
Data ByteArray Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ByteArray -> c ByteArray #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c ByteArray #

toConstr :: ByteArray -> Constr #

dataTypeOf :: ByteArray -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c ByteArray) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ByteArray) #

gmapT :: (forall b. Data b => b -> b) -> ByteArray -> ByteArray #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ByteArray -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ByteArray -> r #

gmapQ :: (forall d. Data d => d -> u) -> ByteArray -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> ByteArray -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> ByteArray -> m ByteArray #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ByteArray -> m ByteArray #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ByteArray -> m ByteArray #

Ord ByteArray Source # 
Show ByteArray Source # 
ToJSON ByteArray Source # 
FromJSON ByteArray Source # 
NFData ByteArray Source # 

Methods

rnf :: ByteArray -> () #

ToHttpApiData ByteArray Source # 
FromHttpApiData ByteArray Source # 
MimeRender MimeMultipartFormData ByteArray Source # 

_readByteArray :: Monad m => Text -> m ByteArray Source #

read base64 encoded characters

_showByteArray :: ByteArray -> Text Source #

show base64 encoded characters

newtype Binary Source #

any sequence of octets

Constructors

Binary 

Fields

Instances

Eq Binary Source # 

Methods

(==) :: Binary -> Binary -> Bool #

(/=) :: Binary -> Binary -> Bool #

Data Binary Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Binary -> c Binary #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Binary #

toConstr :: Binary -> Constr #

dataTypeOf :: Binary -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c Binary) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Binary) #

gmapT :: (forall b. Data b => b -> b) -> Binary -> Binary #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Binary -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Binary -> r #

gmapQ :: (forall d. Data d => d -> u) -> Binary -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> Binary -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Binary -> m Binary #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Binary -> m Binary #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Binary -> m Binary #

Ord Binary Source # 
Show Binary Source # 
ToJSON Binary Source # 
FromJSON Binary Source # 
NFData Binary Source # 

Methods

rnf :: Binary -> () #

ToHttpApiData Binary Source # 
FromHttpApiData Binary Source # 
MimeRender MimeMultipartFormData Binary Source # 

_readBinaryBase64 :: Monad m => Text -> m Binary Source #

_showBinaryBase64 :: Binary -> Text Source #

Lens Type Aliases

type Lens_' s a = Lens_ s s a a Source #

type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t Source #

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Logging.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Logging.html similarity index 71% rename from samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Logging.html rename to samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Logging.html index 19084517be1..fcdba375426 100644 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Logging.html +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Logging.html @@ -1,4 +1,4 @@ -SwaggerPetstore.Logging

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.Logging

Contents

Description

Katip Logging functions

Synopsis

Type Aliases (for compatibility)

type LogExecWithContext = forall m. MonadIO m => LogContext -> LogExec m Source #

Runs a Katip logging block with the Log environment

type LogExec m = forall a. KatipT m a -> m a Source #

A Katip logging block

type LogContext = LogEnv Source #

A Katip Log environment

type LogLevel = Severity Source #

A Katip Log severity

default logger

initLogContext :: IO LogContext Source #

the default log environment

runDefaultLogExecWithContext :: LogExecWithContext Source #

Runs a Katip logging block with the Log environment

stdout logger

stdoutLoggingExec :: LogExecWithContext Source #

Runs a Katip logging block with the Log environment

stdoutLoggingContext :: LogContext -> IO LogContext Source #

A Katip Log environment which targets stdout

stderr logger

stderrLoggingExec :: LogExecWithContext Source #

Runs a Katip logging block with the Log environment

stderrLoggingContext :: LogContext -> IO LogContext Source #

A Katip Log environment which targets stderr

Null logger

runNullLogExec :: LogExecWithContext Source #

Disables Katip logging

Log Msg

_log :: (Applicative m, Katip m) => Text -> LogLevel -> Text -> m () Source #

Log a katip message

Log Exceptions

logExceptions :: (Katip m, MonadCatch m, Applicative m) => Text -> m a -> m a Source #

re-throws exceptions after logging them

Log Level

levelInfo :: LogLevel Source #

levelError :: LogLevel Source #

levelDebug :: LogLevel Source #

\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.Logging

Contents

Description

Katip Logging functions

Synopsis

Type Aliases (for compatibility)

type LogExecWithContext = forall m. MonadIO m => LogContext -> LogExec m Source #

Runs a Katip logging block with the Log environment

type LogExec m = forall a. KatipT m a -> m a Source #

A Katip logging block

type LogContext = LogEnv Source #

A Katip Log environment

type LogLevel = Severity Source #

A Katip Log severity

default logger

initLogContext :: IO LogContext Source #

the default log environment

runDefaultLogExecWithContext :: LogExecWithContext Source #

Runs a Katip logging block with the Log environment

stdout logger

stdoutLoggingExec :: LogExecWithContext Source #

Runs a Katip logging block with the Log environment

stdoutLoggingContext :: LogContext -> IO LogContext Source #

A Katip Log environment which targets stdout

stderr logger

stderrLoggingExec :: LogExecWithContext Source #

Runs a Katip logging block with the Log environment

stderrLoggingContext :: LogContext -> IO LogContext Source #

A Katip Log environment which targets stderr

Null logger

runNullLogExec :: LogExecWithContext Source #

Disables Katip logging

Log Msg

_log :: (Applicative m, Katip m) => Text -> LogLevel -> Text -> m () Source #

Log a katip message

Log Exceptions

logExceptions :: (Katip m, MonadCatch m, Applicative m) => Text -> m a -> m a Source #

re-throws exceptions after logging them

Log Level

levelInfo :: LogLevel Source #

levelError :: LogLevel Source #

levelDebug :: LogLevel Source #

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-MimeTypes.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-MimeTypes.html new file mode 100644 index 00000000000..c4918b19e20 --- /dev/null +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-MimeTypes.html @@ -0,0 +1,4 @@ +OpenAPIPetstore.MimeTypes

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.MimeTypes

Contents

Description

 

Synopsis

ContentType MimeType

data ContentType a Source #

Constructors

MimeType a => ContentType 

Fields

Accept MimeType

data Accept a Source #

Constructors

MimeType a => Accept 

Fields

Consumes Class

class MimeType mtype => Consumes req mtype Source #

Instances

Produces Class

class MimeType mtype => Produces req mtype Source #

Instances

Produces UpdateUser MimeNoContent Source # 
Produces LogoutUser MimeNoContent Source # 
Produces LoginUser MimeXML Source #
application/xml
Produces LoginUser MimeJSON Source #
application/json
Produces GetUserByName MimeXML Source #
application/xml
Produces GetUserByName MimeJSON Source #
application/json
Produces DeleteUser MimeNoContent Source # 
Produces CreateUsersWithListInput MimeNoContent Source # 
Produces CreateUsersWithArrayInput MimeNoContent Source # 
Produces CreateUser MimeNoContent Source # 
Produces PlaceOrder MimeXML Source #
application/xml
Produces PlaceOrder MimeJSON Source #
application/json
Produces GetOrderById MimeXML Source #
application/xml
Produces GetOrderById MimeJSON Source #
application/json
Produces GetInventory MimeJSON Source #
application/json
Produces DeleteOrder MimeNoContent Source # 
Produces UploadFile MimeJSON Source #
application/json
Produces UpdatePetWithForm MimeNoContent Source # 
Produces UpdatePet MimeNoContent Source # 
Produces GetPetById MimeXML Source #
application/xml
Produces GetPetById MimeJSON Source #
application/json
Produces FindPetsByTags MimeXML Source #
application/xml
Produces FindPetsByTags MimeJSON Source #
application/json
Produces FindPetsByStatus MimeXML Source #
application/xml
Produces FindPetsByStatus MimeJSON Source #
application/json
Produces DeletePet MimeNoContent Source # 
Produces AddPet MimeNoContent Source # 
Produces TestClassname MimeJSON Source #
application/json
Produces TestJsonFormData MimeNoContent Source # 
Produces TestInlineAdditionalProperties MimeNoContent Source # 
Produces TestEnumParameters MimeNoContent Source # 
Produces TestEndpointParameters MimeNoContent Source # 
Produces TestClientModel MimeJSON Source #
application/json
MimeType mtype => Produces FakeOuterStringSerialize mtype Source #
*/*
MimeType mtype => Produces FakeOuterNumberSerialize mtype Source #
*/*
MimeType mtype => Produces FakeOuterCompositeSerialize mtype Source #
*/*
MimeType mtype => Produces FakeOuterBooleanSerialize mtype Source #
*/*
Produces TestSpecialTags MimeJSON Source #
application/json

Default Mime Types

data MimeJSON Source #

Constructors

MimeJSON 

Instances

MimeType MimeJSON Source #
application/json; charset=utf-8
FromJSON a => MimeUnrender MimeJSON a Source #
A.eitherDecode
ToJSON a => MimeRender MimeJSON a Source #

encode

Produces LoginUser MimeJSON Source #
application/json
Produces GetUserByName MimeJSON Source #
application/json
Produces PlaceOrder MimeJSON Source #
application/json
Produces GetOrderById MimeJSON Source #
application/json
Produces GetInventory MimeJSON Source #
application/json
Produces UploadFile MimeJSON Source #
application/json
Produces GetPetById MimeJSON Source #
application/json
Produces FindPetsByTags MimeJSON Source #
application/json
Produces FindPetsByStatus MimeJSON Source #
application/json
Produces TestClassname MimeJSON Source #
application/json
Produces TestClientModel MimeJSON Source #
application/json
Produces TestSpecialTags MimeJSON Source #
application/json
Consumes UpdateUser MimeJSON Source #
application/json
Consumes CreateUsersWithListInput MimeJSON Source #
application/json
Consumes CreateUsersWithArrayInput MimeJSON Source #
application/json
Consumes CreateUser MimeJSON Source #
application/json
Consumes PlaceOrder MimeJSON Source #
application/json
Consumes UpdatePet MimeJSON Source #
application/json
Consumes AddPet MimeJSON Source #
application/json
Consumes TestClassname MimeJSON Source #
application/json
Consumes TestInlineAdditionalProperties MimeJSON Source #
application/json
Consumes TestClientModel MimeJSON Source #
application/json
Consumes FakeOuterStringSerialize MimeJSON Source #
application/json
Consumes FakeOuterNumberSerialize MimeJSON Source #
application/json
Consumes FakeOuterCompositeSerialize MimeJSON Source #
application/json
Consumes FakeOuterBooleanSerialize MimeJSON Source #
application/json
Consumes TestSpecialTags MimeJSON Source #
application/json

data MimeXML Source #

Constructors

MimeXML 

Instances

data MimePlainText Source #

Constructors

MimePlainText 

Instances

MimeType MimePlainText Source #
text/plain; charset=utf-8
MimeUnrender MimePlainText ByteString Source #
P.Right . P.id
MimeUnrender MimePlainText String Source #
P.Right . BCL.unpack
MimeUnrender MimePlainText Text Source #
P.left P.show . TL.decodeUtf8'
MimeRender MimePlainText ByteString Source #
P.id
MimeRender MimePlainText String Source #
BCL.pack
MimeRender MimePlainText Text Source #
BL.fromStrict . T.encodeUtf8

data MimeFormUrlEncoded Source #

Constructors

MimeFormUrlEncoded 

Instances

data MimeMultipartFormData Source #

Constructors

MimeMultipartFormData 

Instances

MimeType MimeMultipartFormData Source #
multipart/form-data
MimeRender MimeMultipartFormData Bool Source # 
MimeRender MimeMultipartFormData Char Source # 
MimeRender MimeMultipartFormData Double Source # 
MimeRender MimeMultipartFormData Float Source # 
MimeRender MimeMultipartFormData Int Source # 
MimeRender MimeMultipartFormData Integer Source # 
MimeRender MimeMultipartFormData ByteString Source # 
MimeRender MimeMultipartFormData String Source # 
MimeRender MimeMultipartFormData Text Source # 
MimeRender MimeMultipartFormData Binary Source # 
MimeRender MimeMultipartFormData ByteArray Source # 
MimeRender MimeMultipartFormData Date Source # 
MimeRender MimeMultipartFormData DateTime Source # 
MimeRender MimeMultipartFormData OuterEnum Source # 
MimeRender MimeMultipartFormData EnumClass Source # 
MimeRender MimeMultipartFormData E'Status2 Source # 
MimeRender MimeMultipartFormData E'Status Source # 
MimeRender MimeMultipartFormData E'JustSymbol Source # 
MimeRender MimeMultipartFormData E'Inner Source # 
MimeRender MimeMultipartFormData E'EnumString Source # 
MimeRender MimeMultipartFormData E'EnumQueryInteger Source # 
MimeRender MimeMultipartFormData E'EnumNumber Source # 
MimeRender MimeMultipartFormData E'EnumInteger Source # 
MimeRender MimeMultipartFormData E'EnumFormStringArray Source # 
MimeRender MimeMultipartFormData E'EnumFormString Source # 
MimeRender MimeMultipartFormData E'ArrayEnum Source # 
Consumes UploadFile MimeMultipartFormData Source #
multipart/form-data

data MimeOctetStream Source #

Constructors

MimeOctetStream 

Instances

MimeType MimeOctetStream Source #
application/octet-stream
MimeUnrender MimeOctetStream ByteString Source #
P.Right . P.id
MimeUnrender MimeOctetStream String Source #
P.Right . BCL.unpack
MimeUnrender MimeOctetStream Text Source #
P.left P.show . T.decodeUtf8' . BL.toStrict
MimeRender MimeOctetStream ByteString Source #
P.id
MimeRender MimeOctetStream String Source #
BCL.pack
MimeRender MimeOctetStream Text Source #
BL.fromStrict . T.encodeUtf8

data MimeNoContent Source #

Constructors

MimeNoContent 

Instances

data MimeAny Source #

Constructors

MimeAny 

Instances

data NoContent Source #

A type for responses without content-body.

Constructors

NoContent 

Instances

MimeType Class

class Typeable mtype => MimeType mtype where Source #

Minimal complete definition

mimeType | mimeTypes

Methods

mimeTypes :: Proxy mtype -> [MediaType] Source #

mimeType :: Proxy mtype -> Maybe MediaType Source #

mimeType' :: mtype -> Maybe MediaType Source #

mimeTypes' :: mtype -> [MediaType] Source #

Instances

MimeType MimeAny Source #
"*/*"
MimeType MimeNoContent Source # 
MimeType MimeOctetStream Source #
application/octet-stream
MimeType MimeMultipartFormData Source #
multipart/form-data
MimeType MimeFormUrlEncoded Source #
application/x-www-form-urlencoded
MimeType MimePlainText Source #
text/plain; charset=utf-8
MimeType MimeXML Source #
application/xml; charset=utf-8
MimeType MimeJSON Source #
application/json; charset=utf-8

MimeRender Class

class MimeType mtype => MimeRender mtype x where Source #

Minimal complete definition

mimeRender

Methods

mimeRender :: Proxy mtype -> x -> ByteString Source #

mimeRender' :: mtype -> x -> ByteString Source #

Instances

MimeRender MimeNoContent NoContent Source #
P.Right . P.const NoContent
MimeRender MimeOctetStream ByteString Source #
P.id
MimeRender MimeOctetStream String Source #
BCL.pack
MimeRender MimeOctetStream Text Source #
BL.fromStrict . T.encodeUtf8
MimeRender MimeMultipartFormData Bool Source # 
MimeRender MimeMultipartFormData Char Source # 
MimeRender MimeMultipartFormData Double Source # 
MimeRender MimeMultipartFormData Float Source # 
MimeRender MimeMultipartFormData Int Source # 
MimeRender MimeMultipartFormData Integer Source # 
MimeRender MimeMultipartFormData ByteString Source # 
MimeRender MimeMultipartFormData String Source # 
MimeRender MimeMultipartFormData Text Source # 
MimeRender MimeMultipartFormData Binary Source # 
MimeRender MimeMultipartFormData ByteArray Source # 
MimeRender MimeMultipartFormData Date Source # 
MimeRender MimeMultipartFormData DateTime Source # 
MimeRender MimeMultipartFormData OuterEnum Source # 
MimeRender MimeMultipartFormData EnumClass Source # 
MimeRender MimeMultipartFormData E'Status2 Source # 
MimeRender MimeMultipartFormData E'Status Source # 
MimeRender MimeMultipartFormData E'JustSymbol Source # 
MimeRender MimeMultipartFormData E'Inner Source # 
MimeRender MimeMultipartFormData E'EnumString Source # 
MimeRender MimeMultipartFormData E'EnumQueryInteger Source # 
MimeRender MimeMultipartFormData E'EnumNumber Source # 
MimeRender MimeMultipartFormData E'EnumInteger Source # 
MimeRender MimeMultipartFormData E'EnumFormStringArray Source # 
MimeRender MimeMultipartFormData E'EnumFormString Source # 
MimeRender MimeMultipartFormData E'ArrayEnum Source # 
ToForm a => MimeRender MimeFormUrlEncoded a Source #
WH.urlEncodeAsForm
MimeRender MimePlainText ByteString Source #
P.id
MimeRender MimePlainText String Source #
BCL.pack
MimeRender MimePlainText Text Source #
BL.fromStrict . T.encodeUtf8
ToJSON a => MimeRender MimeJSON a Source #

encode

mimeRenderDefaultMultipartFormData :: ToHttpApiData a => a -> ByteString Source #

MimeUnrender Class

class MimeType mtype => MimeUnrender mtype o where Source #

Minimal complete definition

mimeUnrender

Methods

mimeUnrender :: Proxy mtype -> ByteString -> Either String o Source #

mimeUnrender' :: mtype -> ByteString -> Either String o Source #

Instances

MimeUnrender MimeNoContent NoContent Source #
P.Right . P.const NoContent
MimeUnrender MimeOctetStream ByteString Source #
P.Right . P.id
MimeUnrender MimeOctetStream String Source #
P.Right . BCL.unpack
MimeUnrender MimeOctetStream Text Source #
P.left P.show . T.decodeUtf8' . BL.toStrict
FromForm a => MimeUnrender MimeFormUrlEncoded a Source #
P.left T.unpack . WH.urlDecodeAsForm
MimeUnrender MimePlainText ByteString Source #
P.Right . P.id
MimeUnrender MimePlainText String Source #
P.Right . BCL.unpack
MimeUnrender MimePlainText Text Source #
P.left P.show . TL.decodeUtf8'
FromJSON a => MimeUnrender MimeJSON a Source #
A.eitherDecode
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Model.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Model.html new file mode 100644 index 00000000000..7bb3dd605f4 --- /dev/null +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-Model.html @@ -0,0 +1,11 @@ +OpenAPIPetstore.Model

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.Model

Contents

Description

 

Synopsis

Parameter newtypes

AdditionalMetadata

newtype AdditionalMetadata Source #

Constructors

AdditionalMetadata 

Fields

Instances

ApiKey

newtype ApiKey Source #

Constructors

ApiKey 

Fields

Instances

Body

newtype Body Source #

Constructors

Body 

Fields

Instances

Eq Body Source # 

Methods

(==) :: Body -> Body -> Bool #

(/=) :: Body -> Body -> Bool #

Show Body Source # 

Methods

showsPrec :: Int -> Body -> ShowS #

show :: Body -> String #

showList :: [Body] -> ShowS #

ToJSON Body Source # 
HasBodyParam FakeOuterNumberSerialize Body Source #

Body Param "body" - Input number as post body

BodyBool

newtype BodyBool Source #

Constructors

BodyBool 

Fields

Instances

BodyText

newtype BodyText Source #

Constructors

BodyText 

Fields

Instances

Byte

newtype Byte Source #

Constructors

Byte 

Fields

Instances

Eq Byte Source # 

Methods

(==) :: Byte -> Byte -> Bool #

(/=) :: Byte -> Byte -> Bool #

Show Byte Source # 

Methods

showsPrec :: Int -> Byte -> ShowS #

show :: Byte -> String #

showList :: [Byte] -> ShowS #

Callback

newtype Callback Source #

Constructors

Callback 

Fields

Instances

EnumFormString

newtype EnumFormString Source #

Constructors

EnumFormString 

Fields

Instances

EnumFormStringArray

newtype EnumFormStringArray Source #

Constructors

EnumFormStringArray 

Fields

Instances

EnumHeaderString

newtype EnumHeaderString Source #

Constructors

EnumHeaderString 

Fields

Instances

EnumHeaderStringArray

newtype EnumHeaderStringArray Source #

Constructors

EnumHeaderStringArray 

Fields

Instances

EnumQueryDouble

newtype EnumQueryDouble Source #

Constructors

EnumQueryDouble 

Fields

Instances

EnumQueryInteger

newtype EnumQueryInteger Source #

Constructors

EnumQueryInteger 

Fields

Instances

EnumQueryString

newtype EnumQueryString Source #

Constructors

EnumQueryString 

Fields

Instances

EnumQueryStringArray

newtype EnumQueryStringArray Source #

Constructors

EnumQueryStringArray 

Fields

Instances

File

newtype File Source #

Constructors

File 

Fields

Instances

Eq File Source # 

Methods

(==) :: File -> File -> Bool #

(/=) :: File -> File -> Bool #

Show File Source # 

Methods

showsPrec :: Int -> File -> ShowS #

show :: File -> String #

showList :: [File] -> ShowS #

HasOptionalParam UploadFile File Source #

Optional Param "file" - file to upload

Methods

applyOptionalParam :: OpenAPIPetstoreRequest UploadFile contentType res accept -> File -> OpenAPIPetstoreRequest UploadFile contentType res accept Source #

(-&-) :: OpenAPIPetstoreRequest UploadFile contentType res accept -> File -> OpenAPIPetstoreRequest UploadFile contentType res accept Source #

Int32

newtype Int32 Source #

Constructors

Int32 

Fields

Instances

Int64

newtype Int64 Source #

Constructors

Int64 

Fields

Instances

Name2

newtype Name2 Source #

Constructors

Name2 

Fields

Instances

Eq Name2 Source # 

Methods

(==) :: Name2 -> Name2 -> Bool #

(/=) :: Name2 -> Name2 -> Bool #

Show Name2 Source # 

Methods

showsPrec :: Int -> Name2 -> ShowS #

show :: Name2 -> String #

showList :: [Name2] -> ShowS #

HasOptionalParam UpdatePetWithForm Name2 Source #

Optional Param "name" - Updated name of the pet

Number

newtype Number Source #

Constructors

Number 

Fields

Instances

OrderId

newtype OrderId Source #

Constructors

OrderId 

Fields

Instances

OrderIdText

newtype OrderIdText Source #

Constructors

OrderIdText 

Fields

Instances

Param

newtype Param Source #

Constructors

Param 

Fields

Instances

Eq Param Source # 

Methods

(==) :: Param -> Param -> Bool #

(/=) :: Param -> Param -> Bool #

Show Param Source # 

Methods

showsPrec :: Int -> Param -> ShowS #

show :: Param -> String #

showList :: [Param] -> ShowS #

Param2

newtype Param2 Source #

Constructors

Param2 

Fields

Instances

ParamBinary

newtype ParamBinary Source #

Constructors

ParamBinary 

Fields

Instances

ParamDate

newtype ParamDate Source #

Constructors

ParamDate 

Fields

Instances

ParamDateTime

newtype ParamDateTime Source #

Constructors

ParamDateTime 

Fields

Instances

ParamDouble

newtype ParamDouble Source #

Constructors

ParamDouble 

Fields

Instances

ParamFloat

newtype ParamFloat Source #

Constructors

ParamFloat 

Fields

Instances

ParamInteger

newtype ParamInteger Source #

Constructors

ParamInteger 

Fields

Instances

ParamString

newtype ParamString Source #

Constructors

ParamString 

Fields

Instances

Password

newtype Password Source #

Constructors

Password 

Fields

Instances

PatternWithoutDelimiter

newtype PatternWithoutDelimiter Source #

Constructors

PatternWithoutDelimiter 

Fields

Instances

PetId

newtype PetId Source #

Constructors

PetId 

Fields

Instances

Eq PetId Source # 

Methods

(==) :: PetId -> PetId -> Bool #

(/=) :: PetId -> PetId -> Bool #

Show PetId Source # 

Methods

showsPrec :: Int -> PetId -> ShowS #

show :: PetId -> String #

showList :: [PetId] -> ShowS #

RequestBody

newtype RequestBody Source #

Constructors

RequestBody 

Fields

Instances

Status

newtype Status Source #

Constructors

Status 

Fields

Instances

StatusText

newtype StatusText Source #

Constructors

StatusText 

Fields

Instances

Tags

newtype Tags Source #

Constructors

Tags 

Fields

Instances

Eq Tags Source # 

Methods

(==) :: Tags -> Tags -> Bool #

(/=) :: Tags -> Tags -> Bool #

Show Tags Source # 

Methods

showsPrec :: Int -> Tags -> ShowS #

show :: Tags -> String #

showList :: [Tags] -> ShowS #

User2

newtype User2 Source #

Constructors

User2 

Fields

Instances

Username

newtype Username Source #

Constructors

Username 

Fields

Instances

Models

AdditionalPropertiesClass

data AdditionalPropertiesClass Source #

AdditionalPropertiesClass

Constructors

AdditionalPropertiesClass 

Fields

Instances

mkAdditionalPropertiesClass :: AdditionalPropertiesClass Source #

Construct a value of type AdditionalPropertiesClass (by applying it's required fields, if any)

Animal

data Animal Source #

Animal

Constructors

Animal 

Fields

Instances

mkAnimal Source #

Arguments

:: Text

animalClassName

-> Animal 

Construct a value of type Animal (by applying it's required fields, if any)

AnimalFarm

data AnimalFarm Source #

AnimalFarm

Constructors

AnimalFarm 

Instances

mkAnimalFarm :: AnimalFarm Source #

Construct a value of type AnimalFarm (by applying it's required fields, if any)

ApiResponse

data ApiResponse Source #

ApiResponse

Constructors

ApiResponse 

Fields

Instances

mkApiResponse :: ApiResponse Source #

Construct a value of type ApiResponse (by applying it's required fields, if any)

ArrayOfArrayOfNumberOnly

data ArrayOfArrayOfNumberOnly Source #

ArrayOfArrayOfNumberOnly

Constructors

ArrayOfArrayOfNumberOnly 

Fields

Instances

mkArrayOfArrayOfNumberOnly :: ArrayOfArrayOfNumberOnly Source #

Construct a value of type ArrayOfArrayOfNumberOnly (by applying it's required fields, if any)

ArrayOfNumberOnly

data ArrayOfNumberOnly Source #

ArrayOfNumberOnly

Constructors

ArrayOfNumberOnly 

Fields

Instances

mkArrayOfNumberOnly :: ArrayOfNumberOnly Source #

Construct a value of type ArrayOfNumberOnly (by applying it's required fields, if any)

ArrayTest

data ArrayTest Source #

ArrayTest

Constructors

ArrayTest 

Fields

Instances

mkArrayTest :: ArrayTest Source #

Construct a value of type ArrayTest (by applying it's required fields, if any)

Capitalization

data Capitalization Source #

Capitalization

Constructors

Capitalization 

Fields

Instances

mkCapitalization :: Capitalization Source #

Construct a value of type Capitalization (by applying it's required fields, if any)

Cat

data Cat Source #

Cat

Constructors

Cat 

Fields

Instances

Eq Cat Source # 

Methods

(==) :: Cat -> Cat -> Bool #

(/=) :: Cat -> Cat -> Bool #

Show Cat Source # 

Methods

showsPrec :: Int -> Cat -> ShowS #

show :: Cat -> String #

showList :: [Cat] -> ShowS #

ToJSON Cat Source #

ToJSON Cat

FromJSON Cat Source #

FromJSON Cat

mkCat Source #

Arguments

:: Text

catClassName

-> Cat 

Construct a value of type Cat (by applying it's required fields, if any)

Category

data Category Source #

Category

Constructors

Category 

Fields

Instances

mkCategory :: Category Source #

Construct a value of type Category (by applying it's required fields, if any)

ClassModel

data ClassModel Source #

ClassModel + Model for testing model with "_class" property

Constructors

ClassModel 

Fields

Instances

mkClassModel :: ClassModel Source #

Construct a value of type ClassModel (by applying it's required fields, if any)

Client

data Client Source #

Client

Constructors

Client 

Fields

Instances

Eq Client Source # 

Methods

(==) :: Client -> Client -> Bool #

(/=) :: Client -> Client -> Bool #

Show Client Source # 
ToJSON Client Source #

ToJSON Client

FromJSON Client Source #

FromJSON Client

HasBodyParam TestClassname Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClassname contentType, MimeRender contentType Client) => OpenAPIPetstoreRequest TestClassname contentType res accept -> Client -> OpenAPIPetstoreRequest TestClassname contentType res accept Source #

HasBodyParam TestClientModel Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClientModel contentType, MimeRender contentType Client) => OpenAPIPetstoreRequest TestClientModel contentType res accept -> Client -> OpenAPIPetstoreRequest TestClientModel contentType res accept Source #

HasBodyParam TestSpecialTags Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestSpecialTags contentType, MimeRender contentType Client) => OpenAPIPetstoreRequest TestSpecialTags contentType res accept -> Client -> OpenAPIPetstoreRequest TestSpecialTags contentType res accept Source #

mkClient :: Client Source #

Construct a value of type Client (by applying it's required fields, if any)

Dog

data Dog Source #

Dog

Constructors

Dog 

Fields

Instances

Eq Dog Source # 

Methods

(==) :: Dog -> Dog -> Bool #

(/=) :: Dog -> Dog -> Bool #

Show Dog Source # 

Methods

showsPrec :: Int -> Dog -> ShowS #

show :: Dog -> String #

showList :: [Dog] -> ShowS #

ToJSON Dog Source #

ToJSON Dog

FromJSON Dog Source #

FromJSON Dog

mkDog Source #

Arguments

:: Text

dogClassName

-> Dog 

Construct a value of type Dog (by applying it's required fields, if any)

EnumArrays

data EnumArrays Source #

EnumArrays

Constructors

EnumArrays 

Fields

Instances

mkEnumArrays :: EnumArrays Source #

Construct a value of type EnumArrays (by applying it's required fields, if any)

EnumTest

data EnumTest Source #

EnumTest

Constructors

EnumTest 

Fields

Instances

mkEnumTest Source #

Arguments

:: E'EnumString

enumTestEnumStringRequired

-> EnumTest 

Construct a value of type EnumTest (by applying it's required fields, if any)

FormatTest

data FormatTest Source #

FormatTest

Constructors

FormatTest 

Fields

Instances

mkFormatTest Source #

Arguments

:: Double

formatTestNumber

-> ByteArray

formatTestByte

-> Date

formatTestDate

-> Text

formatTestPassword

-> FormatTest 

Construct a value of type FormatTest (by applying it's required fields, if any)

HasOnlyReadOnly

data HasOnlyReadOnly Source #

HasOnlyReadOnly

Constructors

HasOnlyReadOnly 

Fields

Instances

mkHasOnlyReadOnly :: HasOnlyReadOnly Source #

Construct a value of type HasOnlyReadOnly (by applying it's required fields, if any)

MapTest

data MapTest Source #

MapTest

Constructors

MapTest 

Fields

Instances

mkMapTest :: MapTest Source #

Construct a value of type MapTest (by applying it's required fields, if any)

MixedPropertiesAndAdditionalPropertiesClass

data MixedPropertiesAndAdditionalPropertiesClass Source #

MixedPropertiesAndAdditionalPropertiesClass

Constructors

MixedPropertiesAndAdditionalPropertiesClass 

Fields

Instances

mkMixedPropertiesAndAdditionalPropertiesClass :: MixedPropertiesAndAdditionalPropertiesClass Source #

Construct a value of type MixedPropertiesAndAdditionalPropertiesClass (by applying it's required fields, if any)

Model200Response

data Model200Response Source #

Model200Response + Model for testing model name starting with number

Constructors

Model200Response 

Fields

Instances

mkModel200Response :: Model200Response Source #

Construct a value of type Model200Response (by applying it's required fields, if any)

ModelList

data ModelList Source #

ModelList

Constructors

ModelList 

Fields

Instances

mkModelList :: ModelList Source #

Construct a value of type ModelList (by applying it's required fields, if any)

ModelReturn

data ModelReturn Source #

ModelReturn + Model for testing reserved words

Constructors

ModelReturn 

Fields

Instances

mkModelReturn :: ModelReturn Source #

Construct a value of type ModelReturn (by applying it's required fields, if any)

Name

data Name Source #

Name + Model for testing model name same as property name

Constructors

Name 

Fields

Instances

mkName Source #

Arguments

:: Int

nameName

-> Name 

Construct a value of type Name (by applying it's required fields, if any)

NumberOnly

data NumberOnly Source #

NumberOnly

Constructors

NumberOnly 

Fields

Instances

mkNumberOnly :: NumberOnly Source #

Construct a value of type NumberOnly (by applying it's required fields, if any)

Order

data Order Source #

Order

Constructors

Order 

Fields

Instances

Eq Order Source # 

Methods

(==) :: Order -> Order -> Bool #

(/=) :: Order -> Order -> Bool #

Show Order Source # 

Methods

showsPrec :: Int -> Order -> ShowS #

show :: Order -> String #

showList :: [Order] -> ShowS #

ToJSON Order Source #

ToJSON Order

FromJSON Order Source #

FromJSON Order

HasBodyParam PlaceOrder Order Source #

Body Param Order - order placed for purchasing the pet

Methods

setBodyParam :: (Consumes PlaceOrder contentType, MimeRender contentType Order) => OpenAPIPetstoreRequest PlaceOrder contentType res accept -> Order -> OpenAPIPetstoreRequest PlaceOrder contentType res accept Source #

mkOrder :: Order Source #

Construct a value of type Order (by applying it's required fields, if any)

OuterComposite

data OuterComposite Source #

OuterComposite

Constructors

OuterComposite 

Fields

Instances

mkOuterComposite :: OuterComposite Source #

Construct a value of type OuterComposite (by applying it's required fields, if any)

Pet

data Pet Source #

Pet

Constructors

Pet 

Fields

Instances

Eq Pet Source # 

Methods

(==) :: Pet -> Pet -> Bool #

(/=) :: Pet -> Pet -> Bool #

Show Pet Source # 

Methods

showsPrec :: Int -> Pet -> ShowS #

show :: Pet -> String #

showList :: [Pet] -> ShowS #

ToJSON Pet Source #

ToJSON Pet

FromJSON Pet Source #

FromJSON Pet

HasBodyParam UpdatePet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes UpdatePet contentType, MimeRender contentType Pet) => OpenAPIPetstoreRequest UpdatePet contentType res accept -> Pet -> OpenAPIPetstoreRequest UpdatePet contentType res accept Source #

HasBodyParam AddPet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes AddPet contentType, MimeRender contentType Pet) => OpenAPIPetstoreRequest AddPet contentType res accept -> Pet -> OpenAPIPetstoreRequest AddPet contentType res accept Source #

mkPet Source #

Arguments

:: Text

petName

-> [Text]

petPhotoUrls

-> Pet 

Construct a value of type Pet (by applying it's required fields, if any)

ReadOnlyFirst

data ReadOnlyFirst Source #

ReadOnlyFirst

Constructors

ReadOnlyFirst 

Fields

Instances

mkReadOnlyFirst :: ReadOnlyFirst Source #

Construct a value of type ReadOnlyFirst (by applying it's required fields, if any)

SpecialModelName

data SpecialModelName Source #

SpecialModelName

Constructors

SpecialModelName 

Fields

Instances

mkSpecialModelName :: SpecialModelName Source #

Construct a value of type SpecialModelName (by applying it's required fields, if any)

Tag

data Tag Source #

Tag

Constructors

Tag 

Fields

Instances

Eq Tag Source # 

Methods

(==) :: Tag -> Tag -> Bool #

(/=) :: Tag -> Tag -> Bool #

Show Tag Source # 

Methods

showsPrec :: Int -> Tag -> ShowS #

show :: Tag -> String #

showList :: [Tag] -> ShowS #

ToJSON Tag Source #

ToJSON Tag

FromJSON Tag Source #

FromJSON Tag

mkTag :: Tag Source #

Construct a value of type Tag (by applying it's required fields, if any)

User

data User Source #

User

Constructors

User 

Fields

Instances

Eq User Source # 

Methods

(==) :: User -> User -> Bool #

(/=) :: User -> User -> Bool #

Show User Source # 

Methods

showsPrec :: Int -> User -> ShowS #

show :: User -> String #

showList :: [User] -> ShowS #

ToJSON User Source #

ToJSON User

FromJSON User Source #

FromJSON User

HasBodyParam UpdateUser User Source #

Body Param User - Updated user object

Methods

setBodyParam :: (Consumes UpdateUser contentType, MimeRender contentType User) => OpenAPIPetstoreRequest UpdateUser contentType res accept -> User -> OpenAPIPetstoreRequest UpdateUser contentType res accept Source #

HasBodyParam CreateUser User Source #

Body Param User - Created user object

Methods

setBodyParam :: (Consumes CreateUser contentType, MimeRender contentType User) => OpenAPIPetstoreRequest CreateUser contentType res accept -> User -> OpenAPIPetstoreRequest CreateUser contentType res accept Source #

mkUser :: User Source #

Construct a value of type User (by applying it's required fields, if any)

Enums

E'ArrayEnum

data E'ArrayEnum Source #

Enum of Text

Constructors

E'ArrayEnum'Fish
"fish"
E'ArrayEnum'Crab
"crab"

Instances

Bounded E'ArrayEnum Source # 
Enum E'ArrayEnum Source # 
Eq E'ArrayEnum Source # 
Ord E'ArrayEnum Source # 
Show E'ArrayEnum Source # 
ToJSON E'ArrayEnum Source # 
FromJSON E'ArrayEnum Source # 
ToHttpApiData E'ArrayEnum Source # 
FromHttpApiData E'ArrayEnum Source # 
MimeRender MimeMultipartFormData E'ArrayEnum Source # 

fromE'ArrayEnum :: E'ArrayEnum -> Text Source #

unwrap E'ArrayEnum enum

toE'ArrayEnum :: Text -> Either String E'ArrayEnum Source #

parse E'ArrayEnum enum

E'EnumFormString

data E'EnumFormString Source #

Enum of Text . + Form parameter enum test (string)

Constructors

E'EnumFormString'_abc
"_abc"
E'EnumFormString'_efg
"-efg"
E'EnumFormString'_xyz
"(xyz)"

Instances

Bounded E'EnumFormString Source # 
Enum E'EnumFormString Source # 
Eq E'EnumFormString Source # 
Ord E'EnumFormString Source # 
Show E'EnumFormString Source # 
ToJSON E'EnumFormString Source # 
FromJSON E'EnumFormString Source # 
ToHttpApiData E'EnumFormString Source # 
FromHttpApiData E'EnumFormString Source # 
MimeRender MimeMultipartFormData E'EnumFormString Source # 

fromE'EnumFormString :: E'EnumFormString -> Text Source #

unwrap E'EnumFormString enum

toE'EnumFormString :: Text -> Either String E'EnumFormString Source #

parse E'EnumFormString enum

E'EnumFormStringArray

data E'EnumFormStringArray Source #

Enum of Text

Constructors

E'EnumFormStringArray'GreaterThan
">"
E'EnumFormStringArray'Dollar
"$"

Instances

Bounded E'EnumFormStringArray Source # 
Enum E'EnumFormStringArray Source # 
Eq E'EnumFormStringArray Source # 
Ord E'EnumFormStringArray Source # 
Show E'EnumFormStringArray Source # 
ToJSON E'EnumFormStringArray Source # 
FromJSON E'EnumFormStringArray Source # 
ToHttpApiData E'EnumFormStringArray Source # 
FromHttpApiData E'EnumFormStringArray Source # 
MimeRender MimeMultipartFormData E'EnumFormStringArray Source # 

fromE'EnumFormStringArray :: E'EnumFormStringArray -> Text Source #

unwrap E'EnumFormStringArray enum

toE'EnumFormStringArray :: Text -> Either String E'EnumFormStringArray Source #

parse E'EnumFormStringArray enum

E'EnumInteger

data E'EnumInteger Source #

Enum of Int

Constructors

E'EnumInteger'Num1
1
E'EnumInteger'NumMinus_1
-1

Instances

Bounded E'EnumInteger Source # 
Enum E'EnumInteger Source # 
Eq E'EnumInteger Source # 
Ord E'EnumInteger Source # 
Show E'EnumInteger Source # 
ToJSON E'EnumInteger Source # 
FromJSON E'EnumInteger Source # 
ToHttpApiData E'EnumInteger Source # 
FromHttpApiData E'EnumInteger Source # 
MimeRender MimeMultipartFormData E'EnumInteger Source # 

fromE'EnumInteger :: E'EnumInteger -> Int Source #

unwrap E'EnumInteger enum

toE'EnumInteger :: Int -> Either String E'EnumInteger Source #

parse E'EnumInteger enum

E'EnumNumber

data E'EnumNumber Source #

Enum of Double

Constructors

E'EnumNumber'Num1_Dot_1
1.1
E'EnumNumber'NumMinus_1_Dot_2
-1.2

Instances

Bounded E'EnumNumber Source # 
Enum E'EnumNumber Source # 
Eq E'EnumNumber Source # 
Ord E'EnumNumber Source # 
Show E'EnumNumber Source # 
ToJSON E'EnumNumber Source # 
FromJSON E'EnumNumber Source # 
ToHttpApiData E'EnumNumber Source # 
FromHttpApiData E'EnumNumber Source # 
MimeRender MimeMultipartFormData E'EnumNumber Source # 

fromE'EnumNumber :: E'EnumNumber -> Double Source #

unwrap E'EnumNumber enum

toE'EnumNumber :: Double -> Either String E'EnumNumber Source #

parse E'EnumNumber enum

E'EnumQueryInteger

data E'EnumQueryInteger Source #

Enum of Int

Constructors

E'EnumQueryInteger'Num1
1
E'EnumQueryInteger'NumMinus_2
-2

Instances

Bounded E'EnumQueryInteger Source # 
Enum E'EnumQueryInteger Source # 
Eq E'EnumQueryInteger Source # 
Ord E'EnumQueryInteger Source # 
Show E'EnumQueryInteger Source # 
ToJSON E'EnumQueryInteger Source # 
FromJSON E'EnumQueryInteger Source # 
ToHttpApiData E'EnumQueryInteger Source # 
FromHttpApiData E'EnumQueryInteger Source # 
MimeRender MimeMultipartFormData E'EnumQueryInteger Source # 

fromE'EnumQueryInteger :: E'EnumQueryInteger -> Int Source #

unwrap E'EnumQueryInteger enum

toE'EnumQueryInteger :: Int -> Either String E'EnumQueryInteger Source #

parse E'EnumQueryInteger enum

E'EnumString

data E'EnumString Source #

Enum of Text

Constructors

E'EnumString'UPPER
UPPER
E'EnumString'Lower
"lower"
E'EnumString'Empty
""

Instances

Bounded E'EnumString Source # 
Enum E'EnumString Source # 
Eq E'EnumString Source # 
Ord E'EnumString Source # 
Show E'EnumString Source # 
ToJSON E'EnumString Source # 
FromJSON E'EnumString Source # 
ToHttpApiData E'EnumString Source # 
FromHttpApiData E'EnumString Source # 
MimeRender MimeMultipartFormData E'EnumString Source # 

fromE'EnumString :: E'EnumString -> Text Source #

unwrap E'EnumString enum

toE'EnumString :: Text -> Either String E'EnumString Source #

parse E'EnumString enum

E'Inner

data E'Inner Source #

Enum of Text

Constructors

E'Inner'UPPER
UPPER
E'Inner'Lower
"lower"

Instances

Bounded E'Inner Source # 
Enum E'Inner Source # 
Eq E'Inner Source # 

Methods

(==) :: E'Inner -> E'Inner -> Bool #

(/=) :: E'Inner -> E'Inner -> Bool #

Ord E'Inner Source # 
Show E'Inner Source # 
ToJSON E'Inner Source # 
FromJSON E'Inner Source # 
ToHttpApiData E'Inner Source # 
FromHttpApiData E'Inner Source # 
MimeRender MimeMultipartFormData E'Inner Source # 

fromE'Inner :: E'Inner -> Text Source #

unwrap E'Inner enum

toE'Inner :: Text -> Either String E'Inner Source #

parse E'Inner enum

E'JustSymbol

data E'JustSymbol Source #

Enum of Text

Constructors

E'JustSymbol'Greater_Than_Or_Equal_To
">="
E'JustSymbol'Dollar
"$"

Instances

Bounded E'JustSymbol Source # 
Enum E'JustSymbol Source # 
Eq E'JustSymbol Source # 
Ord E'JustSymbol Source # 
Show E'JustSymbol Source # 
ToJSON E'JustSymbol Source # 
FromJSON E'JustSymbol Source # 
ToHttpApiData E'JustSymbol Source # 
FromHttpApiData E'JustSymbol Source # 
MimeRender MimeMultipartFormData E'JustSymbol Source # 

fromE'JustSymbol :: E'JustSymbol -> Text Source #

unwrap E'JustSymbol enum

toE'JustSymbol :: Text -> Either String E'JustSymbol Source #

parse E'JustSymbol enum

E'Status

data E'Status Source #

Enum of Text . + Order Status

Constructors

E'Status'Placed
"placed"
E'Status'Approved
"approved"
E'Status'Delivered
"delivered"

Instances

Bounded E'Status Source # 
Enum E'Status Source # 
Eq E'Status Source # 
Ord E'Status Source # 
Show E'Status Source # 
ToJSON E'Status Source # 
FromJSON E'Status Source # 
ToHttpApiData E'Status Source # 
FromHttpApiData E'Status Source # 
MimeRender MimeMultipartFormData E'Status Source # 

fromE'Status :: E'Status -> Text Source #

unwrap E'Status enum

toE'Status :: Text -> Either String E'Status Source #

parse E'Status enum

E'Status2

data E'Status2 Source #

Enum of Text . + pet status in the store

Constructors

E'Status2'Available
"available"
E'Status2'Pending
"pending"
E'Status2'Sold
"sold"

Instances

Bounded E'Status2 Source # 
Enum E'Status2 Source # 
Eq E'Status2 Source # 
Ord E'Status2 Source # 
Show E'Status2 Source # 
ToJSON E'Status2 Source # 
FromJSON E'Status2 Source # 
ToHttpApiData E'Status2 Source # 
FromHttpApiData E'Status2 Source # 
MimeRender MimeMultipartFormData E'Status2 Source # 

fromE'Status2 :: E'Status2 -> Text Source #

unwrap E'Status2 enum

toE'Status2 :: Text -> Either String E'Status2 Source #

parse E'Status2 enum

EnumClass

data EnumClass Source #

Enum of Text

Constructors

EnumClass'_abc
"_abc"
EnumClass'_efg
"-efg"
EnumClass'_xyz
"(xyz)"

Instances

Bounded EnumClass Source # 
Enum EnumClass Source # 
Eq EnumClass Source # 
Ord EnumClass Source # 
Show EnumClass Source # 
ToJSON EnumClass Source # 
FromJSON EnumClass Source # 
ToHttpApiData EnumClass Source # 
FromHttpApiData EnumClass Source # 
MimeRender MimeMultipartFormData EnumClass Source # 

fromEnumClass :: EnumClass -> Text Source #

unwrap EnumClass enum

toEnumClass :: Text -> Either String EnumClass Source #

parse EnumClass enum

OuterEnum

data OuterEnum Source #

Enum of Text

Constructors

OuterEnum'Placed
"placed"
OuterEnum'Approved
"approved"
OuterEnum'Delivered
"delivered"

Instances

Bounded OuterEnum Source # 
Enum OuterEnum Source # 
Eq OuterEnum Source # 
Ord OuterEnum Source # 
Show OuterEnum Source # 
ToJSON OuterEnum Source # 
FromJSON OuterEnum Source # 
ToHttpApiData OuterEnum Source # 
FromHttpApiData OuterEnum Source # 
MimeRender MimeMultipartFormData OuterEnum Source # 

fromOuterEnum :: OuterEnum -> Text Source #

unwrap OuterEnum enum

toOuterEnum :: Text -> Either String OuterEnum Source #

parse OuterEnum enum

Auth Methods

AuthApiKeyApiKey

data AuthApiKeyApiKey Source #

Constructors

AuthApiKeyApiKey Text

secret

Instances

AuthApiKeyApiKeyQuery

data AuthApiKeyApiKeyQuery Source #

Constructors

AuthApiKeyApiKeyQuery Text

secret

Instances

AuthBasicHttpBasicTest

data AuthBasicHttpBasicTest Source #

Constructors

AuthBasicHttpBasicTest ByteString ByteString

username password

Instances

AuthOAuthPetstoreAuth

data AuthOAuthPetstoreAuth Source #

Constructors

AuthOAuthPetstoreAuth Text

secret

Instances

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-ModelLens.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-ModelLens.html new file mode 100644 index 00000000000..5eabcd62d82 --- /dev/null +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore-ModelLens.html @@ -0,0 +1,4 @@ +OpenAPIPetstore.ModelLens

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore.ModelLens

Contents

Description

 

Synopsis

AdditionalPropertiesClass

additionalPropertiesClassMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map String Text)) Source #

additionalPropertiesClassMapProperty Lens

additionalPropertiesClassMapOfMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map String (Map String Text))) Source #

additionalPropertiesClassMapOfMapProperty Lens

Animal

animalClassNameL :: Lens_' Animal Text Source #

animalClassName Lens

animalColorL :: Lens_' Animal (Maybe Text) Source #

animalColor Lens

AnimalFarm

ApiResponse

apiResponseCodeL :: Lens_' ApiResponse (Maybe Int) Source #

apiResponseCode Lens

apiResponseTypeL :: Lens_' ApiResponse (Maybe Text) Source #

apiResponseType Lens

apiResponseMessageL :: Lens_' ApiResponse (Maybe Text) Source #

apiResponseMessage Lens

ArrayOfArrayOfNumberOnly

arrayOfArrayOfNumberOnlyArrayArrayNumberL :: Lens_' ArrayOfArrayOfNumberOnly (Maybe [[Double]]) Source #

arrayOfArrayOfNumberOnlyArrayArrayNumber Lens

ArrayOfNumberOnly

arrayOfNumberOnlyArrayNumberL :: Lens_' ArrayOfNumberOnly (Maybe [Double]) Source #

arrayOfNumberOnlyArrayNumber Lens

ArrayTest

arrayTestArrayOfStringL :: Lens_' ArrayTest (Maybe [Text]) Source #

arrayTestArrayOfString Lens

arrayTestArrayArrayOfIntegerL :: Lens_' ArrayTest (Maybe [[Integer]]) Source #

arrayTestArrayArrayOfInteger Lens

arrayTestArrayArrayOfModelL :: Lens_' ArrayTest (Maybe [[ReadOnlyFirst]]) Source #

arrayTestArrayArrayOfModel Lens

Capitalization

capitalizationSmallCamelL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationSmallCamel Lens

capitalizationCapitalCamelL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationCapitalCamel Lens

capitalizationSmallSnakeL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationSmallSnake Lens

capitalizationCapitalSnakeL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationCapitalSnake Lens

capitalizationScaEthFlowPointsL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationScaEthFlowPoints Lens

capitalizationAttNameL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationAttName Lens

Cat

catClassNameL :: Lens_' Cat Text Source #

catClassName Lens

catColorL :: Lens_' Cat (Maybe Text) Source #

catColor Lens

catDeclawedL :: Lens_' Cat (Maybe Bool) Source #

catDeclawed Lens

Category

categoryIdL :: Lens_' Category (Maybe Integer) Source #

categoryId Lens

categoryNameL :: Lens_' Category (Maybe Text) Source #

categoryName Lens

ClassModel

classModelClassL :: Lens_' ClassModel (Maybe Text) Source #

classModelClass Lens

Client

clientClientL :: Lens_' Client (Maybe Text) Source #

clientClient Lens

Dog

dogClassNameL :: Lens_' Dog Text Source #

dogClassName Lens

dogColorL :: Lens_' Dog (Maybe Text) Source #

dogColor Lens

dogBreedL :: Lens_' Dog (Maybe Text) Source #

dogBreed Lens

EnumArrays

enumArraysJustSymbolL :: Lens_' EnumArrays (Maybe E'JustSymbol) Source #

enumArraysJustSymbol Lens

enumArraysArrayEnumL :: Lens_' EnumArrays (Maybe [E'ArrayEnum]) Source #

enumArraysArrayEnum Lens

EnumClass

EnumTest

enumTestEnumStringL :: Lens_' EnumTest (Maybe E'EnumString) Source #

enumTestEnumString Lens

enumTestEnumStringRequiredL :: Lens_' EnumTest E'EnumString Source #

enumTestEnumStringRequired Lens

enumTestEnumIntegerL :: Lens_' EnumTest (Maybe E'EnumInteger) Source #

enumTestEnumInteger Lens

enumTestEnumNumberL :: Lens_' EnumTest (Maybe E'EnumNumber) Source #

enumTestEnumNumber Lens

enumTestOuterEnumL :: Lens_' EnumTest (Maybe OuterEnum) Source #

enumTestOuterEnum Lens

FormatTest

formatTestIntegerL :: Lens_' FormatTest (Maybe Int) Source #

formatTestInteger Lens

formatTestInt32L :: Lens_' FormatTest (Maybe Int) Source #

formatTestInt32 Lens

formatTestInt64L :: Lens_' FormatTest (Maybe Integer) Source #

formatTestInt64 Lens

formatTestNumberL :: Lens_' FormatTest Double Source #

formatTestNumber Lens

formatTestFloatL :: Lens_' FormatTest (Maybe Float) Source #

formatTestFloat Lens

formatTestDoubleL :: Lens_' FormatTest (Maybe Double) Source #

formatTestDouble Lens

formatTestStringL :: Lens_' FormatTest (Maybe Text) Source #

formatTestString Lens

formatTestByteL :: Lens_' FormatTest ByteArray Source #

formatTestByte Lens

formatTestBinaryL :: Lens_' FormatTest (Maybe FilePath) Source #

formatTestBinary Lens

formatTestDateL :: Lens_' FormatTest Date Source #

formatTestDate Lens

formatTestDateTimeL :: Lens_' FormatTest (Maybe DateTime) Source #

formatTestDateTime Lens

formatTestUuidL :: Lens_' FormatTest (Maybe Text) Source #

formatTestUuid Lens

formatTestPasswordL :: Lens_' FormatTest Text Source #

formatTestPassword Lens

HasOnlyReadOnly

hasOnlyReadOnlyBarL :: Lens_' HasOnlyReadOnly (Maybe Text) Source #

hasOnlyReadOnlyBar Lens

hasOnlyReadOnlyFooL :: Lens_' HasOnlyReadOnly (Maybe Text) Source #

hasOnlyReadOnlyFoo Lens

MapTest

mapTestMapMapOfStringL :: Lens_' MapTest (Maybe (Map String (Map String Text))) Source #

mapTestMapMapOfString Lens

mapTestMapOfEnumStringL :: Lens_' MapTest (Maybe (Map String E'Inner)) Source #

mapTestMapOfEnumString Lens

MixedPropertiesAndAdditionalPropertiesClass

mixedPropertiesAndAdditionalPropertiesClassUuidL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe Text) Source #

mixedPropertiesAndAdditionalPropertiesClassUuid Lens

mixedPropertiesAndAdditionalPropertiesClassDateTimeL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe DateTime) Source #

mixedPropertiesAndAdditionalPropertiesClassDateTime Lens

mixedPropertiesAndAdditionalPropertiesClassMapL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe (Map String Animal)) Source #

mixedPropertiesAndAdditionalPropertiesClassMap Lens

Model200Response

model200ResponseNameL :: Lens_' Model200Response (Maybe Int) Source #

model200ResponseName Lens

model200ResponseClassL :: Lens_' Model200Response (Maybe Text) Source #

model200ResponseClass Lens

ModelList

modelList123listL :: Lens_' ModelList (Maybe Text) Source #

modelList123list Lens

ModelReturn

modelReturnReturnL :: Lens_' ModelReturn (Maybe Int) Source #

modelReturnReturn Lens

Name

nameNameL :: Lens_' Name Int Source #

nameName Lens

nameSnakeCaseL :: Lens_' Name (Maybe Int) Source #

nameSnakeCase Lens

namePropertyL :: Lens_' Name (Maybe Text) Source #

nameProperty Lens

name123numberL :: Lens_' Name (Maybe Int) Source #

name123number Lens

NumberOnly

numberOnlyJustNumberL :: Lens_' NumberOnly (Maybe Double) Source #

numberOnlyJustNumber Lens

Order

orderIdL :: Lens_' Order (Maybe Integer) Source #

orderId Lens

orderPetIdL :: Lens_' Order (Maybe Integer) Source #

orderPetId Lens

orderQuantityL :: Lens_' Order (Maybe Int) Source #

orderQuantity Lens

orderShipDateL :: Lens_' Order (Maybe DateTime) Source #

orderShipDate Lens

orderStatusL :: Lens_' Order (Maybe E'Status) Source #

orderStatus Lens

orderCompleteL :: Lens_' Order (Maybe Bool) Source #

orderComplete Lens

OuterComposite

outerCompositeMyNumberL :: Lens_' OuterComposite (Maybe Double) Source #

outerCompositeMyNumber Lens

outerCompositeMyStringL :: Lens_' OuterComposite (Maybe Text) Source #

outerCompositeMyString Lens

outerCompositeMyBooleanL :: Lens_' OuterComposite (Maybe Bool) Source #

outerCompositeMyBoolean Lens

OuterEnum

Pet

petIdL :: Lens_' Pet (Maybe Integer) Source #

petId Lens

petCategoryL :: Lens_' Pet (Maybe Category) Source #

petCategory Lens

petNameL :: Lens_' Pet Text Source #

petName Lens

petPhotoUrlsL :: Lens_' Pet [Text] Source #

petPhotoUrls Lens

petTagsL :: Lens_' Pet (Maybe [Tag]) Source #

petTags Lens

petStatusL :: Lens_' Pet (Maybe E'Status2) Source #

petStatus Lens

ReadOnlyFirst

readOnlyFirstBarL :: Lens_' ReadOnlyFirst (Maybe Text) Source #

readOnlyFirstBar Lens

readOnlyFirstBazL :: Lens_' ReadOnlyFirst (Maybe Text) Source #

readOnlyFirstBaz Lens

SpecialModelName

specialModelNameSpecialPropertyNameL :: Lens_' SpecialModelName (Maybe Integer) Source #

specialModelNameSpecialPropertyName Lens

Tag

tagIdL :: Lens_' Tag (Maybe Integer) Source #

tagId Lens

tagNameL :: Lens_' Tag (Maybe Text) Source #

tagName Lens

User

userIdL :: Lens_' User (Maybe Integer) Source #

userId Lens

userUsernameL :: Lens_' User (Maybe Text) Source #

userUsername Lens

userFirstNameL :: Lens_' User (Maybe Text) Source #

userFirstName Lens

userLastNameL :: Lens_' User (Maybe Text) Source #

userLastName Lens

userEmailL :: Lens_' User (Maybe Text) Source #

userEmail Lens

userPasswordL :: Lens_' User (Maybe Text) Source #

userPassword Lens

userPhoneL :: Lens_' User (Maybe Text) Source #

userPhone Lens

userUserStatusL :: Lens_' User (Maybe Int) Source #

userUserStatus Lens

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore.html b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore.html similarity index 53% rename from samples/client/petstore/haskell-http-client/docs/SwaggerPetstore.html rename to samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore.html index 74db6fb9382..b564c8fb302 100644 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore.html +++ b/samples/client/petstore/haskell-http-client/docs/OpenAPIPetstore.html @@ -1,4 +1,4 @@ -SwaggerPetstore

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore

Description

 

Documentation

module SwaggerPetstore.API

module SwaggerPetstore.Client

module SwaggerPetstore.Core

module SwaggerPetstore.Logging

module SwaggerPetstore.MimeTypes

module SwaggerPetstore.Model

module SwaggerPetstore.ModelLens

\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Safe HaskellNone
LanguageHaskell2010

OpenAPIPetstore

Description

 

Documentation

module OpenAPIPetstore.API

module OpenAPIPetstore.Client

module OpenAPIPetstore.Core

module OpenAPIPetstore.Logging

module OpenAPIPetstore.MimeTypes

module OpenAPIPetstore.Model

module OpenAPIPetstore.ModelLens

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-Fake.html b/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-Fake.html deleted file mode 100644 index c0420ce9126..00000000000 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-Fake.html +++ /dev/null @@ -1,4 +0,0 @@ -SwaggerPetstore.API.Fake

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.API.Fake

Contents

Description

 

Synopsis

Operations

Fake

fakeOuterBooleanSerialize

fakeOuterBooleanSerialize Source #

Arguments

:: Consumes FakeOuterBooleanSerialize contentType 
=> ContentType contentType

request content-type (MimeType)

-> Accept accept

request accept (MimeType)

-> SwaggerPetstoreRequest FakeOuterBooleanSerialize contentType OuterBoolean accept 
POST /fake/outer/boolean

Test serialization of outer boolean types

data FakeOuterBooleanSerialize Source #

Instances

fakeOuterCompositeSerialize

fakeOuterCompositeSerialize Source #

Arguments

:: Consumes FakeOuterCompositeSerialize contentType 
=> ContentType contentType

request content-type (MimeType)

-> Accept accept

request accept (MimeType)

-> SwaggerPetstoreRequest FakeOuterCompositeSerialize contentType OuterComposite accept 
POST /fake/outer/composite

Test serialization of object with outer number type

data FakeOuterCompositeSerialize Source #

Instances

fakeOuterNumberSerialize

fakeOuterNumberSerialize Source #

Arguments

:: Consumes FakeOuterNumberSerialize contentType 
=> ContentType contentType

request content-type (MimeType)

-> Accept accept

request accept (MimeType)

-> SwaggerPetstoreRequest FakeOuterNumberSerialize contentType OuterNumber accept 
POST /fake/outer/number

Test serialization of outer number types

data FakeOuterNumberSerialize Source #

Instances

MimeType mtype => Produces FakeOuterNumberSerialize mtype Source #
*/*
HasBodyParam FakeOuterNumberSerialize Body Source #

Body Param "body" - Input number as post body

fakeOuterStringSerialize

fakeOuterStringSerialize Source #

Arguments

:: Consumes FakeOuterStringSerialize contentType 
=> ContentType contentType

request content-type (MimeType)

-> Accept accept

request accept (MimeType)

-> SwaggerPetstoreRequest FakeOuterStringSerialize contentType OuterString accept 
POST /fake/outer/string

Test serialization of outer string types

data FakeOuterStringSerialize Source #

Instances

testBodyWithQueryParams

testBodyWithQueryParams Source #

Arguments

:: (Consumes TestBodyWithQueryParams MimeJSON, MimeRender MimeJSON User) 
=> User

"user"

-> Query

"query"

-> SwaggerPetstoreRequest TestBodyWithQueryParams MimeJSON NoContent MimeNoContent 
PUT /fake/body-with-query-params

data TestBodyWithQueryParams Source #

Instances

testClientModel

testClientModel Source #

Arguments

:: (Consumes TestClientModel MimeJSON, MimeRender MimeJSON Client) 
=> Client

"client" - client model

-> SwaggerPetstoreRequest TestClientModel MimeJSON Client MimeJSON 
PATCH /fake

To test "client" model

To test "client" model

data TestClientModel Source #

Instances

Produces TestClientModel MimeJSON Source #
application/json
Consumes TestClientModel MimeJSON Source #
application/json
HasBodyParam TestClientModel Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClientModel contentType, MimeRender contentType Client) => SwaggerPetstoreRequest TestClientModel contentType res accept -> Client -> SwaggerPetstoreRequest TestClientModel contentType res accept Source #

testEndpointParameters

testEndpointParameters Source #

Arguments

:: Consumes TestEndpointParameters MimeFormUrlEncoded 
=> Number

"number" - None

-> ParamDouble

"double" - None

-> PatternWithoutDelimiter

"patternWithoutDelimiter" - None

-> Byte

"byte" - None

-> SwaggerPetstoreRequest TestEndpointParameters MimeFormUrlEncoded NoContent MimeNoContent 
POST /fake

Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트

Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트

AuthMethod: AuthBasicHttpBasicTest

data TestEndpointParameters Source #

Instances

Produces TestEndpointParameters MimeNoContent Source # 
Consumes TestEndpointParameters MimeFormUrlEncoded Source #
application/x-www-form-urlencoded
HasOptionalParam TestEndpointParameters Password Source #

Optional Param "password" - None

HasOptionalParam TestEndpointParameters ParamString Source #

Optional Param "string" - None

HasOptionalParam TestEndpointParameters ParamInteger Source #

Optional Param "integer" - None

HasOptionalParam TestEndpointParameters ParamFloat Source #

Optional Param "float" - None

HasOptionalParam TestEndpointParameters ParamDateTime Source #

Optional Param "dateTime" - None

HasOptionalParam TestEndpointParameters ParamDate Source #

Optional Param "date" - None

HasOptionalParam TestEndpointParameters ParamBinary Source #

Optional Param "binary" - None

HasOptionalParam TestEndpointParameters Int64 Source #

Optional Param "int64" - None

HasOptionalParam TestEndpointParameters Int32 Source #

Optional Param "int32" - None

HasOptionalParam TestEndpointParameters Callback Source #

Optional Param "callback" - None

testEnumParameters

testEnumParameters :: Consumes TestEnumParameters MimeFormUrlEncoded => SwaggerPetstoreRequest TestEnumParameters MimeFormUrlEncoded NoContent MimeNoContent Source #

GET /fake

To test enum parameters

To test enum parameters

data TestEnumParameters Source #

Instances

Produces TestEnumParameters MimeNoContent Source # 
Consumes TestEnumParameters MimeFormUrlEncoded Source #
application/x-www-form-urlencoded
HasOptionalParam TestEnumParameters EnumQueryStringArray Source #

Optional Param "enum_query_string_array" - Query parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumQueryString Source #

Optional Param "enum_query_string" - Query parameter enum test (string)

HasOptionalParam TestEnumParameters EnumQueryInteger Source #

Optional Param "enum_query_integer" - Query parameter enum test (double)

HasOptionalParam TestEnumParameters EnumQueryDouble Source #

Optional Param "enum_query_double" - Query parameter enum test (double)

HasOptionalParam TestEnumParameters EnumHeaderStringArray Source #

Optional Param "enum_header_string_array" - Header parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumHeaderString Source #

Optional Param "enum_header_string" - Header parameter enum test (string)

HasOptionalParam TestEnumParameters EnumFormStringArray Source #

Optional Param "enum_form_string_array" - Form parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumFormString Source #

Optional Param "enum_form_string" - Form parameter enum test (string)

testInlineAdditionalProperties

testInlineAdditionalProperties Source #

Arguments

:: (Consumes TestInlineAdditionalProperties MimeJSON, MimeRender MimeJSON RequestBody) 
=> RequestBody

"requestBody" - request body

-> SwaggerPetstoreRequest TestInlineAdditionalProperties MimeJSON NoContent MimeNoContent 
POST /fake/inline-additionalProperties

test inline additionalProperties

data TestInlineAdditionalProperties Source #

Instances

testJsonFormData

testJsonFormData Source #

Arguments

:: Consumes TestJsonFormData MimeFormUrlEncoded 
=> Param

"param" - field1

-> Param2

"param2" - field2

-> SwaggerPetstoreRequest TestJsonFormData MimeFormUrlEncoded NoContent MimeNoContent 
GET /fake/jsonFormData

test json serialization of form data

data TestJsonFormData Source #

Instances

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-Store.html b/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-Store.html deleted file mode 100644 index c9eb32e8207..00000000000 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-Store.html +++ /dev/null @@ -1,4 +0,0 @@ -SwaggerPetstore.API.Store

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.API.Store

Contents

Description

 

Synopsis

Operations

Store

deleteOrder

deleteOrder Source #

Arguments

:: OrderIdText

"orderId" - ID of the order that needs to be deleted

-> SwaggerPetstoreRequest DeleteOrder MimeNoContent NoContent MimeNoContent 
DELETE /store/order/{order_id}

Delete purchase order by ID

For valid response try integer IDs with value < 1000. Anything above 1000 or nonintegers will generate API errors

data DeleteOrder Source #

Instances

getInventory

getInventory :: SwaggerPetstoreRequest GetInventory MimeNoContent (Map String Int) MimeJSON Source #

GET /store/inventory

Returns pet inventories by status

Returns a map of status codes to quantities

AuthMethod: AuthApiKeyApiKey

data GetInventory Source #

Instances

getOrderById

getOrderById Source #

Arguments

:: Accept accept

request accept (MimeType)

-> OrderId

"orderId" - ID of pet that needs to be fetched

-> SwaggerPetstoreRequest GetOrderById MimeNoContent Order accept 
GET /store/order/{order_id}

Find purchase order by ID

For valid response try integer IDs with value 5 or 10. Other values will generated exceptions

data GetOrderById Source #

Instances

placeOrder

placeOrder Source #

Arguments

:: (Consumes PlaceOrder contentType, MimeRender contentType Order) 
=> ContentType contentType

request content-type (MimeType)

-> Accept accept

request accept (MimeType)

-> Order

"order" - order placed for purchasing the pet

-> SwaggerPetstoreRequest PlaceOrder contentType Order accept 
POST /store/order

Place an order for a pet

data PlaceOrder Source #

Instances

Produces PlaceOrder MimeXML Source #
application/xml
Produces PlaceOrder MimeJSON Source #
application/json
HasBodyParam PlaceOrder Order Source #

Body Param Order - order placed for purchasing the pet

Methods

setBodyParam :: (Consumes PlaceOrder contentType, MimeRender contentType Order) => SwaggerPetstoreRequest PlaceOrder contentType res accept -> Order -> SwaggerPetstoreRequest PlaceOrder contentType res accept Source #

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-User.html b/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-User.html deleted file mode 100644 index bb27fe4d5d2..00000000000 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-API-User.html +++ /dev/null @@ -1,4 +0,0 @@ -SwaggerPetstore.API.User

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.API.User

Contents

Description

 

Synopsis

Operations

User

createUser

createUser Source #

Arguments

:: (Consumes CreateUser contentType, MimeRender contentType User) 
=> ContentType contentType

request content-type (MimeType)

-> User

"user" - Created user object

-> SwaggerPetstoreRequest CreateUser contentType NoContent MimeNoContent 
POST /user

Create user

This can only be done by the logged in user.

data CreateUser Source #

Instances

Produces CreateUser MimeNoContent Source # 
HasBodyParam CreateUser User Source #

Body Param User - Created user object

Methods

setBodyParam :: (Consumes CreateUser contentType, MimeRender contentType User) => SwaggerPetstoreRequest CreateUser contentType res accept -> User -> SwaggerPetstoreRequest CreateUser contentType res accept Source #

createUsersWithArrayInput

createUsersWithArrayInput Source #

Arguments

:: (Consumes CreateUsersWithArrayInput contentType, MimeRender contentType User2) 
=> ContentType contentType

request content-type (MimeType)

-> User2

"user" - List of user object

-> SwaggerPetstoreRequest CreateUsersWithArrayInput contentType NoContent MimeNoContent 
POST /user/createWithArray

Creates list of users with given input array

data CreateUsersWithArrayInput Source #

Instances

createUsersWithListInput

createUsersWithListInput Source #

Arguments

:: (Consumes CreateUsersWithListInput contentType, MimeRender contentType User2) 
=> ContentType contentType

request content-type (MimeType)

-> User2

"user" - List of user object

-> SwaggerPetstoreRequest CreateUsersWithListInput contentType NoContent MimeNoContent 
POST /user/createWithList

Creates list of users with given input array

data CreateUsersWithListInput Source #

Instances

deleteUser

deleteUser Source #

Arguments

:: Username

"username" - The name that needs to be deleted

-> SwaggerPetstoreRequest DeleteUser MimeNoContent NoContent MimeNoContent 
DELETE /user/{username}

Delete user

This can only be done by the logged in user.

data DeleteUser Source #

Instances

getUserByName

getUserByName Source #

Arguments

:: Accept accept

request accept (MimeType)

-> Username

"username" - The name that needs to be fetched. Use user1 for testing.

-> SwaggerPetstoreRequest GetUserByName MimeNoContent User accept 
GET /user/{username}

Get user by user name

data GetUserByName Source #

Instances

loginUser

loginUser Source #

Arguments

:: Accept accept

request accept (MimeType)

-> Username

"username" - The user name for login

-> Password

"password" - The password for login in clear text

-> SwaggerPetstoreRequest LoginUser MimeNoContent Text accept 
GET /user/login

Logs user into the system

data LoginUser Source #

Instances

logoutUser

logoutUser :: SwaggerPetstoreRequest LogoutUser MimeNoContent NoContent MimeNoContent Source #

GET /user/logout

Logs out current logged in user session

data LogoutUser Source #

Instances

updateUser

updateUser Source #

Arguments

:: (Consumes UpdateUser contentType, MimeRender contentType User) 
=> ContentType contentType

request content-type (MimeType)

-> User

"user" - Updated user object

-> Username

"username" - name that need to be deleted

-> SwaggerPetstoreRequest UpdateUser contentType NoContent MimeNoContent 
PUT /user/{username}

Updated user

This can only be done by the logged in user.

data UpdateUser Source #

Instances

Produces UpdateUser MimeNoContent Source # 
HasBodyParam UpdateUser User Source #

Body Param User - Updated user object

Methods

setBodyParam :: (Consumes UpdateUser contentType, MimeRender contentType User) => SwaggerPetstoreRequest UpdateUser contentType res accept -> User -> SwaggerPetstoreRequest UpdateUser contentType res accept Source #

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Core.html b/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Core.html deleted file mode 100644 index 47619336668..00000000000 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Core.html +++ /dev/null @@ -1,4 +0,0 @@ -SwaggerPetstore.Core

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.Core

Contents

Description

 

Synopsis

SwaggerPetstoreConfig

data SwaggerPetstoreConfig Source #

Constructors

SwaggerPetstoreConfig 

Fields

Instances

newConfig :: IO SwaggerPetstoreConfig Source #

constructs a default SwaggerPetstoreConfig

configHost:

http://petstore.swagger.io:80/v2

configUserAgent:

"swagger-petstore/0.1.0.0"

addAuthMethod :: AuthMethod auth => SwaggerPetstoreConfig -> auth -> SwaggerPetstoreConfig Source #

updates config use AuthMethod on matching requests

withStdoutLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig Source #

updates the config to use stdout logging

withStderrLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig Source #

updates the config to use stderr logging

withNoLogging :: SwaggerPetstoreConfig -> SwaggerPetstoreConfig Source #

updates the config to disable logging

SwaggerPetstoreRequest

data SwaggerPetstoreRequest req contentType res accept Source #

Represents a request.

Type Variables:

  • req - request operation
  • contentType - MimeType associated with request body
  • res - response model
  • accept - MimeType associated with response body

Constructors

SwaggerPetstoreRequest 

Fields

Instances

Show (SwaggerPetstoreRequest req contentType res accept) Source # 

Methods

showsPrec :: Int -> SwaggerPetstoreRequest req contentType res accept -> ShowS #

show :: SwaggerPetstoreRequest req contentType res accept -> String #

showList :: [SwaggerPetstoreRequest req contentType res accept] -> ShowS #

rMethodL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) Method Source #

rMethod Lens

rUrlPathL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) [ByteString] Source #

rUrlPath Lens

rParamsL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) Params Source #

rParams Lens

rAuthTypesL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) [TypeRep] Source #

rParams Lens

HasBodyParam

class HasBodyParam req param where Source #

Designates the body parameter of a request

Methods

setBodyParam :: forall contentType res accept. (Consumes req contentType, MimeRender contentType param) => SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept Source #

Instances

HasBodyParam UpdateUser User Source #

Body Param User - Updated user object

Methods

setBodyParam :: (Consumes UpdateUser contentType, MimeRender contentType User) => SwaggerPetstoreRequest UpdateUser contentType res accept -> User -> SwaggerPetstoreRequest UpdateUser contentType res accept Source #

HasBodyParam CreateUsersWithListInput User2 Source #

Body Param User - List of user object

HasBodyParam CreateUsersWithArrayInput User2 Source #

Body Param User - List of user object

HasBodyParam CreateUser User Source #

Body Param User - Created user object

Methods

setBodyParam :: (Consumes CreateUser contentType, MimeRender contentType User) => SwaggerPetstoreRequest CreateUser contentType res accept -> User -> SwaggerPetstoreRequest CreateUser contentType res accept Source #

HasBodyParam PlaceOrder Order Source #

Body Param Order - order placed for purchasing the pet

Methods

setBodyParam :: (Consumes PlaceOrder contentType, MimeRender contentType Order) => SwaggerPetstoreRequest PlaceOrder contentType res accept -> Order -> SwaggerPetstoreRequest PlaceOrder contentType res accept Source #

HasBodyParam UpdatePet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes UpdatePet contentType, MimeRender contentType Pet) => SwaggerPetstoreRequest UpdatePet contentType res accept -> Pet -> SwaggerPetstoreRequest UpdatePet contentType res accept Source #

HasBodyParam AddPet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes AddPet contentType, MimeRender contentType Pet) => SwaggerPetstoreRequest AddPet contentType res accept -> Pet -> SwaggerPetstoreRequest AddPet contentType res accept Source #

HasBodyParam TestClassname Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClassname contentType, MimeRender contentType Client) => SwaggerPetstoreRequest TestClassname contentType res accept -> Client -> SwaggerPetstoreRequest TestClassname contentType res accept Source #

HasBodyParam TestInlineAdditionalProperties RequestBody Source #

Body Param "request_body" - request body

HasBodyParam TestClientModel Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClientModel contentType, MimeRender contentType Client) => SwaggerPetstoreRequest TestClientModel contentType res accept -> Client -> SwaggerPetstoreRequest TestClientModel contentType res accept Source #

HasBodyParam TestBodyWithQueryParams User Source # 
HasBodyParam FakeOuterStringSerialize BodyText Source #

Body Param "body" - Input string as post body

HasBodyParam FakeOuterNumberSerialize Body Source #

Body Param "body" - Input number as post body

HasBodyParam FakeOuterCompositeSerialize OuterComposite Source #

Body Param OuterComposite - Input composite as post body

HasBodyParam FakeOuterBooleanSerialize BooleanPostBody Source #

Body Param "boolean_post_body" - Input boolean as post body

HasBodyParam TestSpecialTags Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestSpecialTags contentType, MimeRender contentType Client) => SwaggerPetstoreRequest TestSpecialTags contentType res accept -> Client -> SwaggerPetstoreRequest TestSpecialTags contentType res accept Source #

HasOptionalParam

class HasOptionalParam req param where Source #

Designates the optional parameters of a request

Minimal complete definition

applyOptionalParam | (-&-)

Methods

applyOptionalParam :: SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept Source #

Apply an optional parameter to a request

(-&-) :: SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept infixl 2 Source #

infix operator / alias for addOptionalParam

Instances

HasOptionalParam UploadFile File Source #

Optional Param "file" - file to upload

Methods

applyOptionalParam :: SwaggerPetstoreRequest UploadFile contentType res accept -> File -> SwaggerPetstoreRequest UploadFile contentType res accept Source #

(-&-) :: SwaggerPetstoreRequest UploadFile contentType res accept -> File -> SwaggerPetstoreRequest UploadFile contentType res accept Source #

HasOptionalParam UploadFile AdditionalMetadata Source #

Optional Param "additionalMetadata" - Additional data to pass to server

HasOptionalParam UpdatePetWithForm StatusText Source #

Optional Param "status" - Updated status of the pet

HasOptionalParam UpdatePetWithForm Name2 Source #

Optional Param "name" - Updated name of the pet

HasOptionalParam DeletePet ApiKey Source # 

Methods

applyOptionalParam :: SwaggerPetstoreRequest DeletePet contentType res accept -> ApiKey -> SwaggerPetstoreRequest DeletePet contentType res accept Source #

(-&-) :: SwaggerPetstoreRequest DeletePet contentType res accept -> ApiKey -> SwaggerPetstoreRequest DeletePet contentType res accept Source #

HasOptionalParam TestEnumParameters EnumQueryStringArray Source #

Optional Param "enum_query_string_array" - Query parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumQueryString Source #

Optional Param "enum_query_string" - Query parameter enum test (string)

HasOptionalParam TestEnumParameters EnumQueryInteger Source #

Optional Param "enum_query_integer" - Query parameter enum test (double)

HasOptionalParam TestEnumParameters EnumQueryDouble Source #

Optional Param "enum_query_double" - Query parameter enum test (double)

HasOptionalParam TestEnumParameters EnumHeaderStringArray Source #

Optional Param "enum_header_string_array" - Header parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumHeaderString Source #

Optional Param "enum_header_string" - Header parameter enum test (string)

HasOptionalParam TestEnumParameters EnumFormStringArray Source #

Optional Param "enum_form_string_array" - Form parameter enum test (string array)

HasOptionalParam TestEnumParameters EnumFormString Source #

Optional Param "enum_form_string" - Form parameter enum test (string)

HasOptionalParam TestEndpointParameters Password Source #

Optional Param "password" - None

HasOptionalParam TestEndpointParameters ParamString Source #

Optional Param "string" - None

HasOptionalParam TestEndpointParameters ParamInteger Source #

Optional Param "integer" - None

HasOptionalParam TestEndpointParameters ParamFloat Source #

Optional Param "float" - None

HasOptionalParam TestEndpointParameters ParamDateTime Source #

Optional Param "dateTime" - None

HasOptionalParam TestEndpointParameters ParamDate Source #

Optional Param "date" - None

HasOptionalParam TestEndpointParameters ParamBinary Source #

Optional Param "binary" - None

HasOptionalParam TestEndpointParameters Int64 Source #

Optional Param "int64" - None

HasOptionalParam TestEndpointParameters Int32 Source #

Optional Param "int32" - None

HasOptionalParam TestEndpointParameters Callback Source #

Optional Param "callback" - None

data Params Source #

Request Params

Constructors

Params 

Fields

Instances

paramsQueryL :: Lens_' Params Query Source #

paramsQuery Lens

paramsHeadersL :: Lens_' Params RequestHeaders Source #

paramsHeaders Lens

paramsBodyL :: Lens_' Params ParamBody Source #

paramsBody Lens

data ParamBody Source #

Request Body

Constructors

ParamBodyNone 
ParamBodyB ByteString 
ParamBodyBL ByteString 
ParamBodyFormUrlEncoded Form 
ParamBodyMultipartFormData [Part] 

Instances

SwaggerPetstoreRequest Utils

_mkRequest Source #

Arguments

:: Method

Method

-> [ByteString]

Endpoint

-> SwaggerPetstoreRequest req contentType res accept

req: Request Type, res: Response Type

_mkParams :: Params Source #

setHeader :: SwaggerPetstoreRequest req contentType res accept -> [Header] -> SwaggerPetstoreRequest req contentType res accept Source #

removeHeader :: SwaggerPetstoreRequest req contentType res accept -> [HeaderName] -> SwaggerPetstoreRequest req contentType res accept Source #

_setContentTypeHeader :: forall req contentType res accept. MimeType contentType => SwaggerPetstoreRequest req contentType res accept -> SwaggerPetstoreRequest req contentType res accept Source #

_setAcceptHeader :: forall req contentType res accept. MimeType accept => SwaggerPetstoreRequest req contentType res accept -> SwaggerPetstoreRequest req contentType res accept Source #

setQuery :: SwaggerPetstoreRequest req contentType res accept -> [QueryItem] -> SwaggerPetstoreRequest req contentType res accept Source #

addForm :: SwaggerPetstoreRequest req contentType res accept -> Form -> SwaggerPetstoreRequest req contentType res accept Source #

_addMultiFormPart :: SwaggerPetstoreRequest req contentType res accept -> Part -> SwaggerPetstoreRequest req contentType res accept Source #

_setBodyBS :: SwaggerPetstoreRequest req contentType res accept -> ByteString -> SwaggerPetstoreRequest req contentType res accept Source #

_setBodyLBS :: SwaggerPetstoreRequest req contentType res accept -> ByteString -> SwaggerPetstoreRequest req contentType res accept Source #

_hasAuthType :: AuthMethod authMethod => SwaggerPetstoreRequest req contentType res accept -> Proxy authMethod -> SwaggerPetstoreRequest req contentType res accept Source #

Params Utils

toPath :: ToHttpApiData a => a -> ByteString Source #

toHeader :: ToHttpApiData a => (HeaderName, a) -> [Header] Source #

toForm :: ToHttpApiData v => (ByteString, v) -> Form Source #

toQuery :: ToHttpApiData a => (ByteString, Maybe a) -> [QueryItem] Source #

Swagger CollectionFormat Utils

data CollectionFormat Source #

Determines the format of the array if type array is used.

Constructors

CommaSeparated

CSV format for multiple parameters.

SpaceSeparated

Also called SSV

TabSeparated

Also called TSV

PipeSeparated

`value1|value2|value2`

MultiParamArray

Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" (Query) or "formData" (Form)

toHeaderColl :: ToHttpApiData a => CollectionFormat -> (HeaderName, [a]) -> [Header] Source #

toFormColl :: ToHttpApiData v => CollectionFormat -> (ByteString, [v]) -> Form Source #

toQueryColl :: ToHttpApiData a => CollectionFormat -> (ByteString, Maybe [a]) -> Query Source #

_toColl :: Traversable f => CollectionFormat -> (f a -> [(b, ByteString)]) -> f [a] -> [(b, ByteString)] Source #

_toCollA :: (Traversable f, Traversable t, Alternative t) => CollectionFormat -> (f (t a) -> [(b, t ByteString)]) -> f (t [a]) -> [(b, t ByteString)] Source #

_toCollA' :: (Monoid c, Traversable f, Traversable t, Alternative t) => CollectionFormat -> (f (t a) -> [(b, t c)]) -> (Char -> c) -> f (t [a]) -> [(b, t c)] Source #

AuthMethods

class Typeable a => AuthMethod a where Source #

Provides a method to apply auth methods to requests

Minimal complete definition

applyAuthMethod

Methods

applyAuthMethod :: SwaggerPetstoreConfig -> a -> SwaggerPetstoreRequest req contentType res accept -> IO (SwaggerPetstoreRequest req contentType res accept) Source #

Instances

data AnyAuthMethod Source #

An existential wrapper for any AuthMethod

Constructors

AuthMethod a => AnyAuthMethod a 

Instances

AuthMethod AnyAuthMethod Source # 

Methods

applyAuthMethod :: SwaggerPetstoreConfig -> AnyAuthMethod -> SwaggerPetstoreRequest req contentType res accept -> IO (SwaggerPetstoreRequest req contentType res accept) Source #

data AuthMethodException Source #

indicates exceptions related to AuthMethods

Constructors

AuthMethodException String 

Instances

_applyAuthMethods :: SwaggerPetstoreRequest req contentType res accept -> SwaggerPetstoreConfig -> IO (SwaggerPetstoreRequest req contentType res accept) Source #

apply all matching AuthMethods in config to request

Utils

_omitNulls :: [(Text, Value)] -> Value Source #

Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)

_toFormItem :: (ToHttpApiData a, Functor f) => t -> f a -> f (t, [Text]) Source #

Encodes fields using WH.toQueryParam

_emptyToNothing :: Maybe String -> Maybe String Source #

Collapse (Just "") to Nothing

_memptyToNothing :: (Monoid a, Eq a) => Maybe a -> Maybe a Source #

Collapse (Just mempty) to Nothing

DateTime Formatting

newtype DateTime Source #

Constructors

DateTime 

Fields

Instances

Eq DateTime Source # 
Data DateTime Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> DateTime -> c DateTime #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c DateTime #

toConstr :: DateTime -> Constr #

dataTypeOf :: DateTime -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c DateTime) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c DateTime) #

gmapT :: (forall b. Data b => b -> b) -> DateTime -> DateTime #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> DateTime -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> DateTime -> r #

gmapQ :: (forall d. Data d => d -> u) -> DateTime -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> DateTime -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> DateTime -> m DateTime #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> DateTime -> m DateTime #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> DateTime -> m DateTime #

Ord DateTime Source # 
Show DateTime Source # 
ToJSON DateTime Source # 
FromJSON DateTime Source # 
NFData DateTime Source # 

Methods

rnf :: DateTime -> () #

ToHttpApiData DateTime Source # 
FromHttpApiData DateTime Source # 
FormatTime DateTime Source # 
ParseTime DateTime Source # 
MimeRender MimeMultipartFormData DateTime Source # 

_readDateTime :: (ParseTime t, Monad m, Alternative m) => String -> m t Source #

_parseISO8601

_showDateTime :: (t ~ UTCTime, FormatTime t) => t -> String Source #

TI.formatISO8601Millis

_parseISO8601 :: (ParseTime t, Monad m, Alternative m) => String -> m t Source #

parse an ISO8601 date-time string

Date Formatting

newtype Date Source #

Constructors

Date 

Fields

Instances

Enum Date Source # 

Methods

succ :: Date -> Date #

pred :: Date -> Date #

toEnum :: Int -> Date #

fromEnum :: Date -> Int #

enumFrom :: Date -> [Date] #

enumFromThen :: Date -> Date -> [Date] #

enumFromTo :: Date -> Date -> [Date] #

enumFromThenTo :: Date -> Date -> Date -> [Date] #

Eq Date Source # 

Methods

(==) :: Date -> Date -> Bool #

(/=) :: Date -> Date -> Bool #

Data Date Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Date -> c Date #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Date #

toConstr :: Date -> Constr #

dataTypeOf :: Date -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c Date) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Date) #

gmapT :: (forall b. Data b => b -> b) -> Date -> Date #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Date -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Date -> r #

gmapQ :: (forall d. Data d => d -> u) -> Date -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> Date -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Date -> m Date #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Date -> m Date #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Date -> m Date #

Ord Date Source # 

Methods

compare :: Date -> Date -> Ordering #

(<) :: Date -> Date -> Bool #

(<=) :: Date -> Date -> Bool #

(>) :: Date -> Date -> Bool #

(>=) :: Date -> Date -> Bool #

max :: Date -> Date -> Date #

min :: Date -> Date -> Date #

Show Date Source # 

Methods

showsPrec :: Int -> Date -> ShowS #

show :: Date -> String #

showList :: [Date] -> ShowS #

Ix Date Source # 

Methods

range :: (Date, Date) -> [Date] #

index :: (Date, Date) -> Date -> Int #

unsafeIndex :: (Date, Date) -> Date -> Int

inRange :: (Date, Date) -> Date -> Bool #

rangeSize :: (Date, Date) -> Int #

unsafeRangeSize :: (Date, Date) -> Int

ToJSON Date Source # 
FromJSON Date Source # 
NFData Date Source # 

Methods

rnf :: Date -> () #

ToHttpApiData Date Source # 
FromHttpApiData Date Source # 
FormatTime Date Source # 
ParseTime Date Source # 

Methods

buildTime :: TimeLocale -> [(Char, String)] -> Maybe Date #

MimeRender MimeMultipartFormData Date Source # 

_readDate :: (ParseTime t, Monad m) => String -> m t Source #

TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"

_showDate :: FormatTime t => t -> String Source #

TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"

Byte/Binary Formatting

newtype ByteArray Source #

base64 encoded characters

Constructors

ByteArray 

Fields

Instances

Eq ByteArray Source # 
Data ByteArray Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ByteArray -> c ByteArray #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c ByteArray #

toConstr :: ByteArray -> Constr #

dataTypeOf :: ByteArray -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c ByteArray) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ByteArray) #

gmapT :: (forall b. Data b => b -> b) -> ByteArray -> ByteArray #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ByteArray -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ByteArray -> r #

gmapQ :: (forall d. Data d => d -> u) -> ByteArray -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> ByteArray -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> ByteArray -> m ByteArray #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ByteArray -> m ByteArray #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ByteArray -> m ByteArray #

Ord ByteArray Source # 
Show ByteArray Source # 
ToJSON ByteArray Source # 
FromJSON ByteArray Source # 
NFData ByteArray Source # 

Methods

rnf :: ByteArray -> () #

ToHttpApiData ByteArray Source # 
FromHttpApiData ByteArray Source # 
MimeRender MimeMultipartFormData ByteArray Source # 

_readByteArray :: Monad m => Text -> m ByteArray Source #

read base64 encoded characters

_showByteArray :: ByteArray -> Text Source #

show base64 encoded characters

newtype Binary Source #

any sequence of octets

Constructors

Binary 

Fields

Instances

Eq Binary Source # 

Methods

(==) :: Binary -> Binary -> Bool #

(/=) :: Binary -> Binary -> Bool #

Data Binary Source # 

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Binary -> c Binary #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Binary #

toConstr :: Binary -> Constr #

dataTypeOf :: Binary -> DataType #

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c Binary) #

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Binary) #

gmapT :: (forall b. Data b => b -> b) -> Binary -> Binary #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Binary -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Binary -> r #

gmapQ :: (forall d. Data d => d -> u) -> Binary -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> Binary -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Binary -> m Binary #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Binary -> m Binary #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Binary -> m Binary #

Ord Binary Source # 
Show Binary Source # 
ToJSON Binary Source # 
FromJSON Binary Source # 
NFData Binary Source # 

Methods

rnf :: Binary -> () #

ToHttpApiData Binary Source # 
FromHttpApiData Binary Source # 
MimeRender MimeMultipartFormData Binary Source # 

_readBinaryBase64 :: Monad m => Text -> m Binary Source #

_showBinaryBase64 :: Binary -> Text Source #

Lens Type Aliases

type Lens_' s a = Lens_ s s a a Source #

type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t Source #

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-MimeTypes.html b/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-MimeTypes.html deleted file mode 100644 index 3981ed5e45e..00000000000 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-MimeTypes.html +++ /dev/null @@ -1,4 +0,0 @@ -SwaggerPetstore.MimeTypes

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.MimeTypes

Contents

Description

 

Synopsis

ContentType MimeType

data ContentType a Source #

Constructors

MimeType a => ContentType 

Fields

Accept MimeType

data Accept a Source #

Constructors

MimeType a => Accept 

Fields

Consumes Class

class MimeType mtype => Consumes req mtype Source #

Instances

Produces Class

class MimeType mtype => Produces req mtype Source #

Instances

Produces UpdateUser MimeNoContent Source # 
Produces LogoutUser MimeNoContent Source # 
Produces LoginUser MimeXML Source #
application/xml
Produces LoginUser MimeJSON Source #
application/json
Produces GetUserByName MimeXML Source #
application/xml
Produces GetUserByName MimeJSON Source #
application/json
Produces DeleteUser MimeNoContent Source # 
Produces CreateUsersWithListInput MimeNoContent Source # 
Produces CreateUsersWithArrayInput MimeNoContent Source # 
Produces CreateUser MimeNoContent Source # 
Produces PlaceOrder MimeXML Source #
application/xml
Produces PlaceOrder MimeJSON Source #
application/json
Produces GetOrderById MimeXML Source #
application/xml
Produces GetOrderById MimeJSON Source #
application/json
Produces GetInventory MimeJSON Source #
application/json
Produces DeleteOrder MimeNoContent Source # 
Produces UploadFile MimeJSON Source #
application/json
Produces UpdatePetWithForm MimeNoContent Source # 
Produces UpdatePet MimeNoContent Source # 
Produces GetPetById MimeXML Source #
application/xml
Produces GetPetById MimeJSON Source #
application/json
Produces FindPetsByTags MimeXML Source #
application/xml
Produces FindPetsByTags MimeJSON Source #
application/json
Produces FindPetsByStatus MimeXML Source #
application/xml
Produces FindPetsByStatus MimeJSON Source #
application/json
Produces DeletePet MimeNoContent Source # 
Produces AddPet MimeNoContent Source # 
Produces TestClassname MimeJSON Source #
application/json
Produces TestJsonFormData MimeNoContent Source # 
Produces TestInlineAdditionalProperties MimeNoContent Source # 
Produces TestEnumParameters MimeNoContent Source # 
Produces TestEndpointParameters MimeNoContent Source # 
Produces TestClientModel MimeJSON Source #
application/json
Produces TestBodyWithQueryParams MimeNoContent Source # 
MimeType mtype => Produces FakeOuterStringSerialize mtype Source #
*/*
MimeType mtype => Produces FakeOuterNumberSerialize mtype Source #
*/*
MimeType mtype => Produces FakeOuterCompositeSerialize mtype Source #
*/*
MimeType mtype => Produces FakeOuterBooleanSerialize mtype Source #
*/*
Produces TestSpecialTags MimeJSON Source #
application/json

Default Mime Types

data MimeJSON Source #

Constructors

MimeJSON 

Instances

MimeType MimeJSON Source #
application/json; charset=utf-8
FromJSON a => MimeUnrender MimeJSON a Source #
A.eitherDecode
ToJSON a => MimeRender MimeJSON a Source #

encode

Produces LoginUser MimeJSON Source #
application/json
Produces GetUserByName MimeJSON Source #
application/json
Produces PlaceOrder MimeJSON Source #
application/json
Produces GetOrderById MimeJSON Source #
application/json
Produces GetInventory MimeJSON Source #
application/json
Produces UploadFile MimeJSON Source #
application/json
Produces GetPetById MimeJSON Source #
application/json
Produces FindPetsByTags MimeJSON Source #
application/json
Produces FindPetsByStatus MimeJSON Source #
application/json
Produces TestClassname MimeJSON Source #
application/json
Produces TestClientModel MimeJSON Source #
application/json
Produces TestSpecialTags MimeJSON Source #
application/json
Consumes UpdatePet MimeJSON Source #
application/json
Consumes AddPet MimeJSON Source #
application/json
Consumes TestClassname MimeJSON Source #
application/json
Consumes TestInlineAdditionalProperties MimeJSON Source #
application/json
Consumes TestClientModel MimeJSON Source #
application/json
Consumes TestBodyWithQueryParams MimeJSON Source #
application/json
Consumes TestSpecialTags MimeJSON Source #
application/json

data MimeXML Source #

Constructors

MimeXML 

Instances

data MimePlainText Source #

Constructors

MimePlainText 

Instances

MimeType MimePlainText Source #
text/plain; charset=utf-8
MimeUnrender MimePlainText ByteString Source #
P.Right . P.id
MimeUnrender MimePlainText String Source #
P.Right . BCL.unpack
MimeUnrender MimePlainText Text Source #
P.left P.show . TL.decodeUtf8'
MimeRender MimePlainText ByteString Source #
P.id
MimeRender MimePlainText String Source #
BCL.pack
MimeRender MimePlainText Text Source #
BL.fromStrict . T.encodeUtf8

data MimeFormUrlEncoded Source #

Constructors

MimeFormUrlEncoded 

Instances

data MimeMultipartFormData Source #

Constructors

MimeMultipartFormData 

Instances

MimeType MimeMultipartFormData Source #
multipart/form-data
MimeRender MimeMultipartFormData Bool Source # 
MimeRender MimeMultipartFormData Char Source # 
MimeRender MimeMultipartFormData Double Source # 
MimeRender MimeMultipartFormData Float Source # 
MimeRender MimeMultipartFormData Int Source # 
MimeRender MimeMultipartFormData Integer Source # 
MimeRender MimeMultipartFormData ByteString Source # 
MimeRender MimeMultipartFormData String Source # 
MimeRender MimeMultipartFormData Text Source # 
MimeRender MimeMultipartFormData Binary Source # 
MimeRender MimeMultipartFormData ByteArray Source # 
MimeRender MimeMultipartFormData Date Source # 
MimeRender MimeMultipartFormData DateTime Source # 
MimeRender MimeMultipartFormData OuterEnum Source # 
MimeRender MimeMultipartFormData EnumClass Source # 
MimeRender MimeMultipartFormData E'Status2 Source # 
MimeRender MimeMultipartFormData E'Status Source # 
MimeRender MimeMultipartFormData E'JustSymbol Source # 
MimeRender MimeMultipartFormData E'Inner Source # 
MimeRender MimeMultipartFormData E'EnumString Source # 
MimeRender MimeMultipartFormData E'EnumQueryInteger Source # 
MimeRender MimeMultipartFormData E'EnumNumber Source # 
MimeRender MimeMultipartFormData E'EnumInteger Source # 
MimeRender MimeMultipartFormData E'EnumFormStringArray Source # 
MimeRender MimeMultipartFormData E'EnumFormString Source # 
MimeRender MimeMultipartFormData E'ArrayEnum Source # 
Consumes UploadFile MimeMultipartFormData Source #
multipart/form-data

data MimeOctetStream Source #

Constructors

MimeOctetStream 

Instances

MimeType MimeOctetStream Source #
application/octet-stream
MimeUnrender MimeOctetStream ByteString Source #
P.Right . P.id
MimeUnrender MimeOctetStream String Source #
P.Right . BCL.unpack
MimeUnrender MimeOctetStream Text Source #
P.left P.show . T.decodeUtf8' . BL.toStrict
MimeRender MimeOctetStream ByteString Source #
P.id
MimeRender MimeOctetStream String Source #
BCL.pack
MimeRender MimeOctetStream Text Source #
BL.fromStrict . T.encodeUtf8

data MimeNoContent Source #

Constructors

MimeNoContent 

Instances

MimeType MimeNoContent Source # 
MimeUnrender MimeNoContent NoContent Source #
P.Right . P.const NoContent
MimeRender MimeNoContent NoContent Source #
P.Right . P.const NoContent
Produces UpdateUser MimeNoContent Source # 
Produces LogoutUser MimeNoContent Source # 
Produces DeleteUser MimeNoContent Source # 
Produces CreateUsersWithListInput MimeNoContent Source # 
Produces CreateUsersWithArrayInput MimeNoContent Source # 
Produces CreateUser MimeNoContent Source # 
Produces DeleteOrder MimeNoContent Source # 
Produces UpdatePetWithForm MimeNoContent Source # 
Produces UpdatePet MimeNoContent Source # 
Produces DeletePet MimeNoContent Source # 
Produces AddPet MimeNoContent Source # 
Produces TestJsonFormData MimeNoContent Source # 
Produces TestInlineAdditionalProperties MimeNoContent Source # 
Produces TestEnumParameters MimeNoContent Source # 
Produces TestEndpointParameters MimeNoContent Source # 
Produces TestBodyWithQueryParams MimeNoContent Source # 

data MimeAny Source #

Constructors

MimeAny 

Instances

data NoContent Source #

A type for responses without content-body.

Constructors

NoContent 

Instances

MimeType Class

class Typeable mtype => MimeType mtype where Source #

Minimal complete definition

mimeType | mimeTypes

Methods

mimeTypes :: Proxy mtype -> [MediaType] Source #

mimeType :: Proxy mtype -> Maybe MediaType Source #

mimeType' :: mtype -> Maybe MediaType Source #

mimeTypes' :: mtype -> [MediaType] Source #

Instances

MimeType MimeAny Source #
"*/*"
MimeType MimeNoContent Source # 
MimeType MimeOctetStream Source #
application/octet-stream
MimeType MimeMultipartFormData Source #
multipart/form-data
MimeType MimeFormUrlEncoded Source #
application/x-www-form-urlencoded
MimeType MimePlainText Source #
text/plain; charset=utf-8
MimeType MimeXML Source #
application/xml; charset=utf-8
MimeType MimeJSON Source #
application/json; charset=utf-8

MimeRender Class

class MimeType mtype => MimeRender mtype x where Source #

Minimal complete definition

mimeRender

Methods

mimeRender :: Proxy mtype -> x -> ByteString Source #

mimeRender' :: mtype -> x -> ByteString Source #

Instances

MimeRender MimeNoContent NoContent Source #
P.Right . P.const NoContent
MimeRender MimeOctetStream ByteString Source #
P.id
MimeRender MimeOctetStream String Source #
BCL.pack
MimeRender MimeOctetStream Text Source #
BL.fromStrict . T.encodeUtf8
MimeRender MimeMultipartFormData Bool Source # 
MimeRender MimeMultipartFormData Char Source # 
MimeRender MimeMultipartFormData Double Source # 
MimeRender MimeMultipartFormData Float Source # 
MimeRender MimeMultipartFormData Int Source # 
MimeRender MimeMultipartFormData Integer Source # 
MimeRender MimeMultipartFormData ByteString Source # 
MimeRender MimeMultipartFormData String Source # 
MimeRender MimeMultipartFormData Text Source # 
MimeRender MimeMultipartFormData Binary Source # 
MimeRender MimeMultipartFormData ByteArray Source # 
MimeRender MimeMultipartFormData Date Source # 
MimeRender MimeMultipartFormData DateTime Source # 
MimeRender MimeMultipartFormData OuterEnum Source # 
MimeRender MimeMultipartFormData EnumClass Source # 
MimeRender MimeMultipartFormData E'Status2 Source # 
MimeRender MimeMultipartFormData E'Status Source # 
MimeRender MimeMultipartFormData E'JustSymbol Source # 
MimeRender MimeMultipartFormData E'Inner Source # 
MimeRender MimeMultipartFormData E'EnumString Source # 
MimeRender MimeMultipartFormData E'EnumQueryInteger Source # 
MimeRender MimeMultipartFormData E'EnumNumber Source # 
MimeRender MimeMultipartFormData E'EnumInteger Source # 
MimeRender MimeMultipartFormData E'EnumFormStringArray Source # 
MimeRender MimeMultipartFormData E'EnumFormString Source # 
MimeRender MimeMultipartFormData E'ArrayEnum Source # 
ToForm a => MimeRender MimeFormUrlEncoded a Source #
WH.urlEncodeAsForm
MimeRender MimePlainText ByteString Source #
P.id
MimeRender MimePlainText String Source #
BCL.pack
MimeRender MimePlainText Text Source #
BL.fromStrict . T.encodeUtf8
ToJSON a => MimeRender MimeJSON a Source #

encode

mimeRenderDefaultMultipartFormData :: ToHttpApiData a => a -> ByteString Source #

MimeUnrender Class

class MimeType mtype => MimeUnrender mtype o where Source #

Minimal complete definition

mimeUnrender

Methods

mimeUnrender :: Proxy mtype -> ByteString -> Either String o Source #

mimeUnrender' :: mtype -> ByteString -> Either String o Source #

Instances

MimeUnrender MimeNoContent NoContent Source #
P.Right . P.const NoContent
MimeUnrender MimeOctetStream ByteString Source #
P.Right . P.id
MimeUnrender MimeOctetStream String Source #
P.Right . BCL.unpack
MimeUnrender MimeOctetStream Text Source #
P.left P.show . T.decodeUtf8' . BL.toStrict
FromForm a => MimeUnrender MimeFormUrlEncoded a Source #
P.left T.unpack . WH.urlDecodeAsForm
MimeUnrender MimePlainText ByteString Source #
P.Right . P.id
MimeUnrender MimePlainText String Source #
P.Right . BCL.unpack
MimeUnrender MimePlainText Text Source #
P.left P.show . TL.decodeUtf8'
FromJSON a => MimeUnrender MimeJSON a Source #
A.eitherDecode
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Model.html b/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Model.html deleted file mode 100644 index 16431d60682..00000000000 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Model.html +++ /dev/null @@ -1,11 +0,0 @@ -SwaggerPetstore.Model

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.Model

Contents

Description

 

Synopsis

Parameter newtypes

AdditionalMetadata

newtype AdditionalMetadata Source #

Constructors

AdditionalMetadata 

Fields

Instances

ApiKey

newtype ApiKey Source #

Constructors

ApiKey 

Fields

Instances

Body

newtype Body Source #

Constructors

Body 

Fields

Instances

Eq Body Source # 

Methods

(==) :: Body -> Body -> Bool #

(/=) :: Body -> Body -> Bool #

Show Body Source # 

Methods

showsPrec :: Int -> Body -> ShowS #

show :: Body -> String #

showList :: [Body] -> ShowS #

ToJSON Body Source # 
HasBodyParam FakeOuterNumberSerialize Body Source #

Body Param "body" - Input number as post body

BodyText

newtype BodyText Source #

Constructors

BodyText 

Fields

Instances

BooleanPostBody

newtype BooleanPostBody Source #

Constructors

BooleanPostBody 

Fields

Instances

Byte

newtype Byte Source #

Constructors

Byte 

Fields

Instances

Eq Byte Source # 

Methods

(==) :: Byte -> Byte -> Bool #

(/=) :: Byte -> Byte -> Bool #

Show Byte Source # 

Methods

showsPrec :: Int -> Byte -> ShowS #

show :: Byte -> String #

showList :: [Byte] -> ShowS #

Callback

newtype Callback Source #

Constructors

Callback 

Fields

Instances

EnumFormString

newtype EnumFormString Source #

Constructors

EnumFormString 

Fields

Instances

EnumFormStringArray

newtype EnumFormStringArray Source #

Constructors

EnumFormStringArray 

Fields

Instances

EnumHeaderString

newtype EnumHeaderString Source #

Constructors

EnumHeaderString 

Fields

Instances

EnumHeaderStringArray

newtype EnumHeaderStringArray Source #

Constructors

EnumHeaderStringArray 

Fields

Instances

EnumQueryDouble

newtype EnumQueryDouble Source #

Constructors

EnumQueryDouble 

Fields

Instances

EnumQueryInteger

newtype EnumQueryInteger Source #

Constructors

EnumQueryInteger 

Fields

Instances

EnumQueryString

newtype EnumQueryString Source #

Constructors

EnumQueryString 

Fields

Instances

EnumQueryStringArray

newtype EnumQueryStringArray Source #

Constructors

EnumQueryStringArray 

Fields

Instances

File

newtype File Source #

Constructors

File 

Fields

Instances

Eq File Source # 

Methods

(==) :: File -> File -> Bool #

(/=) :: File -> File -> Bool #

Show File Source # 

Methods

showsPrec :: Int -> File -> ShowS #

show :: File -> String #

showList :: [File] -> ShowS #

HasOptionalParam UploadFile File Source #

Optional Param "file" - file to upload

Methods

applyOptionalParam :: SwaggerPetstoreRequest UploadFile contentType res accept -> File -> SwaggerPetstoreRequest UploadFile contentType res accept Source #

(-&-) :: SwaggerPetstoreRequest UploadFile contentType res accept -> File -> SwaggerPetstoreRequest UploadFile contentType res accept Source #

Int32

newtype Int32 Source #

Constructors

Int32 

Fields

Instances

Int64

newtype Int64 Source #

Constructors

Int64 

Fields

Instances

Name2

newtype Name2 Source #

Constructors

Name2 

Fields

Instances

Eq Name2 Source # 

Methods

(==) :: Name2 -> Name2 -> Bool #

(/=) :: Name2 -> Name2 -> Bool #

Show Name2 Source # 

Methods

showsPrec :: Int -> Name2 -> ShowS #

show :: Name2 -> String #

showList :: [Name2] -> ShowS #

HasOptionalParam UpdatePetWithForm Name2 Source #

Optional Param "name" - Updated name of the pet

Number

newtype Number Source #

Constructors

Number 

Fields

Instances

OrderId

newtype OrderId Source #

Constructors

OrderId 

Fields

Instances

OrderIdText

newtype OrderIdText Source #

Constructors

OrderIdText 

Fields

Instances

Param

newtype Param Source #

Constructors

Param 

Fields

Instances

Eq Param Source # 

Methods

(==) :: Param -> Param -> Bool #

(/=) :: Param -> Param -> Bool #

Show Param Source # 

Methods

showsPrec :: Int -> Param -> ShowS #

show :: Param -> String #

showList :: [Param] -> ShowS #

Param2

newtype Param2 Source #

Constructors

Param2 

Fields

Instances

ParamBinary

newtype ParamBinary Source #

Constructors

ParamBinary 

Fields

Instances

ParamDate

newtype ParamDate Source #

Constructors

ParamDate 

Fields

Instances

ParamDateTime

newtype ParamDateTime Source #

Constructors

ParamDateTime 

Fields

Instances

ParamDouble

newtype ParamDouble Source #

Constructors

ParamDouble 

Fields

Instances

ParamFloat

newtype ParamFloat Source #

Constructors

ParamFloat 

Fields

Instances

ParamInteger

newtype ParamInteger Source #

Constructors

ParamInteger 

Fields

Instances

ParamString

newtype ParamString Source #

Constructors

ParamString 

Fields

Instances

Password

newtype Password Source #

Constructors

Password 

Fields

Instances

PatternWithoutDelimiter

newtype PatternWithoutDelimiter Source #

Constructors

PatternWithoutDelimiter 

Fields

Instances

PetId

newtype PetId Source #

Constructors

PetId 

Fields

Instances

Eq PetId Source # 

Methods

(==) :: PetId -> PetId -> Bool #

(/=) :: PetId -> PetId -> Bool #

Show PetId Source # 

Methods

showsPrec :: Int -> PetId -> ShowS #

show :: PetId -> String #

showList :: [PetId] -> ShowS #

Query

newtype Query Source #

Constructors

Query 

Fields

Instances

Eq Query Source # 

Methods

(==) :: Query -> Query -> Bool #

(/=) :: Query -> Query -> Bool #

Show Query Source # 

Methods

showsPrec :: Int -> Query -> ShowS #

show :: Query -> String #

showList :: [Query] -> ShowS #

RequestBody

newtype RequestBody Source #

Constructors

RequestBody 

Fields

Instances

Status

newtype Status Source #

Constructors

Status 

Fields

Instances

StatusText

newtype StatusText Source #

Constructors

StatusText 

Fields

Instances

Tags

newtype Tags Source #

Constructors

Tags 

Fields

Instances

Eq Tags Source # 

Methods

(==) :: Tags -> Tags -> Bool #

(/=) :: Tags -> Tags -> Bool #

Show Tags Source # 

Methods

showsPrec :: Int -> Tags -> ShowS #

show :: Tags -> String #

showList :: [Tags] -> ShowS #

User2

newtype User2 Source #

Constructors

User2 

Fields

Instances

Username

newtype Username Source #

Constructors

Username 

Fields

Instances

Models

AdditionalPropertiesClass

data AdditionalPropertiesClass Source #

AdditionalPropertiesClass

Constructors

AdditionalPropertiesClass 

Fields

Instances

mkAdditionalPropertiesClass :: AdditionalPropertiesClass Source #

Construct a value of type AdditionalPropertiesClass (by applying it's required fields, if any)

Animal

data Animal Source #

Animal

Constructors

Animal 

Fields

Instances

mkAnimal Source #

Arguments

:: Text

animalClassName

-> Animal 

Construct a value of type Animal (by applying it's required fields, if any)

AnimalFarm

newtype AnimalFarm Source #

AnimalFarm

Constructors

AnimalFarm 

Fields

Instances

ApiResponse

data ApiResponse Source #

ApiResponse

Constructors

ApiResponse 

Fields

Instances

mkApiResponse :: ApiResponse Source #

Construct a value of type ApiResponse (by applying it's required fields, if any)

ArrayOfArrayOfNumberOnly

data ArrayOfArrayOfNumberOnly Source #

ArrayOfArrayOfNumberOnly

Constructors

ArrayOfArrayOfNumberOnly 

Fields

Instances

mkArrayOfArrayOfNumberOnly :: ArrayOfArrayOfNumberOnly Source #

Construct a value of type ArrayOfArrayOfNumberOnly (by applying it's required fields, if any)

ArrayOfNumberOnly

data ArrayOfNumberOnly Source #

ArrayOfNumberOnly

Constructors

ArrayOfNumberOnly 

Fields

Instances

mkArrayOfNumberOnly :: ArrayOfNumberOnly Source #

Construct a value of type ArrayOfNumberOnly (by applying it's required fields, if any)

ArrayTest

data ArrayTest Source #

ArrayTest

Constructors

ArrayTest 

Fields

Instances

mkArrayTest :: ArrayTest Source #

Construct a value of type ArrayTest (by applying it's required fields, if any)

Capitalization

data Capitalization Source #

Capitalization

Constructors

Capitalization 

Fields

Instances

mkCapitalization :: Capitalization Source #

Construct a value of type Capitalization (by applying it's required fields, if any)

Cat

data Cat Source #

Cat

Constructors

Cat 

Fields

Instances

Eq Cat Source # 

Methods

(==) :: Cat -> Cat -> Bool #

(/=) :: Cat -> Cat -> Bool #

Show Cat Source # 

Methods

showsPrec :: Int -> Cat -> ShowS #

show :: Cat -> String #

showList :: [Cat] -> ShowS #

ToJSON Cat Source #

ToJSON Cat

FromJSON Cat Source #

FromJSON Cat

mkCat Source #

Arguments

:: Text

catClassName

-> Cat 

Construct a value of type Cat (by applying it's required fields, if any)

Category

data Category Source #

Category

Constructors

Category 

Fields

Instances

mkCategory :: Category Source #

Construct a value of type Category (by applying it's required fields, if any)

ClassModel

data ClassModel Source #

ClassModel - Model for testing model with "_class" property

Constructors

ClassModel 

Fields

Instances

mkClassModel :: ClassModel Source #

Construct a value of type ClassModel (by applying it's required fields, if any)

Client

data Client Source #

Client

Constructors

Client 

Fields

Instances

Eq Client Source # 

Methods

(==) :: Client -> Client -> Bool #

(/=) :: Client -> Client -> Bool #

Show Client Source # 
ToJSON Client Source #

ToJSON Client

FromJSON Client Source #

FromJSON Client

HasBodyParam TestClassname Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClassname contentType, MimeRender contentType Client) => SwaggerPetstoreRequest TestClassname contentType res accept -> Client -> SwaggerPetstoreRequest TestClassname contentType res accept Source #

HasBodyParam TestClientModel Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestClientModel contentType, MimeRender contentType Client) => SwaggerPetstoreRequest TestClientModel contentType res accept -> Client -> SwaggerPetstoreRequest TestClientModel contentType res accept Source #

HasBodyParam TestSpecialTags Client Source #

Body Param Client - client model

Methods

setBodyParam :: (Consumes TestSpecialTags contentType, MimeRender contentType Client) => SwaggerPetstoreRequest TestSpecialTags contentType res accept -> Client -> SwaggerPetstoreRequest TestSpecialTags contentType res accept Source #

mkClient :: Client Source #

Construct a value of type Client (by applying it's required fields, if any)

Dog

data Dog Source #

Dog

Constructors

Dog 

Fields

Instances

Eq Dog Source # 

Methods

(==) :: Dog -> Dog -> Bool #

(/=) :: Dog -> Dog -> Bool #

Show Dog Source # 

Methods

showsPrec :: Int -> Dog -> ShowS #

show :: Dog -> String #

showList :: [Dog] -> ShowS #

ToJSON Dog Source #

ToJSON Dog

FromJSON Dog Source #

FromJSON Dog

mkDog Source #

Arguments

:: Text

dogClassName

-> Dog 

Construct a value of type Dog (by applying it's required fields, if any)

EnumArrays

data EnumArrays Source #

EnumArrays

Constructors

EnumArrays 

Fields

Instances

mkEnumArrays :: EnumArrays Source #

Construct a value of type EnumArrays (by applying it's required fields, if any)

EnumTest

data EnumTest Source #

EnumTest

Constructors

EnumTest 

Fields

Instances

mkEnumTest Source #

Arguments

:: E'EnumString

enumTestEnumStringRequired

-> EnumTest 

Construct a value of type EnumTest (by applying it's required fields, if any)

FormatTest

data FormatTest Source #

FormatTest

Constructors

FormatTest 

Fields

Instances

mkFormatTest Source #

Arguments

:: Double

formatTestNumber

-> ByteArray

formatTestByte

-> Date

formatTestDate

-> Text

formatTestPassword

-> FormatTest 

Construct a value of type FormatTest (by applying it's required fields, if any)

HasOnlyReadOnly

data HasOnlyReadOnly Source #

HasOnlyReadOnly

Constructors

HasOnlyReadOnly 

Fields

Instances

mkHasOnlyReadOnly :: HasOnlyReadOnly Source #

Construct a value of type HasOnlyReadOnly (by applying it's required fields, if any)

MapTest

data MapTest Source #

MapTest

Constructors

MapTest 

Fields

Instances

mkMapTest :: MapTest Source #

Construct a value of type MapTest (by applying it's required fields, if any)

MixedPropertiesAndAdditionalPropertiesClass

data MixedPropertiesAndAdditionalPropertiesClass Source #

MixedPropertiesAndAdditionalPropertiesClass

Constructors

MixedPropertiesAndAdditionalPropertiesClass 

Fields

Instances

mkMixedPropertiesAndAdditionalPropertiesClass :: MixedPropertiesAndAdditionalPropertiesClass Source #

Construct a value of type MixedPropertiesAndAdditionalPropertiesClass (by applying it's required fields, if any)

Model200Response

data Model200Response Source #

Model200Response - Model for testing model name starting with number

Constructors

Model200Response 

Fields

Instances

mkModel200Response :: Model200Response Source #

Construct a value of type Model200Response (by applying it's required fields, if any)

ModelList

data ModelList Source #

ModelList

Constructors

ModelList 

Fields

Instances

mkModelList :: ModelList Source #

Construct a value of type ModelList (by applying it's required fields, if any)

ModelReturn

data ModelReturn Source #

ModelReturn - Model for testing reserved words

Constructors

ModelReturn 

Fields

Instances

mkModelReturn :: ModelReturn Source #

Construct a value of type ModelReturn (by applying it's required fields, if any)

Name

data Name Source #

Name - Model for testing model name same as property name

Constructors

Name 

Fields

Instances

mkName Source #

Arguments

:: Int

nameName

-> Name 

Construct a value of type Name (by applying it's required fields, if any)

NumberOnly

data NumberOnly Source #

NumberOnly

Constructors

NumberOnly 

Fields

Instances

mkNumberOnly :: NumberOnly Source #

Construct a value of type NumberOnly (by applying it's required fields, if any)

Order

data Order Source #

Order

Constructors

Order 

Fields

Instances

Eq Order Source # 

Methods

(==) :: Order -> Order -> Bool #

(/=) :: Order -> Order -> Bool #

Show Order Source # 

Methods

showsPrec :: Int -> Order -> ShowS #

show :: Order -> String #

showList :: [Order] -> ShowS #

ToJSON Order Source #

ToJSON Order

FromJSON Order Source #

FromJSON Order

HasBodyParam PlaceOrder Order Source #

Body Param Order - order placed for purchasing the pet

Methods

setBodyParam :: (Consumes PlaceOrder contentType, MimeRender contentType Order) => SwaggerPetstoreRequest PlaceOrder contentType res accept -> Order -> SwaggerPetstoreRequest PlaceOrder contentType res accept Source #

mkOrder :: Order Source #

Construct a value of type Order (by applying it's required fields, if any)

OuterBoolean

newtype OuterBoolean Source #

OuterBoolean

Constructors

OuterBoolean 

Fields

Instances

OuterComposite

data OuterComposite Source #

OuterComposite

Constructors

OuterComposite 

Fields

Instances

mkOuterComposite :: OuterComposite Source #

Construct a value of type OuterComposite (by applying it's required fields, if any)

OuterNumber

newtype OuterNumber Source #

OuterNumber

Constructors

OuterNumber 

Fields

Instances

OuterString

newtype OuterString Source #

OuterString

Constructors

OuterString 

Fields

Instances

Pet

data Pet Source #

Pet

Constructors

Pet 

Fields

Instances

Eq Pet Source # 

Methods

(==) :: Pet -> Pet -> Bool #

(/=) :: Pet -> Pet -> Bool #

Show Pet Source # 

Methods

showsPrec :: Int -> Pet -> ShowS #

show :: Pet -> String #

showList :: [Pet] -> ShowS #

ToJSON Pet Source #

ToJSON Pet

FromJSON Pet Source #

FromJSON Pet

HasBodyParam UpdatePet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes UpdatePet contentType, MimeRender contentType Pet) => SwaggerPetstoreRequest UpdatePet contentType res accept -> Pet -> SwaggerPetstoreRequest UpdatePet contentType res accept Source #

HasBodyParam AddPet Pet Source #

Body Param Pet - Pet object that needs to be added to the store

Methods

setBodyParam :: (Consumes AddPet contentType, MimeRender contentType Pet) => SwaggerPetstoreRequest AddPet contentType res accept -> Pet -> SwaggerPetstoreRequest AddPet contentType res accept Source #

mkPet Source #

Arguments

:: Text

petName

-> [Text]

petPhotoUrls

-> Pet 

Construct a value of type Pet (by applying it's required fields, if any)

ReadOnlyFirst

data ReadOnlyFirst Source #

ReadOnlyFirst

Constructors

ReadOnlyFirst 

Fields

Instances

mkReadOnlyFirst :: ReadOnlyFirst Source #

Construct a value of type ReadOnlyFirst (by applying it's required fields, if any)

SpecialModelName

data SpecialModelName Source #

SpecialModelName

Constructors

SpecialModelName 

Fields

Instances

mkSpecialModelName :: SpecialModelName Source #

Construct a value of type SpecialModelName (by applying it's required fields, if any)

Tag

data Tag Source #

Tag

Constructors

Tag 

Fields

Instances

Eq Tag Source # 

Methods

(==) :: Tag -> Tag -> Bool #

(/=) :: Tag -> Tag -> Bool #

Show Tag Source # 

Methods

showsPrec :: Int -> Tag -> ShowS #

show :: Tag -> String #

showList :: [Tag] -> ShowS #

ToJSON Tag Source #

ToJSON Tag

FromJSON Tag Source #

FromJSON Tag

mkTag :: Tag Source #

Construct a value of type Tag (by applying it's required fields, if any)

User

data User Source #

User

Constructors

User 

Fields

Instances

Eq User Source # 

Methods

(==) :: User -> User -> Bool #

(/=) :: User -> User -> Bool #

Show User Source # 

Methods

showsPrec :: Int -> User -> ShowS #

show :: User -> String #

showList :: [User] -> ShowS #

ToJSON User Source #

ToJSON User

FromJSON User Source #

FromJSON User

HasBodyParam UpdateUser User Source #

Body Param User - Updated user object

Methods

setBodyParam :: (Consumes UpdateUser contentType, MimeRender contentType User) => SwaggerPetstoreRequest UpdateUser contentType res accept -> User -> SwaggerPetstoreRequest UpdateUser contentType res accept Source #

HasBodyParam CreateUser User Source #

Body Param User - Created user object

Methods

setBodyParam :: (Consumes CreateUser contentType, MimeRender contentType User) => SwaggerPetstoreRequest CreateUser contentType res accept -> User -> SwaggerPetstoreRequest CreateUser contentType res accept Source #

HasBodyParam TestBodyWithQueryParams User Source # 

mkUser :: User Source #

Construct a value of type User (by applying it's required fields, if any)

Enums

E'ArrayEnum

data E'ArrayEnum Source #

Enum of Text

Constructors

E'ArrayEnum'Fish
"fish"
E'ArrayEnum'Crab
"crab"

Instances

Bounded E'ArrayEnum Source # 
Enum E'ArrayEnum Source # 
Eq E'ArrayEnum Source # 
Ord E'ArrayEnum Source # 
Show E'ArrayEnum Source # 
ToJSON E'ArrayEnum Source # 
FromJSON E'ArrayEnum Source # 
ToHttpApiData E'ArrayEnum Source # 
FromHttpApiData E'ArrayEnum Source # 
MimeRender MimeMultipartFormData E'ArrayEnum Source # 

fromE'ArrayEnum :: E'ArrayEnum -> Text Source #

unwrap E'ArrayEnum enum

toE'ArrayEnum :: Text -> Either String E'ArrayEnum Source #

parse E'ArrayEnum enum

E'EnumFormString

data E'EnumFormString Source #

Enum of Text . - Form parameter enum test (string)

Constructors

E'EnumFormString'_abc
"_abc"
E'EnumFormString'_efg
"-efg"
E'EnumFormString'_xyz
"(xyz)"

Instances

Bounded E'EnumFormString Source # 
Enum E'EnumFormString Source # 
Eq E'EnumFormString Source # 
Ord E'EnumFormString Source # 
Show E'EnumFormString Source # 
ToJSON E'EnumFormString Source # 
FromJSON E'EnumFormString Source # 
ToHttpApiData E'EnumFormString Source # 
FromHttpApiData E'EnumFormString Source # 
MimeRender MimeMultipartFormData E'EnumFormString Source # 

fromE'EnumFormString :: E'EnumFormString -> Text Source #

unwrap E'EnumFormString enum

toE'EnumFormString :: Text -> Either String E'EnumFormString Source #

parse E'EnumFormString enum

E'EnumFormStringArray

data E'EnumFormStringArray Source #

Enum of Text

Constructors

E'EnumFormStringArray'GreaterThan
">"
E'EnumFormStringArray'Dollar
"$"

Instances

Bounded E'EnumFormStringArray Source # 
Enum E'EnumFormStringArray Source # 
Eq E'EnumFormStringArray Source # 
Ord E'EnumFormStringArray Source # 
Show E'EnumFormStringArray Source # 
ToJSON E'EnumFormStringArray Source # 
FromJSON E'EnumFormStringArray Source # 
ToHttpApiData E'EnumFormStringArray Source # 
FromHttpApiData E'EnumFormStringArray Source # 
MimeRender MimeMultipartFormData E'EnumFormStringArray Source # 

fromE'EnumFormStringArray :: E'EnumFormStringArray -> Text Source #

unwrap E'EnumFormStringArray enum

toE'EnumFormStringArray :: Text -> Either String E'EnumFormStringArray Source #

parse E'EnumFormStringArray enum

E'EnumInteger

data E'EnumInteger Source #

Enum of Int

Constructors

E'EnumInteger'Num1
1
E'EnumInteger'NumMinus_1
-1

Instances

Bounded E'EnumInteger Source # 
Enum E'EnumInteger Source # 
Eq E'EnumInteger Source # 
Ord E'EnumInteger Source # 
Show E'EnumInteger Source # 
ToJSON E'EnumInteger Source # 
FromJSON E'EnumInteger Source # 
ToHttpApiData E'EnumInteger Source # 
FromHttpApiData E'EnumInteger Source # 
MimeRender MimeMultipartFormData E'EnumInteger Source # 

fromE'EnumInteger :: E'EnumInteger -> Int Source #

unwrap E'EnumInteger enum

toE'EnumInteger :: Int -> Either String E'EnumInteger Source #

parse E'EnumInteger enum

E'EnumNumber

data E'EnumNumber Source #

Enum of Double

Constructors

E'EnumNumber'Num1_Dot_1
1.1
E'EnumNumber'NumMinus_1_Dot_2
-1.2

Instances

Bounded E'EnumNumber Source # 
Enum E'EnumNumber Source # 
Eq E'EnumNumber Source # 
Ord E'EnumNumber Source # 
Show E'EnumNumber Source # 
ToJSON E'EnumNumber Source # 
FromJSON E'EnumNumber Source # 
ToHttpApiData E'EnumNumber Source # 
FromHttpApiData E'EnumNumber Source # 
MimeRender MimeMultipartFormData E'EnumNumber Source # 

fromE'EnumNumber :: E'EnumNumber -> Double Source #

unwrap E'EnumNumber enum

toE'EnumNumber :: Double -> Either String E'EnumNumber Source #

parse E'EnumNumber enum

E'EnumQueryInteger

data E'EnumQueryInteger Source #

Enum of Int

Constructors

E'EnumQueryInteger'Num1
1
E'EnumQueryInteger'NumMinus_2
-2

Instances

Bounded E'EnumQueryInteger Source # 
Enum E'EnumQueryInteger Source # 
Eq E'EnumQueryInteger Source # 
Ord E'EnumQueryInteger Source # 
Show E'EnumQueryInteger Source # 
ToJSON E'EnumQueryInteger Source # 
FromJSON E'EnumQueryInteger Source # 
ToHttpApiData E'EnumQueryInteger Source # 
FromHttpApiData E'EnumQueryInteger Source # 
MimeRender MimeMultipartFormData E'EnumQueryInteger Source # 

fromE'EnumQueryInteger :: E'EnumQueryInteger -> Int Source #

unwrap E'EnumQueryInteger enum

toE'EnumQueryInteger :: Int -> Either String E'EnumQueryInteger Source #

parse E'EnumQueryInteger enum

E'EnumString

data E'EnumString Source #

Enum of Text

Constructors

E'EnumString'UPPER
UPPER
E'EnumString'Lower
"lower"
E'EnumString'Empty
""

Instances

Bounded E'EnumString Source # 
Enum E'EnumString Source # 
Eq E'EnumString Source # 
Ord E'EnumString Source # 
Show E'EnumString Source # 
ToJSON E'EnumString Source # 
FromJSON E'EnumString Source # 
ToHttpApiData E'EnumString Source # 
FromHttpApiData E'EnumString Source # 
MimeRender MimeMultipartFormData E'EnumString Source # 

fromE'EnumString :: E'EnumString -> Text Source #

unwrap E'EnumString enum

toE'EnumString :: Text -> Either String E'EnumString Source #

parse E'EnumString enum

E'Inner

data E'Inner Source #

Enum of Text

Constructors

E'Inner'UPPER
UPPER
E'Inner'Lower
"lower"

Instances

Bounded E'Inner Source # 
Enum E'Inner Source # 
Eq E'Inner Source # 

Methods

(==) :: E'Inner -> E'Inner -> Bool #

(/=) :: E'Inner -> E'Inner -> Bool #

Ord E'Inner Source # 
Show E'Inner Source # 
ToJSON E'Inner Source # 
FromJSON E'Inner Source # 
ToHttpApiData E'Inner Source # 
FromHttpApiData E'Inner Source # 
MimeRender MimeMultipartFormData E'Inner Source # 

fromE'Inner :: E'Inner -> Text Source #

unwrap E'Inner enum

toE'Inner :: Text -> Either String E'Inner Source #

parse E'Inner enum

E'JustSymbol

data E'JustSymbol Source #

Enum of Text

Constructors

E'JustSymbol'Greater_Than_Or_Equal_To
">="
E'JustSymbol'Dollar
"$"

Instances

Bounded E'JustSymbol Source # 
Enum E'JustSymbol Source # 
Eq E'JustSymbol Source # 
Ord E'JustSymbol Source # 
Show E'JustSymbol Source # 
ToJSON E'JustSymbol Source # 
FromJSON E'JustSymbol Source # 
ToHttpApiData E'JustSymbol Source # 
FromHttpApiData E'JustSymbol Source # 
MimeRender MimeMultipartFormData E'JustSymbol Source # 

fromE'JustSymbol :: E'JustSymbol -> Text Source #

unwrap E'JustSymbol enum

toE'JustSymbol :: Text -> Either String E'JustSymbol Source #

parse E'JustSymbol enum

E'Status

data E'Status Source #

Enum of Text . - Order Status

Constructors

E'Status'Placed
"placed"
E'Status'Approved
"approved"
E'Status'Delivered
"delivered"

Instances

Bounded E'Status Source # 
Enum E'Status Source # 
Eq E'Status Source # 
Ord E'Status Source # 
Show E'Status Source # 
ToJSON E'Status Source # 
FromJSON E'Status Source # 
ToHttpApiData E'Status Source # 
FromHttpApiData E'Status Source # 
MimeRender MimeMultipartFormData E'Status Source # 

fromE'Status :: E'Status -> Text Source #

unwrap E'Status enum

toE'Status :: Text -> Either String E'Status Source #

parse E'Status enum

E'Status2

data E'Status2 Source #

Enum of Text . - pet status in the store

Constructors

E'Status2'Available
"available"
E'Status2'Pending
"pending"
E'Status2'Sold
"sold"

Instances

Bounded E'Status2 Source # 
Enum E'Status2 Source # 
Eq E'Status2 Source # 
Ord E'Status2 Source # 
Show E'Status2 Source # 
ToJSON E'Status2 Source # 
FromJSON E'Status2 Source # 
ToHttpApiData E'Status2 Source # 
FromHttpApiData E'Status2 Source # 
MimeRender MimeMultipartFormData E'Status2 Source # 

fromE'Status2 :: E'Status2 -> Text Source #

unwrap E'Status2 enum

toE'Status2 :: Text -> Either String E'Status2 Source #

parse E'Status2 enum

EnumClass

data EnumClass Source #

Enum of Text

Constructors

EnumClass'_abc
"_abc"
EnumClass'_efg
"-efg"
EnumClass'_xyz
"(xyz)"

Instances

Bounded EnumClass Source # 
Enum EnumClass Source # 
Eq EnumClass Source # 
Ord EnumClass Source # 
Show EnumClass Source # 
ToJSON EnumClass Source # 
FromJSON EnumClass Source # 
ToHttpApiData EnumClass Source # 
FromHttpApiData EnumClass Source # 
MimeRender MimeMultipartFormData EnumClass Source # 

fromEnumClass :: EnumClass -> Text Source #

unwrap EnumClass enum

toEnumClass :: Text -> Either String EnumClass Source #

parse EnumClass enum

OuterEnum

data OuterEnum Source #

Enum of Text

Constructors

OuterEnum'Placed
"placed"
OuterEnum'Approved
"approved"
OuterEnum'Delivered
"delivered"

Instances

Bounded OuterEnum Source # 
Enum OuterEnum Source # 
Eq OuterEnum Source # 
Ord OuterEnum Source # 
Show OuterEnum Source # 
ToJSON OuterEnum Source # 
FromJSON OuterEnum Source # 
ToHttpApiData OuterEnum Source # 
FromHttpApiData OuterEnum Source # 
MimeRender MimeMultipartFormData OuterEnum Source # 

fromOuterEnum :: OuterEnum -> Text Source #

unwrap OuterEnum enum

toOuterEnum :: Text -> Either String OuterEnum Source #

parse OuterEnum enum

Auth Methods

AuthApiKeyApiKey

data AuthApiKeyApiKey Source #

Constructors

AuthApiKeyApiKey Text

secret

Instances

AuthApiKeyApiKeyQuery

data AuthApiKeyApiKeyQuery Source #

Constructors

AuthApiKeyApiKeyQuery Text

secret

Instances

AuthBasicHttpBasicTest

data AuthBasicHttpBasicTest Source #

Constructors

AuthBasicHttpBasicTest ByteString ByteString

username password

Instances

AuthOAuthPetstoreAuth

data AuthOAuthPetstoreAuth Source #

Constructors

AuthOAuthPetstoreAuth Text

secret

Instances

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-ModelLens.html b/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-ModelLens.html deleted file mode 100644 index 5bf85963d3d..00000000000 --- a/samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-ModelLens.html +++ /dev/null @@ -1,4 +0,0 @@ -SwaggerPetstore.ModelLens

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Safe HaskellNone
LanguageHaskell2010

SwaggerPetstore.ModelLens

Contents

Description

 

Synopsis

AdditionalPropertiesClass

additionalPropertiesClassMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map String Text)) Source #

additionalPropertiesClassMapProperty Lens

additionalPropertiesClassMapOfMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map String (Map String Text))) Source #

additionalPropertiesClassMapOfMapProperty Lens

Animal

animalClassNameL :: Lens_' Animal Text Source #

animalClassName Lens

animalColorL :: Lens_' Animal (Maybe Text) Source #

animalColor Lens

AnimalFarm

ApiResponse

apiResponseCodeL :: Lens_' ApiResponse (Maybe Int) Source #

apiResponseCode Lens

apiResponseTypeL :: Lens_' ApiResponse (Maybe Text) Source #

apiResponseType Lens

apiResponseMessageL :: Lens_' ApiResponse (Maybe Text) Source #

apiResponseMessage Lens

ArrayOfArrayOfNumberOnly

arrayOfArrayOfNumberOnlyArrayArrayNumberL :: Lens_' ArrayOfArrayOfNumberOnly (Maybe [[Double]]) Source #

arrayOfArrayOfNumberOnlyArrayArrayNumber Lens

ArrayOfNumberOnly

arrayOfNumberOnlyArrayNumberL :: Lens_' ArrayOfNumberOnly (Maybe [Double]) Source #

arrayOfNumberOnlyArrayNumber Lens

ArrayTest

arrayTestArrayOfStringL :: Lens_' ArrayTest (Maybe [Text]) Source #

arrayTestArrayOfString Lens

arrayTestArrayArrayOfIntegerL :: Lens_' ArrayTest (Maybe [[Integer]]) Source #

arrayTestArrayArrayOfInteger Lens

arrayTestArrayArrayOfModelL :: Lens_' ArrayTest (Maybe [[ReadOnlyFirst]]) Source #

arrayTestArrayArrayOfModel Lens

Capitalization

capitalizationSmallCamelL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationSmallCamel Lens

capitalizationCapitalCamelL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationCapitalCamel Lens

capitalizationSmallSnakeL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationSmallSnake Lens

capitalizationCapitalSnakeL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationCapitalSnake Lens

capitalizationScaEthFlowPointsL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationScaEthFlowPoints Lens

capitalizationAttNameL :: Lens_' Capitalization (Maybe Text) Source #

capitalizationAttName Lens

Cat

catClassNameL :: Lens_' Cat Text Source #

catClassName Lens

catColorL :: Lens_' Cat (Maybe Text) Source #

catColor Lens

catDeclawedL :: Lens_' Cat (Maybe Bool) Source #

catDeclawed Lens

Category

categoryIdL :: Lens_' Category (Maybe Integer) Source #

categoryId Lens

categoryNameL :: Lens_' Category (Maybe Text) Source #

categoryName Lens

ClassModel

classModelClassL :: Lens_' ClassModel (Maybe Text) Source #

classModelClass Lens

Client

clientClientL :: Lens_' Client (Maybe Text) Source #

clientClient Lens

Dog

dogClassNameL :: Lens_' Dog Text Source #

dogClassName Lens

dogColorL :: Lens_' Dog (Maybe Text) Source #

dogColor Lens

dogBreedL :: Lens_' Dog (Maybe Text) Source #

dogBreed Lens

EnumArrays

enumArraysJustSymbolL :: Lens_' EnumArrays (Maybe E'JustSymbol) Source #

enumArraysJustSymbol Lens

enumArraysArrayEnumL :: Lens_' EnumArrays (Maybe [E'ArrayEnum]) Source #

enumArraysArrayEnum Lens

EnumClass

EnumTest

enumTestEnumStringL :: Lens_' EnumTest (Maybe E'EnumString) Source #

enumTestEnumString Lens

enumTestEnumStringRequiredL :: Lens_' EnumTest E'EnumString Source #

enumTestEnumStringRequired Lens

enumTestEnumIntegerL :: Lens_' EnumTest (Maybe E'EnumInteger) Source #

enumTestEnumInteger Lens

enumTestEnumNumberL :: Lens_' EnumTest (Maybe E'EnumNumber) Source #

enumTestEnumNumber Lens

enumTestOuterEnumL :: Lens_' EnumTest (Maybe OuterEnum) Source #

enumTestOuterEnum Lens

FormatTest

formatTestIntegerL :: Lens_' FormatTest (Maybe Int) Source #

formatTestInteger Lens

formatTestInt32L :: Lens_' FormatTest (Maybe Int) Source #

formatTestInt32 Lens

formatTestInt64L :: Lens_' FormatTest (Maybe Integer) Source #

formatTestInt64 Lens

formatTestNumberL :: Lens_' FormatTest Double Source #

formatTestNumber Lens

formatTestFloatL :: Lens_' FormatTest (Maybe Float) Source #

formatTestFloat Lens

formatTestDoubleL :: Lens_' FormatTest (Maybe Double) Source #

formatTestDouble Lens

formatTestStringL :: Lens_' FormatTest (Maybe Text) Source #

formatTestString Lens

formatTestByteL :: Lens_' FormatTest ByteArray Source #

formatTestByte Lens

formatTestBinaryL :: Lens_' FormatTest (Maybe FilePath) Source #

formatTestBinary Lens

formatTestDateL :: Lens_' FormatTest Date Source #

formatTestDate Lens

formatTestDateTimeL :: Lens_' FormatTest (Maybe DateTime) Source #

formatTestDateTime Lens

formatTestUuidL :: Lens_' FormatTest (Maybe Text) Source #

formatTestUuid Lens

formatTestPasswordL :: Lens_' FormatTest Text Source #

formatTestPassword Lens

HasOnlyReadOnly

hasOnlyReadOnlyBarL :: Lens_' HasOnlyReadOnly (Maybe Text) Source #

hasOnlyReadOnlyBar Lens

hasOnlyReadOnlyFooL :: Lens_' HasOnlyReadOnly (Maybe Text) Source #

hasOnlyReadOnlyFoo Lens

MapTest

mapTestMapMapOfStringL :: Lens_' MapTest (Maybe (Map String (Map String Text))) Source #

mapTestMapMapOfString Lens

mapTestMapOfEnumStringL :: Lens_' MapTest (Maybe (Map String E'Inner)) Source #

mapTestMapOfEnumString Lens

MixedPropertiesAndAdditionalPropertiesClass

mixedPropertiesAndAdditionalPropertiesClassUuidL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe Text) Source #

mixedPropertiesAndAdditionalPropertiesClassUuid Lens

mixedPropertiesAndAdditionalPropertiesClassDateTimeL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe DateTime) Source #

mixedPropertiesAndAdditionalPropertiesClassDateTime Lens

mixedPropertiesAndAdditionalPropertiesClassMapL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe (Map String Animal)) Source #

mixedPropertiesAndAdditionalPropertiesClassMap Lens

Model200Response

model200ResponseNameL :: Lens_' Model200Response (Maybe Int) Source #

model200ResponseName Lens

model200ResponseClassL :: Lens_' Model200Response (Maybe Text) Source #

model200ResponseClass Lens

ModelList

modelList123ListL :: Lens_' ModelList (Maybe Text) Source #

modelList123List Lens

ModelReturn

modelReturnReturnL :: Lens_' ModelReturn (Maybe Int) Source #

modelReturnReturn Lens

Name

nameNameL :: Lens_' Name Int Source #

nameName Lens

nameSnakeCaseL :: Lens_' Name (Maybe Int) Source #

nameSnakeCase Lens

namePropertyL :: Lens_' Name (Maybe Text) Source #

nameProperty Lens

name123NumberL :: Lens_' Name (Maybe Int) Source #

name123Number Lens

NumberOnly

numberOnlyJustNumberL :: Lens_' NumberOnly (Maybe Double) Source #

numberOnlyJustNumber Lens

Order

orderIdL :: Lens_' Order (Maybe Integer) Source #

orderId Lens

orderPetIdL :: Lens_' Order (Maybe Integer) Source #

orderPetId Lens

orderQuantityL :: Lens_' Order (Maybe Int) Source #

orderQuantity Lens

orderShipDateL :: Lens_' Order (Maybe DateTime) Source #

orderShipDate Lens

orderStatusL :: Lens_' Order (Maybe E'Status) Source #

orderStatus Lens

orderCompleteL :: Lens_' Order (Maybe Bool) Source #

orderComplete Lens

OuterBoolean

OuterComposite

outerCompositeMyNumberL :: Lens_' OuterComposite (Maybe OuterNumber) Source #

outerCompositeMyNumber Lens

outerCompositeMyStringL :: Lens_' OuterComposite (Maybe OuterString) Source #

outerCompositeMyString Lens

outerCompositeMyBooleanL :: Lens_' OuterComposite (Maybe OuterBoolean) Source #

outerCompositeMyBoolean Lens

OuterEnum

OuterNumber

OuterString

Pet

petIdL :: Lens_' Pet (Maybe Integer) Source #

petId Lens

petCategoryL :: Lens_' Pet (Maybe Category) Source #

petCategory Lens

petNameL :: Lens_' Pet Text Source #

petName Lens

petPhotoUrlsL :: Lens_' Pet [Text] Source #

petPhotoUrls Lens

petTagsL :: Lens_' Pet (Maybe [Tag]) Source #

petTags Lens

petStatusL :: Lens_' Pet (Maybe E'Status2) Source #

petStatus Lens

ReadOnlyFirst

readOnlyFirstBarL :: Lens_' ReadOnlyFirst (Maybe Text) Source #

readOnlyFirstBar Lens

readOnlyFirstBazL :: Lens_' ReadOnlyFirst (Maybe Text) Source #

readOnlyFirstBaz Lens

SpecialModelName

specialModelNameSpecialPropertyNameL :: Lens_' SpecialModelName (Maybe Integer) Source #

specialModelNameSpecialPropertyName Lens

Tag

tagIdL :: Lens_' Tag (Maybe Integer) Source #

tagId Lens

tagNameL :: Lens_' Tag (Maybe Text) Source #

tagName Lens

User

userIdL :: Lens_' User (Maybe Integer) Source #

userId Lens

userUsernameL :: Lens_' User (Maybe Text) Source #

userUsername Lens

userFirstNameL :: Lens_' User (Maybe Text) Source #

userFirstName Lens

userLastNameL :: Lens_' User (Maybe Text) Source #

userLastName Lens

userEmailL :: Lens_' User (Maybe Text) Source #

userEmail Lens

userPasswordL :: Lens_' User (Maybe Text) Source #

userPassword Lens

userPhoneL :: Lens_' User (Maybe Text) Source #

userPhone Lens

userUserStatusL :: Lens_' User (Maybe Int) Source #

userUserStatus Lens

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-45.html b/samples/client/petstore/haskell-http-client/docs/doc-index-45.html index adbf1c2b3ee..581b28b33e5 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-45.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-45.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - -)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - -

-&-SwaggerPetstore.Core, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - -

-&-OpenAPIPetstore.Core, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-95.html b/samples/client/petstore/haskell-http-client/docs/doc-index-95.html index 3e49b949fe6..6f3e59af328 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-95.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-95.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - _)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - _

_addMultiFormPartSwaggerPetstore.Core, SwaggerPetstore
_applyAuthMethodsSwaggerPetstore.Core, SwaggerPetstore
_emptyToNothingSwaggerPetstore.Core, SwaggerPetstore
_hasAuthTypeSwaggerPetstore.Core, SwaggerPetstore
_logSwaggerPetstore.Logging, SwaggerPetstore
_memptyToNothingSwaggerPetstore.Core, SwaggerPetstore
_mkParamsSwaggerPetstore.Core, SwaggerPetstore
_mkRequestSwaggerPetstore.Core, SwaggerPetstore
_omitNullsSwaggerPetstore.Core, SwaggerPetstore
_parseISO8601SwaggerPetstore.Core, SwaggerPetstore
_readBinaryBase64SwaggerPetstore.Core, SwaggerPetstore
_readByteArraySwaggerPetstore.Core, SwaggerPetstore
_readDateSwaggerPetstore.Core, SwaggerPetstore
_readDateTimeSwaggerPetstore.Core, SwaggerPetstore
_setAcceptHeaderSwaggerPetstore.Core, SwaggerPetstore
_setBodyBSSwaggerPetstore.Core, SwaggerPetstore
_setBodyLBSSwaggerPetstore.Core, SwaggerPetstore
_setContentTypeHeaderSwaggerPetstore.Core, SwaggerPetstore
_showBinaryBase64SwaggerPetstore.Core, SwaggerPetstore
_showByteArraySwaggerPetstore.Core, SwaggerPetstore
_showDateSwaggerPetstore.Core, SwaggerPetstore
_showDateTimeSwaggerPetstore.Core, SwaggerPetstore
_toCollSwaggerPetstore.Core, SwaggerPetstore
_toCollASwaggerPetstore.Core, SwaggerPetstore
_toCollA'SwaggerPetstore.Core, SwaggerPetstore
_toFormItemSwaggerPetstore.Core, SwaggerPetstore
_toInitRequestSwaggerPetstore.Client, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - _

_addMultiFormPartOpenAPIPetstore.Core, OpenAPIPetstore
_applyAuthMethodsOpenAPIPetstore.Core, OpenAPIPetstore
_emptyToNothingOpenAPIPetstore.Core, OpenAPIPetstore
_hasAuthTypeOpenAPIPetstore.Core, OpenAPIPetstore
_logOpenAPIPetstore.Logging, OpenAPIPetstore
_memptyToNothingOpenAPIPetstore.Core, OpenAPIPetstore
_mkParamsOpenAPIPetstore.Core, OpenAPIPetstore
_mkRequestOpenAPIPetstore.Core, OpenAPIPetstore
_omitNullsOpenAPIPetstore.Core, OpenAPIPetstore
_parseISO8601OpenAPIPetstore.Core, OpenAPIPetstore
_readBinaryBase64OpenAPIPetstore.Core, OpenAPIPetstore
_readByteArrayOpenAPIPetstore.Core, OpenAPIPetstore
_readDateOpenAPIPetstore.Core, OpenAPIPetstore
_readDateTimeOpenAPIPetstore.Core, OpenAPIPetstore
_setAcceptHeaderOpenAPIPetstore.Core, OpenAPIPetstore
_setBodyBSOpenAPIPetstore.Core, OpenAPIPetstore
_setBodyLBSOpenAPIPetstore.Core, OpenAPIPetstore
_setContentTypeHeaderOpenAPIPetstore.Core, OpenAPIPetstore
_showBinaryBase64OpenAPIPetstore.Core, OpenAPIPetstore
_showByteArrayOpenAPIPetstore.Core, OpenAPIPetstore
_showDateOpenAPIPetstore.Core, OpenAPIPetstore
_showDateTimeOpenAPIPetstore.Core, OpenAPIPetstore
_toCollOpenAPIPetstore.Core, OpenAPIPetstore
_toCollAOpenAPIPetstore.Core, OpenAPIPetstore
_toCollA'OpenAPIPetstore.Core, OpenAPIPetstore
_toFormItemOpenAPIPetstore.Core, OpenAPIPetstore
_toInitRequestOpenAPIPetstore.Client, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-A.html b/samples/client/petstore/haskell-http-client/docs/doc-index-A.html index b281ac98a0d..780e19e9c7c 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-A.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-A.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - A)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - A

Accept 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
addAuthMethodSwaggerPetstore.Core, SwaggerPetstore
addFormSwaggerPetstore.Core, SwaggerPetstore
AdditionalMetadata 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
AdditionalPropertiesClass 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
additionalPropertiesClassMapOfMapPropertySwaggerPetstore.Model, SwaggerPetstore
additionalPropertiesClassMapOfMapPropertyLSwaggerPetstore.ModelLens, SwaggerPetstore
additionalPropertiesClassMapPropertySwaggerPetstore.Model, SwaggerPetstore
additionalPropertiesClassMapPropertyLSwaggerPetstore.ModelLens, SwaggerPetstore
AddPetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
addPetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
Animal 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
animalClassNameSwaggerPetstore.Model, SwaggerPetstore
animalClassNameLSwaggerPetstore.ModelLens, SwaggerPetstore
animalColorSwaggerPetstore.Model, SwaggerPetstore
animalColorLSwaggerPetstore.ModelLens, SwaggerPetstore
AnimalFarm 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
AnyAuthMethod 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
ApiKey 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ApiResponse 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
apiResponseCodeSwaggerPetstore.Model, SwaggerPetstore
apiResponseCodeLSwaggerPetstore.ModelLens, SwaggerPetstore
apiResponseMessageSwaggerPetstore.Model, SwaggerPetstore
apiResponseMessageLSwaggerPetstore.ModelLens, SwaggerPetstore
apiResponseTypeSwaggerPetstore.Model, SwaggerPetstore
apiResponseTypeLSwaggerPetstore.ModelLens, SwaggerPetstore
applyAuthMethodSwaggerPetstore.Core, SwaggerPetstore
applyOptionalParamSwaggerPetstore.Core, SwaggerPetstore
ArrayOfArrayOfNumberOnly 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
arrayOfArrayOfNumberOnlyArrayArrayNumberSwaggerPetstore.Model, SwaggerPetstore
arrayOfArrayOfNumberOnlyArrayArrayNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
ArrayOfNumberOnly 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
arrayOfNumberOnlyArrayNumberSwaggerPetstore.Model, SwaggerPetstore
arrayOfNumberOnlyArrayNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
ArrayTest 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
arrayTestArrayArrayOfIntegerSwaggerPetstore.Model, SwaggerPetstore
arrayTestArrayArrayOfIntegerLSwaggerPetstore.ModelLens, SwaggerPetstore
arrayTestArrayArrayOfModelSwaggerPetstore.Model, SwaggerPetstore
arrayTestArrayArrayOfModelLSwaggerPetstore.ModelLens, SwaggerPetstore
arrayTestArrayOfStringSwaggerPetstore.Model, SwaggerPetstore
arrayTestArrayOfStringLSwaggerPetstore.ModelLens, SwaggerPetstore
AuthApiKeyApiKey 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
AuthApiKeyApiKeyQuery 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
AuthBasicHttpBasicTest 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
AuthMethodSwaggerPetstore.Core, SwaggerPetstore
AuthMethodException 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
AuthOAuthPetstoreAuth 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - A

Accept 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
addAuthMethodOpenAPIPetstore.Core, OpenAPIPetstore
addFormOpenAPIPetstore.Core, OpenAPIPetstore
AdditionalMetadata 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
AdditionalPropertiesClass 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
additionalPropertiesClassMapOfMapPropertyOpenAPIPetstore.Model, OpenAPIPetstore
additionalPropertiesClassMapOfMapPropertyLOpenAPIPetstore.ModelLens, OpenAPIPetstore
additionalPropertiesClassMapPropertyOpenAPIPetstore.Model, OpenAPIPetstore
additionalPropertiesClassMapPropertyLOpenAPIPetstore.ModelLens, OpenAPIPetstore
AddPetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
addPetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
Animal 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
animalClassNameOpenAPIPetstore.Model, OpenAPIPetstore
animalClassNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
animalColorOpenAPIPetstore.Model, OpenAPIPetstore
animalColorLOpenAPIPetstore.ModelLens, OpenAPIPetstore
AnimalFarm 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
AnyAuthMethod 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
ApiKey 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ApiResponse 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
apiResponseCodeOpenAPIPetstore.Model, OpenAPIPetstore
apiResponseCodeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
apiResponseMessageOpenAPIPetstore.Model, OpenAPIPetstore
apiResponseMessageLOpenAPIPetstore.ModelLens, OpenAPIPetstore
apiResponseTypeOpenAPIPetstore.Model, OpenAPIPetstore
apiResponseTypeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
applyAuthMethodOpenAPIPetstore.Core, OpenAPIPetstore
applyOptionalParamOpenAPIPetstore.Core, OpenAPIPetstore
ArrayOfArrayOfNumberOnly 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
arrayOfArrayOfNumberOnlyArrayArrayNumberOpenAPIPetstore.Model, OpenAPIPetstore
arrayOfArrayOfNumberOnlyArrayArrayNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
ArrayOfNumberOnly 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
arrayOfNumberOnlyArrayNumberOpenAPIPetstore.Model, OpenAPIPetstore
arrayOfNumberOnlyArrayNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
ArrayTest 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
arrayTestArrayArrayOfIntegerOpenAPIPetstore.Model, OpenAPIPetstore
arrayTestArrayArrayOfIntegerLOpenAPIPetstore.ModelLens, OpenAPIPetstore
arrayTestArrayArrayOfModelOpenAPIPetstore.Model, OpenAPIPetstore
arrayTestArrayArrayOfModelLOpenAPIPetstore.ModelLens, OpenAPIPetstore
arrayTestArrayOfStringOpenAPIPetstore.Model, OpenAPIPetstore
arrayTestArrayOfStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
AuthApiKeyApiKey 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
AuthApiKeyApiKeyQuery 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
AuthBasicHttpBasicTest 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
AuthMethodOpenAPIPetstore.Core, OpenAPIPetstore
AuthMethodException 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
AuthOAuthPetstoreAuth 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-All.html b/samples/client/petstore/haskell-http-client/docs/doc-index-All.html index 9d4b7682205..b903fcd7f82 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-All.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-All.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index

-&-SwaggerPetstore.Core, SwaggerPetstore
Accept 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
addAuthMethodSwaggerPetstore.Core, SwaggerPetstore
addFormSwaggerPetstore.Core, SwaggerPetstore
AdditionalMetadata 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
AdditionalPropertiesClass 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
additionalPropertiesClassMapOfMapPropertySwaggerPetstore.Model, SwaggerPetstore
additionalPropertiesClassMapOfMapPropertyLSwaggerPetstore.ModelLens, SwaggerPetstore
additionalPropertiesClassMapPropertySwaggerPetstore.Model, SwaggerPetstore
additionalPropertiesClassMapPropertyLSwaggerPetstore.ModelLens, SwaggerPetstore
AddPetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
addPetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
Animal 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
animalClassNameSwaggerPetstore.Model, SwaggerPetstore
animalClassNameLSwaggerPetstore.ModelLens, SwaggerPetstore
animalColorSwaggerPetstore.Model, SwaggerPetstore
animalColorLSwaggerPetstore.ModelLens, SwaggerPetstore
AnimalFarm 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
AnyAuthMethod 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
ApiKey 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ApiResponse 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
apiResponseCodeSwaggerPetstore.Model, SwaggerPetstore
apiResponseCodeLSwaggerPetstore.ModelLens, SwaggerPetstore
apiResponseMessageSwaggerPetstore.Model, SwaggerPetstore
apiResponseMessageLSwaggerPetstore.ModelLens, SwaggerPetstore
apiResponseTypeSwaggerPetstore.Model, SwaggerPetstore
apiResponseTypeLSwaggerPetstore.ModelLens, SwaggerPetstore
applyAuthMethodSwaggerPetstore.Core, SwaggerPetstore
applyOptionalParamSwaggerPetstore.Core, SwaggerPetstore
ArrayOfArrayOfNumberOnly 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
arrayOfArrayOfNumberOnlyArrayArrayNumberSwaggerPetstore.Model, SwaggerPetstore
arrayOfArrayOfNumberOnlyArrayArrayNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
ArrayOfNumberOnly 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
arrayOfNumberOnlyArrayNumberSwaggerPetstore.Model, SwaggerPetstore
arrayOfNumberOnlyArrayNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
ArrayTest 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
arrayTestArrayArrayOfIntegerSwaggerPetstore.Model, SwaggerPetstore
arrayTestArrayArrayOfIntegerLSwaggerPetstore.ModelLens, SwaggerPetstore
arrayTestArrayArrayOfModelSwaggerPetstore.Model, SwaggerPetstore
arrayTestArrayArrayOfModelLSwaggerPetstore.ModelLens, SwaggerPetstore
arrayTestArrayOfStringSwaggerPetstore.Model, SwaggerPetstore
arrayTestArrayOfStringLSwaggerPetstore.ModelLens, SwaggerPetstore
AuthApiKeyApiKey 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
AuthApiKeyApiKeyQuery 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
AuthBasicHttpBasicTest 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
AuthMethodSwaggerPetstore.Core, SwaggerPetstore
AuthMethodException 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
AuthOAuthPetstoreAuth 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Binary 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
Body 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
BodyText 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
BooleanPostBody 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Byte 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ByteArray 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
Callback 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Capitalization 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
capitalizationAttNameSwaggerPetstore.Model, SwaggerPetstore
capitalizationAttNameLSwaggerPetstore.ModelLens, SwaggerPetstore
capitalizationCapitalCamelSwaggerPetstore.Model, SwaggerPetstore
capitalizationCapitalCamelLSwaggerPetstore.ModelLens, SwaggerPetstore
capitalizationCapitalSnakeSwaggerPetstore.Model, SwaggerPetstore
capitalizationCapitalSnakeLSwaggerPetstore.ModelLens, SwaggerPetstore
capitalizationScaEthFlowPointsSwaggerPetstore.Model, SwaggerPetstore
capitalizationScaEthFlowPointsLSwaggerPetstore.ModelLens, SwaggerPetstore
capitalizationSmallCamelSwaggerPetstore.Model, SwaggerPetstore
capitalizationSmallCamelLSwaggerPetstore.ModelLens, SwaggerPetstore
capitalizationSmallSnakeSwaggerPetstore.Model, SwaggerPetstore
capitalizationSmallSnakeLSwaggerPetstore.ModelLens, SwaggerPetstore
Cat 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
catClassNameSwaggerPetstore.Model, SwaggerPetstore
catClassNameLSwaggerPetstore.ModelLens, SwaggerPetstore
catColorSwaggerPetstore.Model, SwaggerPetstore
catColorLSwaggerPetstore.ModelLens, SwaggerPetstore
catDeclawedSwaggerPetstore.Model, SwaggerPetstore
catDeclawedLSwaggerPetstore.ModelLens, SwaggerPetstore
Category 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
categoryIdSwaggerPetstore.Model, SwaggerPetstore
categoryIdLSwaggerPetstore.ModelLens, SwaggerPetstore
categoryNameSwaggerPetstore.Model, SwaggerPetstore
categoryNameLSwaggerPetstore.ModelLens, SwaggerPetstore
ClassModel 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
classModelClassSwaggerPetstore.Model, SwaggerPetstore
classModelClassLSwaggerPetstore.ModelLens, SwaggerPetstore
Client 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
clientClientSwaggerPetstore.Model, SwaggerPetstore
clientClientLSwaggerPetstore.ModelLens, SwaggerPetstore
CollectionFormatSwaggerPetstore.Core, SwaggerPetstore
CommaSeparatedSwaggerPetstore.Core, SwaggerPetstore
configAuthMethodsSwaggerPetstore.Core, SwaggerPetstore
configHostSwaggerPetstore.Core, SwaggerPetstore
configLogContextSwaggerPetstore.Core, SwaggerPetstore
configLogExecWithContextSwaggerPetstore.Core, SwaggerPetstore
configUserAgentSwaggerPetstore.Core, SwaggerPetstore
configValidateAuthMethodsSwaggerPetstore.Core, SwaggerPetstore
ConsumesSwaggerPetstore.MimeTypes, SwaggerPetstore
ContentType 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
CreateUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
createUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
CreateUsersWithArrayInputSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
createUsersWithArrayInputSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
CreateUsersWithListInputSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
createUsersWithListInputSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
Date 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
DateTime 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
DeleteOrderSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
deleteOrderSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
DeletePetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
deletePetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
DeleteUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
deleteUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
dispatchInitUnsafeSwaggerPetstore.Client, SwaggerPetstore
dispatchLbsSwaggerPetstore.Client, SwaggerPetstore
dispatchLbsUnsafeSwaggerPetstore.Client, SwaggerPetstore
dispatchMimeSwaggerPetstore.Client, SwaggerPetstore
dispatchMime'SwaggerPetstore.Client, SwaggerPetstore
Dog 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
dogBreedSwaggerPetstore.Model, SwaggerPetstore
dogBreedLSwaggerPetstore.ModelLens, SwaggerPetstore
dogClassNameSwaggerPetstore.Model, SwaggerPetstore
dogClassNameLSwaggerPetstore.ModelLens, SwaggerPetstore
dogColorSwaggerPetstore.Model, SwaggerPetstore
dogColorLSwaggerPetstore.ModelLens, SwaggerPetstore
E'ArrayEnumSwaggerPetstore.Model, SwaggerPetstore
E'ArrayEnum'CrabSwaggerPetstore.Model, SwaggerPetstore
E'ArrayEnum'FishSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormStringSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormString'_abcSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormString'_efgSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormString'_xyzSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormStringArraySwaggerPetstore.Model, SwaggerPetstore
E'EnumFormStringArray'DollarSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormStringArray'GreaterThanSwaggerPetstore.Model, SwaggerPetstore
E'EnumIntegerSwaggerPetstore.Model, SwaggerPetstore
E'EnumInteger'Num1SwaggerPetstore.Model, SwaggerPetstore
E'EnumInteger'NumMinus_1SwaggerPetstore.Model, SwaggerPetstore
E'EnumNumberSwaggerPetstore.Model, SwaggerPetstore
E'EnumNumber'Num1_Dot_1SwaggerPetstore.Model, SwaggerPetstore
E'EnumNumber'NumMinus_1_Dot_2SwaggerPetstore.Model, SwaggerPetstore
E'EnumQueryIntegerSwaggerPetstore.Model, SwaggerPetstore
E'EnumQueryInteger'Num1SwaggerPetstore.Model, SwaggerPetstore
E'EnumQueryInteger'NumMinus_2SwaggerPetstore.Model, SwaggerPetstore
E'EnumStringSwaggerPetstore.Model, SwaggerPetstore
E'EnumString'EmptySwaggerPetstore.Model, SwaggerPetstore
E'EnumString'LowerSwaggerPetstore.Model, SwaggerPetstore
E'EnumString'UPPERSwaggerPetstore.Model, SwaggerPetstore
E'InnerSwaggerPetstore.Model, SwaggerPetstore
E'Inner'LowerSwaggerPetstore.Model, SwaggerPetstore
E'Inner'UPPERSwaggerPetstore.Model, SwaggerPetstore
E'JustSymbolSwaggerPetstore.Model, SwaggerPetstore
E'JustSymbol'DollarSwaggerPetstore.Model, SwaggerPetstore
E'JustSymbol'Greater_Than_Or_Equal_ToSwaggerPetstore.Model, SwaggerPetstore
E'StatusSwaggerPetstore.Model, SwaggerPetstore
E'Status'ApprovedSwaggerPetstore.Model, SwaggerPetstore
E'Status'DeliveredSwaggerPetstore.Model, SwaggerPetstore
E'Status'PlacedSwaggerPetstore.Model, SwaggerPetstore
E'Status2SwaggerPetstore.Model, SwaggerPetstore
E'Status2'AvailableSwaggerPetstore.Model, SwaggerPetstore
E'Status2'PendingSwaggerPetstore.Model, SwaggerPetstore
E'Status2'SoldSwaggerPetstore.Model, SwaggerPetstore
EnumArrays 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
enumArraysArrayEnumSwaggerPetstore.Model, SwaggerPetstore
enumArraysArrayEnumLSwaggerPetstore.ModelLens, SwaggerPetstore
enumArraysJustSymbolSwaggerPetstore.Model, SwaggerPetstore
enumArraysJustSymbolLSwaggerPetstore.ModelLens, SwaggerPetstore
EnumClassSwaggerPetstore.Model, SwaggerPetstore
EnumClass'_abcSwaggerPetstore.Model, SwaggerPetstore
EnumClass'_efgSwaggerPetstore.Model, SwaggerPetstore
EnumClass'_xyzSwaggerPetstore.Model, SwaggerPetstore
EnumFormString 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumFormStringArray 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumHeaderString 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumHeaderStringArray 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumQueryDouble 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumQueryInteger 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumQueryString 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumQueryStringArray 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumTest 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
enumTestEnumIntegerSwaggerPetstore.Model, SwaggerPetstore
enumTestEnumIntegerLSwaggerPetstore.ModelLens, SwaggerPetstore
enumTestEnumNumberSwaggerPetstore.Model, SwaggerPetstore
enumTestEnumNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
enumTestEnumStringSwaggerPetstore.Model, SwaggerPetstore
enumTestEnumStringLSwaggerPetstore.ModelLens, SwaggerPetstore
enumTestEnumStringRequiredSwaggerPetstore.Model, SwaggerPetstore
enumTestEnumStringRequiredLSwaggerPetstore.ModelLens, SwaggerPetstore
enumTestOuterEnumSwaggerPetstore.Model, SwaggerPetstore
enumTestOuterEnumLSwaggerPetstore.ModelLens, SwaggerPetstore
FakeOuterBooleanSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
fakeOuterBooleanSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
FakeOuterCompositeSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
fakeOuterCompositeSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
FakeOuterNumberSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
fakeOuterNumberSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
FakeOuterStringSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
fakeOuterStringSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
File 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
FindPetsByStatusSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
findPetsByStatusSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
FindPetsByTagsSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
findPetsByTagsSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
FormatTest 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
formatTestBinarySwaggerPetstore.Model, SwaggerPetstore
formatTestBinaryLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestByteSwaggerPetstore.Model, SwaggerPetstore
formatTestByteLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestDateSwaggerPetstore.Model, SwaggerPetstore
formatTestDateLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestDateTimeSwaggerPetstore.Model, SwaggerPetstore
formatTestDateTimeLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestDoubleSwaggerPetstore.Model, SwaggerPetstore
formatTestDoubleLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestFloatSwaggerPetstore.Model, SwaggerPetstore
formatTestFloatLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestInt32SwaggerPetstore.Model, SwaggerPetstore
formatTestInt32LSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestInt64SwaggerPetstore.Model, SwaggerPetstore
formatTestInt64LSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestIntegerSwaggerPetstore.Model, SwaggerPetstore
formatTestIntegerLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestNumberSwaggerPetstore.Model, SwaggerPetstore
formatTestNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestPasswordSwaggerPetstore.Model, SwaggerPetstore
formatTestPasswordLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestStringSwaggerPetstore.Model, SwaggerPetstore
formatTestStringLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestUuidSwaggerPetstore.Model, SwaggerPetstore
formatTestUuidLSwaggerPetstore.ModelLens, SwaggerPetstore
fromE'ArrayEnumSwaggerPetstore.Model, SwaggerPetstore
fromE'EnumFormStringSwaggerPetstore.Model, SwaggerPetstore
fromE'EnumFormStringArraySwaggerPetstore.Model, SwaggerPetstore
fromE'EnumIntegerSwaggerPetstore.Model, SwaggerPetstore
fromE'EnumNumberSwaggerPetstore.Model, SwaggerPetstore
fromE'EnumQueryIntegerSwaggerPetstore.Model, SwaggerPetstore
fromE'EnumStringSwaggerPetstore.Model, SwaggerPetstore
fromE'InnerSwaggerPetstore.Model, SwaggerPetstore
fromE'JustSymbolSwaggerPetstore.Model, SwaggerPetstore
fromE'StatusSwaggerPetstore.Model, SwaggerPetstore
fromE'Status2SwaggerPetstore.Model, SwaggerPetstore
fromEnumClassSwaggerPetstore.Model, SwaggerPetstore
fromOuterEnumSwaggerPetstore.Model, SwaggerPetstore
GetInventorySwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
getInventorySwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
GetOrderByIdSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
getOrderByIdSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
GetPetByIdSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
getPetByIdSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
GetUserByNameSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
getUserByNameSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
HasBodyParamSwaggerPetstore.Core, SwaggerPetstore
HasOnlyReadOnly 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
hasOnlyReadOnlyBarSwaggerPetstore.Model, SwaggerPetstore
hasOnlyReadOnlyBarLSwaggerPetstore.ModelLens, SwaggerPetstore
hasOnlyReadOnlyFooSwaggerPetstore.Model, SwaggerPetstore
hasOnlyReadOnlyFooLSwaggerPetstore.ModelLens, SwaggerPetstore
HasOptionalParamSwaggerPetstore.Core, SwaggerPetstore
initLogContextSwaggerPetstore.Logging, SwaggerPetstore
InitRequest 
1 (Type/Class)SwaggerPetstore.Client, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Client, SwaggerPetstore
Int32 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Int64 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Lens_SwaggerPetstore.Core, SwaggerPetstore
Lens_'SwaggerPetstore.Core, SwaggerPetstore
levelDebugSwaggerPetstore.Logging, SwaggerPetstore
levelErrorSwaggerPetstore.Logging, SwaggerPetstore
levelInfoSwaggerPetstore.Logging, SwaggerPetstore
LogContextSwaggerPetstore.Logging, SwaggerPetstore
logExceptionsSwaggerPetstore.Logging, SwaggerPetstore
LogExecSwaggerPetstore.Logging, SwaggerPetstore
LogExecWithContextSwaggerPetstore.Logging, SwaggerPetstore
LoginUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
loginUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
LogLevelSwaggerPetstore.Logging, SwaggerPetstore
LogoutUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
logoutUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
MapTest 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
mapTestMapMapOfStringSwaggerPetstore.Model, SwaggerPetstore
mapTestMapMapOfStringLSwaggerPetstore.ModelLens, SwaggerPetstore
mapTestMapOfEnumStringSwaggerPetstore.Model, SwaggerPetstore
mapTestMapOfEnumStringLSwaggerPetstore.ModelLens, SwaggerPetstore
MimeAny 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeError 
1 (Type/Class)SwaggerPetstore.Client, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Client, SwaggerPetstore
mimeErrorSwaggerPetstore.Client, SwaggerPetstore
mimeErrorResponseSwaggerPetstore.Client, SwaggerPetstore
MimeFormUrlEncoded 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeJSON 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeMultipartFormData 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeNoContent 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeOctetStream 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimePlainText 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeRenderSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeRenderSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeRender'SwaggerPetstore.MimeTypes, SwaggerPetstore
mimeRenderDefaultMultipartFormDataSwaggerPetstore.MimeTypes, SwaggerPetstore
MimeResult 
1 (Type/Class)SwaggerPetstore.Client, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Client, SwaggerPetstore
mimeResultSwaggerPetstore.Client, SwaggerPetstore
mimeResultResponseSwaggerPetstore.Client, SwaggerPetstore
MimeTypeSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeTypeSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeType'SwaggerPetstore.MimeTypes, SwaggerPetstore
mimeTypesSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeTypes'SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeUnrenderSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeUnrenderSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeUnrender'SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeXML 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MixedPropertiesAndAdditionalPropertiesClass 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassDateTimeSwaggerPetstore.Model, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassDateTimeLSwaggerPetstore.ModelLens, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassMapSwaggerPetstore.Model, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassMapLSwaggerPetstore.ModelLens, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassUuidSwaggerPetstore.Model, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassUuidLSwaggerPetstore.ModelLens, SwaggerPetstore
mkAdditionalPropertiesClassSwaggerPetstore.Model, SwaggerPetstore
mkAnimalSwaggerPetstore.Model, SwaggerPetstore
mkApiResponseSwaggerPetstore.Model, SwaggerPetstore
mkArrayOfArrayOfNumberOnlySwaggerPetstore.Model, SwaggerPetstore
mkArrayOfNumberOnlySwaggerPetstore.Model, SwaggerPetstore
mkArrayTestSwaggerPetstore.Model, SwaggerPetstore
mkCapitalizationSwaggerPetstore.Model, SwaggerPetstore
mkCatSwaggerPetstore.Model, SwaggerPetstore
mkCategorySwaggerPetstore.Model, SwaggerPetstore
mkClassModelSwaggerPetstore.Model, SwaggerPetstore
mkClientSwaggerPetstore.Model, SwaggerPetstore
mkDogSwaggerPetstore.Model, SwaggerPetstore
mkEnumArraysSwaggerPetstore.Model, SwaggerPetstore
mkEnumTestSwaggerPetstore.Model, SwaggerPetstore
mkFormatTestSwaggerPetstore.Model, SwaggerPetstore
mkHasOnlyReadOnlySwaggerPetstore.Model, SwaggerPetstore
mkMapTestSwaggerPetstore.Model, SwaggerPetstore
mkMixedPropertiesAndAdditionalPropertiesClassSwaggerPetstore.Model, SwaggerPetstore
mkModel200ResponseSwaggerPetstore.Model, SwaggerPetstore
mkModelListSwaggerPetstore.Model, SwaggerPetstore
mkModelReturnSwaggerPetstore.Model, SwaggerPetstore
mkNameSwaggerPetstore.Model, SwaggerPetstore
mkNumberOnlySwaggerPetstore.Model, SwaggerPetstore
mkOrderSwaggerPetstore.Model, SwaggerPetstore
mkOuterCompositeSwaggerPetstore.Model, SwaggerPetstore
mkPetSwaggerPetstore.Model, SwaggerPetstore
mkReadOnlyFirstSwaggerPetstore.Model, SwaggerPetstore
mkSpecialModelNameSwaggerPetstore.Model, SwaggerPetstore
mkTagSwaggerPetstore.Model, SwaggerPetstore
mkUserSwaggerPetstore.Model, SwaggerPetstore
Model200Response 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
model200ResponseClassSwaggerPetstore.Model, SwaggerPetstore
model200ResponseClassLSwaggerPetstore.ModelLens, SwaggerPetstore
model200ResponseNameSwaggerPetstore.Model, SwaggerPetstore
model200ResponseNameLSwaggerPetstore.ModelLens, SwaggerPetstore
ModelList 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
modelList123ListSwaggerPetstore.Model, SwaggerPetstore
modelList123ListLSwaggerPetstore.ModelLens, SwaggerPetstore
ModelReturn 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
modelReturnReturnSwaggerPetstore.Model, SwaggerPetstore
modelReturnReturnLSwaggerPetstore.ModelLens, SwaggerPetstore
modifyInitRequestSwaggerPetstore.Client, SwaggerPetstore
modifyInitRequestMSwaggerPetstore.Client, SwaggerPetstore
MultiParamArraySwaggerPetstore.Core, SwaggerPetstore
Name 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
name123NumberSwaggerPetstore.Model, SwaggerPetstore
name123NumberLSwaggerPetstore.ModelLens, SwaggerPetstore
Name2 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
nameNameSwaggerPetstore.Model, SwaggerPetstore
nameNameLSwaggerPetstore.ModelLens, SwaggerPetstore
namePropertySwaggerPetstore.Model, SwaggerPetstore
namePropertyLSwaggerPetstore.ModelLens, SwaggerPetstore
nameSnakeCaseSwaggerPetstore.Model, SwaggerPetstore
nameSnakeCaseLSwaggerPetstore.ModelLens, SwaggerPetstore
newConfigSwaggerPetstore.Core, SwaggerPetstore
NoContent 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
Number 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
NumberOnly 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
numberOnlyJustNumberSwaggerPetstore.Model, SwaggerPetstore
numberOnlyJustNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
Order 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
orderCompleteSwaggerPetstore.Model, SwaggerPetstore
orderCompleteLSwaggerPetstore.ModelLens, SwaggerPetstore
OrderId 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
orderIdSwaggerPetstore.Model, SwaggerPetstore
orderIdLSwaggerPetstore.ModelLens, SwaggerPetstore
OrderIdText 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
orderPetIdSwaggerPetstore.Model, SwaggerPetstore
orderPetIdLSwaggerPetstore.ModelLens, SwaggerPetstore
orderQuantitySwaggerPetstore.Model, SwaggerPetstore
orderQuantityLSwaggerPetstore.ModelLens, SwaggerPetstore
orderShipDateSwaggerPetstore.Model, SwaggerPetstore
orderShipDateLSwaggerPetstore.ModelLens, SwaggerPetstore
orderStatusSwaggerPetstore.Model, SwaggerPetstore
orderStatusLSwaggerPetstore.ModelLens, SwaggerPetstore
OuterBoolean 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
OuterComposite 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
outerCompositeMyBooleanSwaggerPetstore.Model, SwaggerPetstore
outerCompositeMyBooleanLSwaggerPetstore.ModelLens, SwaggerPetstore
outerCompositeMyNumberSwaggerPetstore.Model, SwaggerPetstore
outerCompositeMyNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
outerCompositeMyStringSwaggerPetstore.Model, SwaggerPetstore
outerCompositeMyStringLSwaggerPetstore.ModelLens, SwaggerPetstore
OuterEnumSwaggerPetstore.Model, SwaggerPetstore
OuterEnum'ApprovedSwaggerPetstore.Model, SwaggerPetstore
OuterEnum'DeliveredSwaggerPetstore.Model, SwaggerPetstore
OuterEnum'PlacedSwaggerPetstore.Model, SwaggerPetstore
OuterNumber 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
OuterString 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Param 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Param2 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamBinary 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamBodySwaggerPetstore.Core, SwaggerPetstore
ParamBodyBSwaggerPetstore.Core, SwaggerPetstore
ParamBodyBLSwaggerPetstore.Core, SwaggerPetstore
ParamBodyFormUrlEncodedSwaggerPetstore.Core, SwaggerPetstore
ParamBodyMultipartFormDataSwaggerPetstore.Core, SwaggerPetstore
ParamBodyNoneSwaggerPetstore.Core, SwaggerPetstore
ParamDate 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamDateTime 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamDouble 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamFloat 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamInteger 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Params 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
paramsBodySwaggerPetstore.Core, SwaggerPetstore
paramsBodyLSwaggerPetstore.Core, SwaggerPetstore
paramsHeadersSwaggerPetstore.Core, SwaggerPetstore
paramsHeadersLSwaggerPetstore.Core, SwaggerPetstore
paramsQuerySwaggerPetstore.Core, SwaggerPetstore
paramsQueryLSwaggerPetstore.Core, SwaggerPetstore
ParamString 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Password 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
PatternWithoutDelimiter 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Pet 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
petCategorySwaggerPetstore.Model, SwaggerPetstore
petCategoryLSwaggerPetstore.ModelLens, SwaggerPetstore
PetId 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
petIdSwaggerPetstore.Model, SwaggerPetstore
petIdLSwaggerPetstore.ModelLens, SwaggerPetstore
petNameSwaggerPetstore.Model, SwaggerPetstore
petNameLSwaggerPetstore.ModelLens, SwaggerPetstore
petPhotoUrlsSwaggerPetstore.Model, SwaggerPetstore
petPhotoUrlsLSwaggerPetstore.ModelLens, SwaggerPetstore
petStatusSwaggerPetstore.Model, SwaggerPetstore
petStatusLSwaggerPetstore.ModelLens, SwaggerPetstore
petTagsSwaggerPetstore.Model, SwaggerPetstore
petTagsLSwaggerPetstore.ModelLens, SwaggerPetstore
PipeSeparatedSwaggerPetstore.Core, SwaggerPetstore
PlaceOrderSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
placeOrderSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
ProducesSwaggerPetstore.MimeTypes, SwaggerPetstore
Query 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
rAuthTypesSwaggerPetstore.Core, SwaggerPetstore
rAuthTypesLSwaggerPetstore.Core, SwaggerPetstore
ReadOnlyFirst 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
readOnlyFirstBarSwaggerPetstore.Model, SwaggerPetstore
readOnlyFirstBarLSwaggerPetstore.ModelLens, SwaggerPetstore
readOnlyFirstBazSwaggerPetstore.Model, SwaggerPetstore
readOnlyFirstBazLSwaggerPetstore.ModelLens, SwaggerPetstore
removeHeaderSwaggerPetstore.Core, SwaggerPetstore
RequestBody 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
rMethodSwaggerPetstore.Core, SwaggerPetstore
rMethodLSwaggerPetstore.Core, SwaggerPetstore
rParamsSwaggerPetstore.Core, SwaggerPetstore
rParamsLSwaggerPetstore.Core, SwaggerPetstore
runConfigLogSwaggerPetstore.Client, SwaggerPetstore
runConfigLogWithExceptionsSwaggerPetstore.Client, SwaggerPetstore
runDefaultLogExecWithContextSwaggerPetstore.Logging, SwaggerPetstore
runNullLogExecSwaggerPetstore.Logging, SwaggerPetstore
rUrlPathSwaggerPetstore.Core, SwaggerPetstore
rUrlPathLSwaggerPetstore.Core, SwaggerPetstore
setBodyParamSwaggerPetstore.Core, SwaggerPetstore
setHeaderSwaggerPetstore.Core, SwaggerPetstore
setQuerySwaggerPetstore.Core, SwaggerPetstore
SpaceSeparatedSwaggerPetstore.Core, SwaggerPetstore
SpecialModelName 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
specialModelNameSpecialPropertyNameSwaggerPetstore.Model, SwaggerPetstore
specialModelNameSpecialPropertyNameLSwaggerPetstore.ModelLens, SwaggerPetstore
Status 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
StatusText 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
stderrLoggingContextSwaggerPetstore.Logging, SwaggerPetstore
stderrLoggingExecSwaggerPetstore.Logging, SwaggerPetstore
stdoutLoggingContextSwaggerPetstore.Logging, SwaggerPetstore
stdoutLoggingExecSwaggerPetstore.Logging, SwaggerPetstore
SwaggerPetstoreConfig 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
SwaggerPetstoreRequest 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
TabSeparatedSwaggerPetstore.Core, SwaggerPetstore
Tag 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
tagIdSwaggerPetstore.Model, SwaggerPetstore
tagIdLSwaggerPetstore.ModelLens, SwaggerPetstore
tagNameSwaggerPetstore.Model, SwaggerPetstore
tagNameLSwaggerPetstore.ModelLens, SwaggerPetstore
Tags 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
TestBodyWithQueryParamsSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testBodyWithQueryParamsSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestClassnameSwaggerPetstore.API.FakeClassnameTags123, SwaggerPetstore.API, SwaggerPetstore
testClassnameSwaggerPetstore.API.FakeClassnameTags123, SwaggerPetstore.API, SwaggerPetstore
TestClientModelSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testClientModelSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestEndpointParametersSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testEndpointParametersSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestEnumParametersSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testEnumParametersSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestInlineAdditionalPropertiesSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testInlineAdditionalPropertiesSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestJsonFormDataSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testJsonFormDataSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestSpecialTagsSwaggerPetstore.API.AnotherFake, SwaggerPetstore.API, SwaggerPetstore
testSpecialTagsSwaggerPetstore.API.AnotherFake, SwaggerPetstore.API, SwaggerPetstore
toE'ArrayEnumSwaggerPetstore.Model, SwaggerPetstore
toE'EnumFormStringSwaggerPetstore.Model, SwaggerPetstore
toE'EnumFormStringArraySwaggerPetstore.Model, SwaggerPetstore
toE'EnumIntegerSwaggerPetstore.Model, SwaggerPetstore
toE'EnumNumberSwaggerPetstore.Model, SwaggerPetstore
toE'EnumQueryIntegerSwaggerPetstore.Model, SwaggerPetstore
toE'EnumStringSwaggerPetstore.Model, SwaggerPetstore
toE'InnerSwaggerPetstore.Model, SwaggerPetstore
toE'JustSymbolSwaggerPetstore.Model, SwaggerPetstore
toE'StatusSwaggerPetstore.Model, SwaggerPetstore
toE'Status2SwaggerPetstore.Model, SwaggerPetstore
toEnumClassSwaggerPetstore.Model, SwaggerPetstore
toFormSwaggerPetstore.Core, SwaggerPetstore
toFormCollSwaggerPetstore.Core, SwaggerPetstore
toHeaderSwaggerPetstore.Core, SwaggerPetstore
toHeaderCollSwaggerPetstore.Core, SwaggerPetstore
toOuterEnumSwaggerPetstore.Model, SwaggerPetstore
toPathSwaggerPetstore.Core, SwaggerPetstore
toQuerySwaggerPetstore.Core, SwaggerPetstore
toQueryCollSwaggerPetstore.Core, SwaggerPetstore
unAcceptSwaggerPetstore.MimeTypes, SwaggerPetstore
unAdditionalMetadataSwaggerPetstore.Model, SwaggerPetstore
unAnimalFarmSwaggerPetstore.Model, SwaggerPetstore
unApiKeySwaggerPetstore.Model, SwaggerPetstore
unBinarySwaggerPetstore.Core, SwaggerPetstore
unBodySwaggerPetstore.Model, SwaggerPetstore
unBodyTextSwaggerPetstore.Model, SwaggerPetstore
unBooleanPostBodySwaggerPetstore.Model, SwaggerPetstore
unByteSwaggerPetstore.Model, SwaggerPetstore
unByteArraySwaggerPetstore.Core, SwaggerPetstore
unCallbackSwaggerPetstore.Model, SwaggerPetstore
unContentTypeSwaggerPetstore.MimeTypes, SwaggerPetstore
unDateSwaggerPetstore.Core, SwaggerPetstore
unDateTimeSwaggerPetstore.Core, SwaggerPetstore
unEnumFormStringSwaggerPetstore.Model, SwaggerPetstore
unEnumFormStringArraySwaggerPetstore.Model, SwaggerPetstore
unEnumHeaderStringSwaggerPetstore.Model, SwaggerPetstore
unEnumHeaderStringArraySwaggerPetstore.Model, SwaggerPetstore
unEnumQueryDoubleSwaggerPetstore.Model, SwaggerPetstore
unEnumQueryIntegerSwaggerPetstore.Model, SwaggerPetstore
unEnumQueryStringSwaggerPetstore.Model, SwaggerPetstore
unEnumQueryStringArraySwaggerPetstore.Model, SwaggerPetstore
unFileSwaggerPetstore.Model, SwaggerPetstore
unInitRequestSwaggerPetstore.Client, SwaggerPetstore
unInt32SwaggerPetstore.Model, SwaggerPetstore
unInt64SwaggerPetstore.Model, SwaggerPetstore
unName2SwaggerPetstore.Model, SwaggerPetstore
unNumberSwaggerPetstore.Model, SwaggerPetstore
unOrderIdSwaggerPetstore.Model, SwaggerPetstore
unOrderIdTextSwaggerPetstore.Model, SwaggerPetstore
unOuterBooleanSwaggerPetstore.Model, SwaggerPetstore
unOuterNumberSwaggerPetstore.Model, SwaggerPetstore
unOuterStringSwaggerPetstore.Model, SwaggerPetstore
unParamSwaggerPetstore.Model, SwaggerPetstore
unParam2SwaggerPetstore.Model, SwaggerPetstore
unParamBinarySwaggerPetstore.Model, SwaggerPetstore
unParamDateSwaggerPetstore.Model, SwaggerPetstore
unParamDateTimeSwaggerPetstore.Model, SwaggerPetstore
unParamDoubleSwaggerPetstore.Model, SwaggerPetstore
unParamFloatSwaggerPetstore.Model, SwaggerPetstore
unParamIntegerSwaggerPetstore.Model, SwaggerPetstore
unParamStringSwaggerPetstore.Model, SwaggerPetstore
unPasswordSwaggerPetstore.Model, SwaggerPetstore
unPatternWithoutDelimiterSwaggerPetstore.Model, SwaggerPetstore
unPetIdSwaggerPetstore.Model, SwaggerPetstore
unQuerySwaggerPetstore.Model, SwaggerPetstore
unRequestBodySwaggerPetstore.Model, SwaggerPetstore
unStatusSwaggerPetstore.Model, SwaggerPetstore
unStatusTextSwaggerPetstore.Model, SwaggerPetstore
unTagsSwaggerPetstore.Model, SwaggerPetstore
unUser2SwaggerPetstore.Model, SwaggerPetstore
unUsernameSwaggerPetstore.Model, SwaggerPetstore
UpdatePetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
updatePetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
UpdatePetWithFormSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
updatePetWithFormSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
UpdateUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
updateUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
UploadFileSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
uploadFileSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
User 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
User2 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
userEmailSwaggerPetstore.Model, SwaggerPetstore
userEmailLSwaggerPetstore.ModelLens, SwaggerPetstore
userFirstNameSwaggerPetstore.Model, SwaggerPetstore
userFirstNameLSwaggerPetstore.ModelLens, SwaggerPetstore
userIdSwaggerPetstore.Model, SwaggerPetstore
userIdLSwaggerPetstore.ModelLens, SwaggerPetstore
userLastNameSwaggerPetstore.Model, SwaggerPetstore
userLastNameLSwaggerPetstore.ModelLens, SwaggerPetstore
Username 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
userPasswordSwaggerPetstore.Model, SwaggerPetstore
userPasswordLSwaggerPetstore.ModelLens, SwaggerPetstore
userPhoneSwaggerPetstore.Model, SwaggerPetstore
userPhoneLSwaggerPetstore.ModelLens, SwaggerPetstore
userUsernameSwaggerPetstore.Model, SwaggerPetstore
userUsernameLSwaggerPetstore.ModelLens, SwaggerPetstore
userUserStatusSwaggerPetstore.Model, SwaggerPetstore
userUserStatusLSwaggerPetstore.ModelLens, SwaggerPetstore
withNoLoggingSwaggerPetstore.Core, SwaggerPetstore
withStderrLoggingSwaggerPetstore.Core, SwaggerPetstore
withStdoutLoggingSwaggerPetstore.Core, SwaggerPetstore
_addMultiFormPartSwaggerPetstore.Core, SwaggerPetstore
_applyAuthMethodsSwaggerPetstore.Core, SwaggerPetstore
_emptyToNothingSwaggerPetstore.Core, SwaggerPetstore
_hasAuthTypeSwaggerPetstore.Core, SwaggerPetstore
_logSwaggerPetstore.Logging, SwaggerPetstore
_memptyToNothingSwaggerPetstore.Core, SwaggerPetstore
_mkParamsSwaggerPetstore.Core, SwaggerPetstore
_mkRequestSwaggerPetstore.Core, SwaggerPetstore
_omitNullsSwaggerPetstore.Core, SwaggerPetstore
_parseISO8601SwaggerPetstore.Core, SwaggerPetstore
_readBinaryBase64SwaggerPetstore.Core, SwaggerPetstore
_readByteArraySwaggerPetstore.Core, SwaggerPetstore
_readDateSwaggerPetstore.Core, SwaggerPetstore
_readDateTimeSwaggerPetstore.Core, SwaggerPetstore
_setAcceptHeaderSwaggerPetstore.Core, SwaggerPetstore
_setBodyBSSwaggerPetstore.Core, SwaggerPetstore
_setBodyLBSSwaggerPetstore.Core, SwaggerPetstore
_setContentTypeHeaderSwaggerPetstore.Core, SwaggerPetstore
_showBinaryBase64SwaggerPetstore.Core, SwaggerPetstore
_showByteArraySwaggerPetstore.Core, SwaggerPetstore
_showDateSwaggerPetstore.Core, SwaggerPetstore
_showDateTimeSwaggerPetstore.Core, SwaggerPetstore
_toCollSwaggerPetstore.Core, SwaggerPetstore
_toCollASwaggerPetstore.Core, SwaggerPetstore
_toCollA'SwaggerPetstore.Core, SwaggerPetstore
_toFormItemSwaggerPetstore.Core, SwaggerPetstore
_toInitRequestSwaggerPetstore.Client, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index

-&-OpenAPIPetstore.Core, OpenAPIPetstore
Accept 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
addAuthMethodOpenAPIPetstore.Core, OpenAPIPetstore
addFormOpenAPIPetstore.Core, OpenAPIPetstore
AdditionalMetadata 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
AdditionalPropertiesClass 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
additionalPropertiesClassMapOfMapPropertyOpenAPIPetstore.Model, OpenAPIPetstore
additionalPropertiesClassMapOfMapPropertyLOpenAPIPetstore.ModelLens, OpenAPIPetstore
additionalPropertiesClassMapPropertyOpenAPIPetstore.Model, OpenAPIPetstore
additionalPropertiesClassMapPropertyLOpenAPIPetstore.ModelLens, OpenAPIPetstore
AddPetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
addPetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
Animal 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
animalClassNameOpenAPIPetstore.Model, OpenAPIPetstore
animalClassNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
animalColorOpenAPIPetstore.Model, OpenAPIPetstore
animalColorLOpenAPIPetstore.ModelLens, OpenAPIPetstore
AnimalFarm 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
AnyAuthMethod 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
ApiKey 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ApiResponse 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
apiResponseCodeOpenAPIPetstore.Model, OpenAPIPetstore
apiResponseCodeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
apiResponseMessageOpenAPIPetstore.Model, OpenAPIPetstore
apiResponseMessageLOpenAPIPetstore.ModelLens, OpenAPIPetstore
apiResponseTypeOpenAPIPetstore.Model, OpenAPIPetstore
apiResponseTypeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
applyAuthMethodOpenAPIPetstore.Core, OpenAPIPetstore
applyOptionalParamOpenAPIPetstore.Core, OpenAPIPetstore
ArrayOfArrayOfNumberOnly 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
arrayOfArrayOfNumberOnlyArrayArrayNumberOpenAPIPetstore.Model, OpenAPIPetstore
arrayOfArrayOfNumberOnlyArrayArrayNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
ArrayOfNumberOnly 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
arrayOfNumberOnlyArrayNumberOpenAPIPetstore.Model, OpenAPIPetstore
arrayOfNumberOnlyArrayNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
ArrayTest 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
arrayTestArrayArrayOfIntegerOpenAPIPetstore.Model, OpenAPIPetstore
arrayTestArrayArrayOfIntegerLOpenAPIPetstore.ModelLens, OpenAPIPetstore
arrayTestArrayArrayOfModelOpenAPIPetstore.Model, OpenAPIPetstore
arrayTestArrayArrayOfModelLOpenAPIPetstore.ModelLens, OpenAPIPetstore
arrayTestArrayOfStringOpenAPIPetstore.Model, OpenAPIPetstore
arrayTestArrayOfStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
AuthApiKeyApiKey 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
AuthApiKeyApiKeyQuery 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
AuthBasicHttpBasicTest 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
AuthMethodOpenAPIPetstore.Core, OpenAPIPetstore
AuthMethodException 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
AuthOAuthPetstoreAuth 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Binary 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
Body 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
BodyBool 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
BodyText 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Byte 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ByteArray 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
Callback 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Capitalization 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
capitalizationAttNameOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationAttNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
capitalizationCapitalCamelOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationCapitalCamelLOpenAPIPetstore.ModelLens, OpenAPIPetstore
capitalizationCapitalSnakeOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationCapitalSnakeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
capitalizationScaEthFlowPointsOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationScaEthFlowPointsLOpenAPIPetstore.ModelLens, OpenAPIPetstore
capitalizationSmallCamelOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationSmallCamelLOpenAPIPetstore.ModelLens, OpenAPIPetstore
capitalizationSmallSnakeOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationSmallSnakeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Cat 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
catClassNameOpenAPIPetstore.Model, OpenAPIPetstore
catClassNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
catColorOpenAPIPetstore.Model, OpenAPIPetstore
catColorLOpenAPIPetstore.ModelLens, OpenAPIPetstore
catDeclawedOpenAPIPetstore.Model, OpenAPIPetstore
catDeclawedLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Category 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
categoryIdOpenAPIPetstore.Model, OpenAPIPetstore
categoryIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
categoryNameOpenAPIPetstore.Model, OpenAPIPetstore
categoryNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
ClassModel 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
classModelClassOpenAPIPetstore.Model, OpenAPIPetstore
classModelClassLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Client 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
clientClientOpenAPIPetstore.Model, OpenAPIPetstore
clientClientLOpenAPIPetstore.ModelLens, OpenAPIPetstore
CollectionFormatOpenAPIPetstore.Core, OpenAPIPetstore
CommaSeparatedOpenAPIPetstore.Core, OpenAPIPetstore
configAuthMethodsOpenAPIPetstore.Core, OpenAPIPetstore
configHostOpenAPIPetstore.Core, OpenAPIPetstore
configLogContextOpenAPIPetstore.Core, OpenAPIPetstore
configLogExecWithContextOpenAPIPetstore.Core, OpenAPIPetstore
configUserAgentOpenAPIPetstore.Core, OpenAPIPetstore
configValidateAuthMethodsOpenAPIPetstore.Core, OpenAPIPetstore
ConsumesOpenAPIPetstore.MimeTypes, OpenAPIPetstore
ContentType 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
CreateUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
createUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
CreateUsersWithArrayInputOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
createUsersWithArrayInputOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
CreateUsersWithListInputOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
createUsersWithListInputOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
Date 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
DateTime 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
DeleteOrderOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
deleteOrderOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
DeletePetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
deletePetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
DeleteUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
deleteUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
dispatchInitUnsafeOpenAPIPetstore.Client, OpenAPIPetstore
dispatchLbsOpenAPIPetstore.Client, OpenAPIPetstore
dispatchLbsUnsafeOpenAPIPetstore.Client, OpenAPIPetstore
dispatchMimeOpenAPIPetstore.Client, OpenAPIPetstore
dispatchMime'OpenAPIPetstore.Client, OpenAPIPetstore
Dog 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
dogBreedOpenAPIPetstore.Model, OpenAPIPetstore
dogBreedLOpenAPIPetstore.ModelLens, OpenAPIPetstore
dogClassNameOpenAPIPetstore.Model, OpenAPIPetstore
dogClassNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
dogColorOpenAPIPetstore.Model, OpenAPIPetstore
dogColorLOpenAPIPetstore.ModelLens, OpenAPIPetstore
E'ArrayEnumOpenAPIPetstore.Model, OpenAPIPetstore
E'ArrayEnum'CrabOpenAPIPetstore.Model, OpenAPIPetstore
E'ArrayEnum'FishOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormStringOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormString'_abcOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormString'_efgOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormString'_xyzOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormStringArray'DollarOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormStringArray'GreaterThanOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumIntegerOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumInteger'Num1OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumInteger'NumMinus_1OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumNumberOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumNumber'Num1_Dot_1OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumNumber'NumMinus_1_Dot_2OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumQueryIntegerOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumQueryInteger'Num1OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumQueryInteger'NumMinus_2OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumStringOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumString'EmptyOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumString'LowerOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumString'UPPEROpenAPIPetstore.Model, OpenAPIPetstore
E'InnerOpenAPIPetstore.Model, OpenAPIPetstore
E'Inner'LowerOpenAPIPetstore.Model, OpenAPIPetstore
E'Inner'UPPEROpenAPIPetstore.Model, OpenAPIPetstore
E'JustSymbolOpenAPIPetstore.Model, OpenAPIPetstore
E'JustSymbol'DollarOpenAPIPetstore.Model, OpenAPIPetstore
E'JustSymbol'Greater_Than_Or_Equal_ToOpenAPIPetstore.Model, OpenAPIPetstore
E'StatusOpenAPIPetstore.Model, OpenAPIPetstore
E'Status'ApprovedOpenAPIPetstore.Model, OpenAPIPetstore
E'Status'DeliveredOpenAPIPetstore.Model, OpenAPIPetstore
E'Status'PlacedOpenAPIPetstore.Model, OpenAPIPetstore
E'Status2OpenAPIPetstore.Model, OpenAPIPetstore
E'Status2'AvailableOpenAPIPetstore.Model, OpenAPIPetstore
E'Status2'PendingOpenAPIPetstore.Model, OpenAPIPetstore
E'Status2'SoldOpenAPIPetstore.Model, OpenAPIPetstore
EnumArrays 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
enumArraysArrayEnumOpenAPIPetstore.Model, OpenAPIPetstore
enumArraysArrayEnumLOpenAPIPetstore.ModelLens, OpenAPIPetstore
enumArraysJustSymbolOpenAPIPetstore.Model, OpenAPIPetstore
enumArraysJustSymbolLOpenAPIPetstore.ModelLens, OpenAPIPetstore
EnumClassOpenAPIPetstore.Model, OpenAPIPetstore
EnumClass'_abcOpenAPIPetstore.Model, OpenAPIPetstore
EnumClass'_efgOpenAPIPetstore.Model, OpenAPIPetstore
EnumClass'_xyzOpenAPIPetstore.Model, OpenAPIPetstore
EnumFormString 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumFormStringArray 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumHeaderString 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumHeaderStringArray 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumQueryDouble 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumQueryInteger 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumQueryString 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumQueryStringArray 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumTest 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
enumTestEnumIntegerOpenAPIPetstore.Model, OpenAPIPetstore
enumTestEnumIntegerLOpenAPIPetstore.ModelLens, OpenAPIPetstore
enumTestEnumNumberOpenAPIPetstore.Model, OpenAPIPetstore
enumTestEnumNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
enumTestEnumStringOpenAPIPetstore.Model, OpenAPIPetstore
enumTestEnumStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
enumTestEnumStringRequiredOpenAPIPetstore.Model, OpenAPIPetstore
enumTestEnumStringRequiredLOpenAPIPetstore.ModelLens, OpenAPIPetstore
enumTestOuterEnumOpenAPIPetstore.Model, OpenAPIPetstore
enumTestOuterEnumLOpenAPIPetstore.ModelLens, OpenAPIPetstore
FakeOuterBooleanSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
fakeOuterBooleanSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
FakeOuterCompositeSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
fakeOuterCompositeSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
FakeOuterNumberSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
fakeOuterNumberSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
FakeOuterStringSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
fakeOuterStringSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
File 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
FindPetsByStatusOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
findPetsByStatusOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
FindPetsByTagsOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
findPetsByTagsOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
FormatTest 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
formatTestBinaryOpenAPIPetstore.Model, OpenAPIPetstore
formatTestBinaryLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestByteOpenAPIPetstore.Model, OpenAPIPetstore
formatTestByteLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestDateOpenAPIPetstore.Model, OpenAPIPetstore
formatTestDateLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestDateTimeOpenAPIPetstore.Model, OpenAPIPetstore
formatTestDateTimeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestDoubleOpenAPIPetstore.Model, OpenAPIPetstore
formatTestDoubleLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestFloatOpenAPIPetstore.Model, OpenAPIPetstore
formatTestFloatLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestInt32OpenAPIPetstore.Model, OpenAPIPetstore
formatTestInt32LOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestInt64OpenAPIPetstore.Model, OpenAPIPetstore
formatTestInt64LOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestIntegerOpenAPIPetstore.Model, OpenAPIPetstore
formatTestIntegerLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestNumberOpenAPIPetstore.Model, OpenAPIPetstore
formatTestNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestPasswordOpenAPIPetstore.Model, OpenAPIPetstore
formatTestPasswordLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestStringOpenAPIPetstore.Model, OpenAPIPetstore
formatTestStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestUuidOpenAPIPetstore.Model, OpenAPIPetstore
formatTestUuidLOpenAPIPetstore.ModelLens, OpenAPIPetstore
fromE'ArrayEnumOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumFormStringOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumFormStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumIntegerOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumNumberOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumQueryIntegerOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumStringOpenAPIPetstore.Model, OpenAPIPetstore
fromE'InnerOpenAPIPetstore.Model, OpenAPIPetstore
fromE'JustSymbolOpenAPIPetstore.Model, OpenAPIPetstore
fromE'StatusOpenAPIPetstore.Model, OpenAPIPetstore
fromE'Status2OpenAPIPetstore.Model, OpenAPIPetstore
fromEnumClassOpenAPIPetstore.Model, OpenAPIPetstore
fromOuterEnumOpenAPIPetstore.Model, OpenAPIPetstore
GetInventoryOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
getInventoryOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
GetOrderByIdOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
getOrderByIdOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
GetPetByIdOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
getPetByIdOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
GetUserByNameOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
getUserByNameOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
HasBodyParamOpenAPIPetstore.Core, OpenAPIPetstore
HasOnlyReadOnly 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
hasOnlyReadOnlyBarOpenAPIPetstore.Model, OpenAPIPetstore
hasOnlyReadOnlyBarLOpenAPIPetstore.ModelLens, OpenAPIPetstore
hasOnlyReadOnlyFooOpenAPIPetstore.Model, OpenAPIPetstore
hasOnlyReadOnlyFooLOpenAPIPetstore.ModelLens, OpenAPIPetstore
HasOptionalParamOpenAPIPetstore.Core, OpenAPIPetstore
initLogContextOpenAPIPetstore.Logging, OpenAPIPetstore
InitRequest 
1 (Type/Class)OpenAPIPetstore.Client, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Client, OpenAPIPetstore
Int32 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Int64 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Lens_OpenAPIPetstore.Core, OpenAPIPetstore
Lens_'OpenAPIPetstore.Core, OpenAPIPetstore
levelDebugOpenAPIPetstore.Logging, OpenAPIPetstore
levelErrorOpenAPIPetstore.Logging, OpenAPIPetstore
levelInfoOpenAPIPetstore.Logging, OpenAPIPetstore
LogContextOpenAPIPetstore.Logging, OpenAPIPetstore
logExceptionsOpenAPIPetstore.Logging, OpenAPIPetstore
LogExecOpenAPIPetstore.Logging, OpenAPIPetstore
LogExecWithContextOpenAPIPetstore.Logging, OpenAPIPetstore
LoginUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
loginUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
LogLevelOpenAPIPetstore.Logging, OpenAPIPetstore
LogoutUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
logoutUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
MapTest 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
mapTestMapMapOfStringOpenAPIPetstore.Model, OpenAPIPetstore
mapTestMapMapOfStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
mapTestMapOfEnumStringOpenAPIPetstore.Model, OpenAPIPetstore
mapTestMapOfEnumStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
MimeAny 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeError 
1 (Type/Class)OpenAPIPetstore.Client, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Client, OpenAPIPetstore
mimeErrorOpenAPIPetstore.Client, OpenAPIPetstore
mimeErrorResponseOpenAPIPetstore.Client, OpenAPIPetstore
MimeFormUrlEncoded 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeJSON 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeMultipartFormData 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeNoContent 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeOctetStream 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimePlainText 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeRenderOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeRenderOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeRender'OpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeRenderDefaultMultipartFormDataOpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeResult 
1 (Type/Class)OpenAPIPetstore.Client, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Client, OpenAPIPetstore
mimeResultOpenAPIPetstore.Client, OpenAPIPetstore
mimeResultResponseOpenAPIPetstore.Client, OpenAPIPetstore
MimeTypeOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeTypeOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeType'OpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeTypesOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeTypes'OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeUnrenderOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeUnrenderOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeUnrender'OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeXML 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MixedPropertiesAndAdditionalPropertiesClass 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassDateTimeOpenAPIPetstore.Model, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassDateTimeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassMapOpenAPIPetstore.Model, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassMapLOpenAPIPetstore.ModelLens, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassUuidOpenAPIPetstore.Model, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassUuidLOpenAPIPetstore.ModelLens, OpenAPIPetstore
mkAdditionalPropertiesClassOpenAPIPetstore.Model, OpenAPIPetstore
mkAnimalOpenAPIPetstore.Model, OpenAPIPetstore
mkAnimalFarmOpenAPIPetstore.Model, OpenAPIPetstore
mkApiResponseOpenAPIPetstore.Model, OpenAPIPetstore
mkArrayOfArrayOfNumberOnlyOpenAPIPetstore.Model, OpenAPIPetstore
mkArrayOfNumberOnlyOpenAPIPetstore.Model, OpenAPIPetstore
mkArrayTestOpenAPIPetstore.Model, OpenAPIPetstore
mkCapitalizationOpenAPIPetstore.Model, OpenAPIPetstore
mkCatOpenAPIPetstore.Model, OpenAPIPetstore
mkCategoryOpenAPIPetstore.Model, OpenAPIPetstore
mkClassModelOpenAPIPetstore.Model, OpenAPIPetstore
mkClientOpenAPIPetstore.Model, OpenAPIPetstore
mkDogOpenAPIPetstore.Model, OpenAPIPetstore
mkEnumArraysOpenAPIPetstore.Model, OpenAPIPetstore
mkEnumTestOpenAPIPetstore.Model, OpenAPIPetstore
mkFormatTestOpenAPIPetstore.Model, OpenAPIPetstore
mkHasOnlyReadOnlyOpenAPIPetstore.Model, OpenAPIPetstore
mkMapTestOpenAPIPetstore.Model, OpenAPIPetstore
mkMixedPropertiesAndAdditionalPropertiesClassOpenAPIPetstore.Model, OpenAPIPetstore
mkModel200ResponseOpenAPIPetstore.Model, OpenAPIPetstore
mkModelListOpenAPIPetstore.Model, OpenAPIPetstore
mkModelReturnOpenAPIPetstore.Model, OpenAPIPetstore
mkNameOpenAPIPetstore.Model, OpenAPIPetstore
mkNumberOnlyOpenAPIPetstore.Model, OpenAPIPetstore
mkOrderOpenAPIPetstore.Model, OpenAPIPetstore
mkOuterCompositeOpenAPIPetstore.Model, OpenAPIPetstore
mkPetOpenAPIPetstore.Model, OpenAPIPetstore
mkReadOnlyFirstOpenAPIPetstore.Model, OpenAPIPetstore
mkSpecialModelNameOpenAPIPetstore.Model, OpenAPIPetstore
mkTagOpenAPIPetstore.Model, OpenAPIPetstore
mkUserOpenAPIPetstore.Model, OpenAPIPetstore
Model200Response 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
model200ResponseClassOpenAPIPetstore.Model, OpenAPIPetstore
model200ResponseClassLOpenAPIPetstore.ModelLens, OpenAPIPetstore
model200ResponseNameOpenAPIPetstore.Model, OpenAPIPetstore
model200ResponseNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
ModelList 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
modelList123listOpenAPIPetstore.Model, OpenAPIPetstore
modelList123listLOpenAPIPetstore.ModelLens, OpenAPIPetstore
ModelReturn 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
modelReturnReturnOpenAPIPetstore.Model, OpenAPIPetstore
modelReturnReturnLOpenAPIPetstore.ModelLens, OpenAPIPetstore
modifyInitRequestOpenAPIPetstore.Client, OpenAPIPetstore
modifyInitRequestMOpenAPIPetstore.Client, OpenAPIPetstore
MultiParamArrayOpenAPIPetstore.Core, OpenAPIPetstore
Name 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
name123numberOpenAPIPetstore.Model, OpenAPIPetstore
name123numberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Name2 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
nameNameOpenAPIPetstore.Model, OpenAPIPetstore
nameNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
namePropertyOpenAPIPetstore.Model, OpenAPIPetstore
namePropertyLOpenAPIPetstore.ModelLens, OpenAPIPetstore
nameSnakeCaseOpenAPIPetstore.Model, OpenAPIPetstore
nameSnakeCaseLOpenAPIPetstore.ModelLens, OpenAPIPetstore
newConfigOpenAPIPetstore.Core, OpenAPIPetstore
NoContent 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
Number 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
NumberOnly 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
numberOnlyJustNumberOpenAPIPetstore.Model, OpenAPIPetstore
numberOnlyJustNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
OpenAPIPetstoreConfig 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
OpenAPIPetstoreRequest 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
Order 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
orderCompleteOpenAPIPetstore.Model, OpenAPIPetstore
orderCompleteLOpenAPIPetstore.ModelLens, OpenAPIPetstore
OrderId 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
orderIdOpenAPIPetstore.Model, OpenAPIPetstore
orderIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
OrderIdText 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
orderPetIdOpenAPIPetstore.Model, OpenAPIPetstore
orderPetIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
orderQuantityOpenAPIPetstore.Model, OpenAPIPetstore
orderQuantityLOpenAPIPetstore.ModelLens, OpenAPIPetstore
orderShipDateOpenAPIPetstore.Model, OpenAPIPetstore
orderShipDateLOpenAPIPetstore.ModelLens, OpenAPIPetstore
orderStatusOpenAPIPetstore.Model, OpenAPIPetstore
orderStatusLOpenAPIPetstore.ModelLens, OpenAPIPetstore
OuterComposite 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
outerCompositeMyBooleanOpenAPIPetstore.Model, OpenAPIPetstore
outerCompositeMyBooleanLOpenAPIPetstore.ModelLens, OpenAPIPetstore
outerCompositeMyNumberOpenAPIPetstore.Model, OpenAPIPetstore
outerCompositeMyNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
outerCompositeMyStringOpenAPIPetstore.Model, OpenAPIPetstore
outerCompositeMyStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
OuterEnumOpenAPIPetstore.Model, OpenAPIPetstore
OuterEnum'ApprovedOpenAPIPetstore.Model, OpenAPIPetstore
OuterEnum'DeliveredOpenAPIPetstore.Model, OpenAPIPetstore
OuterEnum'PlacedOpenAPIPetstore.Model, OpenAPIPetstore
Param 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Param2 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamBinary 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamBodyOpenAPIPetstore.Core, OpenAPIPetstore
ParamBodyBOpenAPIPetstore.Core, OpenAPIPetstore
ParamBodyBLOpenAPIPetstore.Core, OpenAPIPetstore
ParamBodyFormUrlEncodedOpenAPIPetstore.Core, OpenAPIPetstore
ParamBodyMultipartFormDataOpenAPIPetstore.Core, OpenAPIPetstore
ParamBodyNoneOpenAPIPetstore.Core, OpenAPIPetstore
ParamDate 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamDateTime 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamDouble 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamFloat 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamInteger 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Params 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
paramsBodyOpenAPIPetstore.Core, OpenAPIPetstore
paramsBodyLOpenAPIPetstore.Core, OpenAPIPetstore
paramsHeadersOpenAPIPetstore.Core, OpenAPIPetstore
paramsHeadersLOpenAPIPetstore.Core, OpenAPIPetstore
paramsQueryOpenAPIPetstore.Core, OpenAPIPetstore
paramsQueryLOpenAPIPetstore.Core, OpenAPIPetstore
ParamString 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Password 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
PatternWithoutDelimiter 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Pet 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
petCategoryOpenAPIPetstore.Model, OpenAPIPetstore
petCategoryLOpenAPIPetstore.ModelLens, OpenAPIPetstore
PetId 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
petIdOpenAPIPetstore.Model, OpenAPIPetstore
petIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
petNameOpenAPIPetstore.Model, OpenAPIPetstore
petNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
petPhotoUrlsOpenAPIPetstore.Model, OpenAPIPetstore
petPhotoUrlsLOpenAPIPetstore.ModelLens, OpenAPIPetstore
petStatusOpenAPIPetstore.Model, OpenAPIPetstore
petStatusLOpenAPIPetstore.ModelLens, OpenAPIPetstore
petTagsOpenAPIPetstore.Model, OpenAPIPetstore
petTagsLOpenAPIPetstore.ModelLens, OpenAPIPetstore
PipeSeparatedOpenAPIPetstore.Core, OpenAPIPetstore
PlaceOrderOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
placeOrderOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
ProducesOpenAPIPetstore.MimeTypes, OpenAPIPetstore
rAuthTypesOpenAPIPetstore.Core, OpenAPIPetstore
rAuthTypesLOpenAPIPetstore.Core, OpenAPIPetstore
ReadOnlyFirst 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
readOnlyFirstBarOpenAPIPetstore.Model, OpenAPIPetstore
readOnlyFirstBarLOpenAPIPetstore.ModelLens, OpenAPIPetstore
readOnlyFirstBazOpenAPIPetstore.Model, OpenAPIPetstore
readOnlyFirstBazLOpenAPIPetstore.ModelLens, OpenAPIPetstore
removeHeaderOpenAPIPetstore.Core, OpenAPIPetstore
RequestBody 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
rMethodOpenAPIPetstore.Core, OpenAPIPetstore
rMethodLOpenAPIPetstore.Core, OpenAPIPetstore
rParamsOpenAPIPetstore.Core, OpenAPIPetstore
rParamsLOpenAPIPetstore.Core, OpenAPIPetstore
runConfigLogOpenAPIPetstore.Client, OpenAPIPetstore
runConfigLogWithExceptionsOpenAPIPetstore.Client, OpenAPIPetstore
runDefaultLogExecWithContextOpenAPIPetstore.Logging, OpenAPIPetstore
runNullLogExecOpenAPIPetstore.Logging, OpenAPIPetstore
rUrlPathOpenAPIPetstore.Core, OpenAPIPetstore
rUrlPathLOpenAPIPetstore.Core, OpenAPIPetstore
setBodyParamOpenAPIPetstore.Core, OpenAPIPetstore
setHeaderOpenAPIPetstore.Core, OpenAPIPetstore
setQueryOpenAPIPetstore.Core, OpenAPIPetstore
SpaceSeparatedOpenAPIPetstore.Core, OpenAPIPetstore
SpecialModelName 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
specialModelNameSpecialPropertyNameOpenAPIPetstore.Model, OpenAPIPetstore
specialModelNameSpecialPropertyNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Status 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
StatusText 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
stderrLoggingContextOpenAPIPetstore.Logging, OpenAPIPetstore
stderrLoggingExecOpenAPIPetstore.Logging, OpenAPIPetstore
stdoutLoggingContextOpenAPIPetstore.Logging, OpenAPIPetstore
stdoutLoggingExecOpenAPIPetstore.Logging, OpenAPIPetstore
TabSeparatedOpenAPIPetstore.Core, OpenAPIPetstore
Tag 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
tagIdOpenAPIPetstore.Model, OpenAPIPetstore
tagIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
tagNameOpenAPIPetstore.Model, OpenAPIPetstore
tagNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Tags 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
TestClassnameOpenAPIPetstore.API.FakeClassnameTags123, OpenAPIPetstore.API, OpenAPIPetstore
testClassnameOpenAPIPetstore.API.FakeClassnameTags123, OpenAPIPetstore.API, OpenAPIPetstore
TestClientModelOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
testClientModelOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
TestEndpointParametersOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
testEndpointParametersOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
TestEnumParametersOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
testEnumParametersOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
TestInlineAdditionalPropertiesOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
testInlineAdditionalPropertiesOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
TestJsonFormDataOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
testJsonFormDataOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
TestSpecialTagsOpenAPIPetstore.API.AnotherFake, OpenAPIPetstore.API, OpenAPIPetstore
testSpecialTagsOpenAPIPetstore.API.AnotherFake, OpenAPIPetstore.API, OpenAPIPetstore
toE'ArrayEnumOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumFormStringOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumFormStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumIntegerOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumNumberOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumQueryIntegerOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumStringOpenAPIPetstore.Model, OpenAPIPetstore
toE'InnerOpenAPIPetstore.Model, OpenAPIPetstore
toE'JustSymbolOpenAPIPetstore.Model, OpenAPIPetstore
toE'StatusOpenAPIPetstore.Model, OpenAPIPetstore
toE'Status2OpenAPIPetstore.Model, OpenAPIPetstore
toEnumClassOpenAPIPetstore.Model, OpenAPIPetstore
toFormOpenAPIPetstore.Core, OpenAPIPetstore
toFormCollOpenAPIPetstore.Core, OpenAPIPetstore
toHeaderOpenAPIPetstore.Core, OpenAPIPetstore
toHeaderCollOpenAPIPetstore.Core, OpenAPIPetstore
toOuterEnumOpenAPIPetstore.Model, OpenAPIPetstore
toPathOpenAPIPetstore.Core, OpenAPIPetstore
toQueryOpenAPIPetstore.Core, OpenAPIPetstore
toQueryCollOpenAPIPetstore.Core, OpenAPIPetstore
unAcceptOpenAPIPetstore.MimeTypes, OpenAPIPetstore
unAdditionalMetadataOpenAPIPetstore.Model, OpenAPIPetstore
unApiKeyOpenAPIPetstore.Model, OpenAPIPetstore
unBinaryOpenAPIPetstore.Core, OpenAPIPetstore
unBodyOpenAPIPetstore.Model, OpenAPIPetstore
unBodyBoolOpenAPIPetstore.Model, OpenAPIPetstore
unBodyTextOpenAPIPetstore.Model, OpenAPIPetstore
unByteOpenAPIPetstore.Model, OpenAPIPetstore
unByteArrayOpenAPIPetstore.Core, OpenAPIPetstore
unCallbackOpenAPIPetstore.Model, OpenAPIPetstore
unContentTypeOpenAPIPetstore.MimeTypes, OpenAPIPetstore
unDateOpenAPIPetstore.Core, OpenAPIPetstore
unDateTimeOpenAPIPetstore.Core, OpenAPIPetstore
unEnumFormStringOpenAPIPetstore.Model, OpenAPIPetstore
unEnumFormStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
unEnumHeaderStringOpenAPIPetstore.Model, OpenAPIPetstore
unEnumHeaderStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
unEnumQueryDoubleOpenAPIPetstore.Model, OpenAPIPetstore
unEnumQueryIntegerOpenAPIPetstore.Model, OpenAPIPetstore
unEnumQueryStringOpenAPIPetstore.Model, OpenAPIPetstore
unEnumQueryStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
unFileOpenAPIPetstore.Model, OpenAPIPetstore
unInitRequestOpenAPIPetstore.Client, OpenAPIPetstore
unInt32OpenAPIPetstore.Model, OpenAPIPetstore
unInt64OpenAPIPetstore.Model, OpenAPIPetstore
unName2OpenAPIPetstore.Model, OpenAPIPetstore
unNumberOpenAPIPetstore.Model, OpenAPIPetstore
unOrderIdOpenAPIPetstore.Model, OpenAPIPetstore
unOrderIdTextOpenAPIPetstore.Model, OpenAPIPetstore
unParamOpenAPIPetstore.Model, OpenAPIPetstore
unParam2OpenAPIPetstore.Model, OpenAPIPetstore
unParamBinaryOpenAPIPetstore.Model, OpenAPIPetstore
unParamDateOpenAPIPetstore.Model, OpenAPIPetstore
unParamDateTimeOpenAPIPetstore.Model, OpenAPIPetstore
unParamDoubleOpenAPIPetstore.Model, OpenAPIPetstore
unParamFloatOpenAPIPetstore.Model, OpenAPIPetstore
unParamIntegerOpenAPIPetstore.Model, OpenAPIPetstore
unParamStringOpenAPIPetstore.Model, OpenAPIPetstore
unPasswordOpenAPIPetstore.Model, OpenAPIPetstore
unPatternWithoutDelimiterOpenAPIPetstore.Model, OpenAPIPetstore
unPetIdOpenAPIPetstore.Model, OpenAPIPetstore
unRequestBodyOpenAPIPetstore.Model, OpenAPIPetstore
unStatusOpenAPIPetstore.Model, OpenAPIPetstore
unStatusTextOpenAPIPetstore.Model, OpenAPIPetstore
unTagsOpenAPIPetstore.Model, OpenAPIPetstore
unUser2OpenAPIPetstore.Model, OpenAPIPetstore
unUsernameOpenAPIPetstore.Model, OpenAPIPetstore
UpdatePetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
updatePetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
UpdatePetWithFormOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
updatePetWithFormOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
UpdateUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
updateUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
UploadFileOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
uploadFileOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
User 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
User2 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
userEmailOpenAPIPetstore.Model, OpenAPIPetstore
userEmailLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userFirstNameOpenAPIPetstore.Model, OpenAPIPetstore
userFirstNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userIdOpenAPIPetstore.Model, OpenAPIPetstore
userIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userLastNameOpenAPIPetstore.Model, OpenAPIPetstore
userLastNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Username 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
userPasswordOpenAPIPetstore.Model, OpenAPIPetstore
userPasswordLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userPhoneOpenAPIPetstore.Model, OpenAPIPetstore
userPhoneLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userUsernameOpenAPIPetstore.Model, OpenAPIPetstore
userUsernameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userUserStatusOpenAPIPetstore.Model, OpenAPIPetstore
userUserStatusLOpenAPIPetstore.ModelLens, OpenAPIPetstore
withNoLoggingOpenAPIPetstore.Core, OpenAPIPetstore
withStderrLoggingOpenAPIPetstore.Core, OpenAPIPetstore
withStdoutLoggingOpenAPIPetstore.Core, OpenAPIPetstore
_addMultiFormPartOpenAPIPetstore.Core, OpenAPIPetstore
_applyAuthMethodsOpenAPIPetstore.Core, OpenAPIPetstore
_emptyToNothingOpenAPIPetstore.Core, OpenAPIPetstore
_hasAuthTypeOpenAPIPetstore.Core, OpenAPIPetstore
_logOpenAPIPetstore.Logging, OpenAPIPetstore
_memptyToNothingOpenAPIPetstore.Core, OpenAPIPetstore
_mkParamsOpenAPIPetstore.Core, OpenAPIPetstore
_mkRequestOpenAPIPetstore.Core, OpenAPIPetstore
_omitNullsOpenAPIPetstore.Core, OpenAPIPetstore
_parseISO8601OpenAPIPetstore.Core, OpenAPIPetstore
_readBinaryBase64OpenAPIPetstore.Core, OpenAPIPetstore
_readByteArrayOpenAPIPetstore.Core, OpenAPIPetstore
_readDateOpenAPIPetstore.Core, OpenAPIPetstore
_readDateTimeOpenAPIPetstore.Core, OpenAPIPetstore
_setAcceptHeaderOpenAPIPetstore.Core, OpenAPIPetstore
_setBodyBSOpenAPIPetstore.Core, OpenAPIPetstore
_setBodyLBSOpenAPIPetstore.Core, OpenAPIPetstore
_setContentTypeHeaderOpenAPIPetstore.Core, OpenAPIPetstore
_showBinaryBase64OpenAPIPetstore.Core, OpenAPIPetstore
_showByteArrayOpenAPIPetstore.Core, OpenAPIPetstore
_showDateOpenAPIPetstore.Core, OpenAPIPetstore
_showDateTimeOpenAPIPetstore.Core, OpenAPIPetstore
_toCollOpenAPIPetstore.Core, OpenAPIPetstore
_toCollAOpenAPIPetstore.Core, OpenAPIPetstore
_toCollA'OpenAPIPetstore.Core, OpenAPIPetstore
_toFormItemOpenAPIPetstore.Core, OpenAPIPetstore
_toInitRequestOpenAPIPetstore.Client, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-B.html b/samples/client/petstore/haskell-http-client/docs/doc-index-B.html index d61fb6b22da..2cd312c16ae 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-B.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-B.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - B)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - B

Binary 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
Body 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
BodyText 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
BooleanPostBody 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Byte 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ByteArray 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - B

Binary 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
Body 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
BodyBool 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
BodyText 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Byte 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ByteArray 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-C.html b/samples/client/petstore/haskell-http-client/docs/doc-index-C.html index 286cfe37e9c..2c8bf57f9d2 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-C.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-C.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - C)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - C

Callback 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Capitalization 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
capitalizationAttNameSwaggerPetstore.Model, SwaggerPetstore
capitalizationAttNameLSwaggerPetstore.ModelLens, SwaggerPetstore
capitalizationCapitalCamelSwaggerPetstore.Model, SwaggerPetstore
capitalizationCapitalCamelLSwaggerPetstore.ModelLens, SwaggerPetstore
capitalizationCapitalSnakeSwaggerPetstore.Model, SwaggerPetstore
capitalizationCapitalSnakeLSwaggerPetstore.ModelLens, SwaggerPetstore
capitalizationScaEthFlowPointsSwaggerPetstore.Model, SwaggerPetstore
capitalizationScaEthFlowPointsLSwaggerPetstore.ModelLens, SwaggerPetstore
capitalizationSmallCamelSwaggerPetstore.Model, SwaggerPetstore
capitalizationSmallCamelLSwaggerPetstore.ModelLens, SwaggerPetstore
capitalizationSmallSnakeSwaggerPetstore.Model, SwaggerPetstore
capitalizationSmallSnakeLSwaggerPetstore.ModelLens, SwaggerPetstore
Cat 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
catClassNameSwaggerPetstore.Model, SwaggerPetstore
catClassNameLSwaggerPetstore.ModelLens, SwaggerPetstore
catColorSwaggerPetstore.Model, SwaggerPetstore
catColorLSwaggerPetstore.ModelLens, SwaggerPetstore
catDeclawedSwaggerPetstore.Model, SwaggerPetstore
catDeclawedLSwaggerPetstore.ModelLens, SwaggerPetstore
Category 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
categoryIdSwaggerPetstore.Model, SwaggerPetstore
categoryIdLSwaggerPetstore.ModelLens, SwaggerPetstore
categoryNameSwaggerPetstore.Model, SwaggerPetstore
categoryNameLSwaggerPetstore.ModelLens, SwaggerPetstore
ClassModel 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
classModelClassSwaggerPetstore.Model, SwaggerPetstore
classModelClassLSwaggerPetstore.ModelLens, SwaggerPetstore
Client 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
clientClientSwaggerPetstore.Model, SwaggerPetstore
clientClientLSwaggerPetstore.ModelLens, SwaggerPetstore
CollectionFormatSwaggerPetstore.Core, SwaggerPetstore
CommaSeparatedSwaggerPetstore.Core, SwaggerPetstore
configAuthMethodsSwaggerPetstore.Core, SwaggerPetstore
configHostSwaggerPetstore.Core, SwaggerPetstore
configLogContextSwaggerPetstore.Core, SwaggerPetstore
configLogExecWithContextSwaggerPetstore.Core, SwaggerPetstore
configUserAgentSwaggerPetstore.Core, SwaggerPetstore
configValidateAuthMethodsSwaggerPetstore.Core, SwaggerPetstore
ConsumesSwaggerPetstore.MimeTypes, SwaggerPetstore
ContentType 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
CreateUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
createUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
CreateUsersWithArrayInputSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
createUsersWithArrayInputSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
CreateUsersWithListInputSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
createUsersWithListInputSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - C

Callback 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Capitalization 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
capitalizationAttNameOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationAttNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
capitalizationCapitalCamelOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationCapitalCamelLOpenAPIPetstore.ModelLens, OpenAPIPetstore
capitalizationCapitalSnakeOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationCapitalSnakeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
capitalizationScaEthFlowPointsOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationScaEthFlowPointsLOpenAPIPetstore.ModelLens, OpenAPIPetstore
capitalizationSmallCamelOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationSmallCamelLOpenAPIPetstore.ModelLens, OpenAPIPetstore
capitalizationSmallSnakeOpenAPIPetstore.Model, OpenAPIPetstore
capitalizationSmallSnakeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Cat 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
catClassNameOpenAPIPetstore.Model, OpenAPIPetstore
catClassNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
catColorOpenAPIPetstore.Model, OpenAPIPetstore
catColorLOpenAPIPetstore.ModelLens, OpenAPIPetstore
catDeclawedOpenAPIPetstore.Model, OpenAPIPetstore
catDeclawedLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Category 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
categoryIdOpenAPIPetstore.Model, OpenAPIPetstore
categoryIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
categoryNameOpenAPIPetstore.Model, OpenAPIPetstore
categoryNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
ClassModel 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
classModelClassOpenAPIPetstore.Model, OpenAPIPetstore
classModelClassLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Client 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
clientClientOpenAPIPetstore.Model, OpenAPIPetstore
clientClientLOpenAPIPetstore.ModelLens, OpenAPIPetstore
CollectionFormatOpenAPIPetstore.Core, OpenAPIPetstore
CommaSeparatedOpenAPIPetstore.Core, OpenAPIPetstore
configAuthMethodsOpenAPIPetstore.Core, OpenAPIPetstore
configHostOpenAPIPetstore.Core, OpenAPIPetstore
configLogContextOpenAPIPetstore.Core, OpenAPIPetstore
configLogExecWithContextOpenAPIPetstore.Core, OpenAPIPetstore
configUserAgentOpenAPIPetstore.Core, OpenAPIPetstore
configValidateAuthMethodsOpenAPIPetstore.Core, OpenAPIPetstore
ConsumesOpenAPIPetstore.MimeTypes, OpenAPIPetstore
ContentType 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
CreateUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
createUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
CreateUsersWithArrayInputOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
createUsersWithArrayInputOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
CreateUsersWithListInputOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
createUsersWithListInputOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-D.html b/samples/client/petstore/haskell-http-client/docs/doc-index-D.html index 4aea1cfbcee..879046216a0 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-D.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-D.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - D)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - D

Date 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
DateTime 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
DeleteOrderSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
deleteOrderSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
DeletePetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
deletePetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
DeleteUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
deleteUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
dispatchInitUnsafeSwaggerPetstore.Client, SwaggerPetstore
dispatchLbsSwaggerPetstore.Client, SwaggerPetstore
dispatchLbsUnsafeSwaggerPetstore.Client, SwaggerPetstore
dispatchMimeSwaggerPetstore.Client, SwaggerPetstore
dispatchMime'SwaggerPetstore.Client, SwaggerPetstore
Dog 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
dogBreedSwaggerPetstore.Model, SwaggerPetstore
dogBreedLSwaggerPetstore.ModelLens, SwaggerPetstore
dogClassNameSwaggerPetstore.Model, SwaggerPetstore
dogClassNameLSwaggerPetstore.ModelLens, SwaggerPetstore
dogColorSwaggerPetstore.Model, SwaggerPetstore
dogColorLSwaggerPetstore.ModelLens, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - D

Date 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
DateTime 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
DeleteOrderOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
deleteOrderOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
DeletePetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
deletePetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
DeleteUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
deleteUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
dispatchInitUnsafeOpenAPIPetstore.Client, OpenAPIPetstore
dispatchLbsOpenAPIPetstore.Client, OpenAPIPetstore
dispatchLbsUnsafeOpenAPIPetstore.Client, OpenAPIPetstore
dispatchMimeOpenAPIPetstore.Client, OpenAPIPetstore
dispatchMime'OpenAPIPetstore.Client, OpenAPIPetstore
Dog 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
dogBreedOpenAPIPetstore.Model, OpenAPIPetstore
dogBreedLOpenAPIPetstore.ModelLens, OpenAPIPetstore
dogClassNameOpenAPIPetstore.Model, OpenAPIPetstore
dogClassNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
dogColorOpenAPIPetstore.Model, OpenAPIPetstore
dogColorLOpenAPIPetstore.ModelLens, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-E.html b/samples/client/petstore/haskell-http-client/docs/doc-index-E.html index 664c4a79b1c..ccffcf7d7f0 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-E.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-E.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - E)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - E

E'ArrayEnumSwaggerPetstore.Model, SwaggerPetstore
E'ArrayEnum'CrabSwaggerPetstore.Model, SwaggerPetstore
E'ArrayEnum'FishSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormStringSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormString'_abcSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormString'_efgSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormString'_xyzSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormStringArraySwaggerPetstore.Model, SwaggerPetstore
E'EnumFormStringArray'DollarSwaggerPetstore.Model, SwaggerPetstore
E'EnumFormStringArray'GreaterThanSwaggerPetstore.Model, SwaggerPetstore
E'EnumIntegerSwaggerPetstore.Model, SwaggerPetstore
E'EnumInteger'Num1SwaggerPetstore.Model, SwaggerPetstore
E'EnumInteger'NumMinus_1SwaggerPetstore.Model, SwaggerPetstore
E'EnumNumberSwaggerPetstore.Model, SwaggerPetstore
E'EnumNumber'Num1_Dot_1SwaggerPetstore.Model, SwaggerPetstore
E'EnumNumber'NumMinus_1_Dot_2SwaggerPetstore.Model, SwaggerPetstore
E'EnumQueryIntegerSwaggerPetstore.Model, SwaggerPetstore
E'EnumQueryInteger'Num1SwaggerPetstore.Model, SwaggerPetstore
E'EnumQueryInteger'NumMinus_2SwaggerPetstore.Model, SwaggerPetstore
E'EnumStringSwaggerPetstore.Model, SwaggerPetstore
E'EnumString'EmptySwaggerPetstore.Model, SwaggerPetstore
E'EnumString'LowerSwaggerPetstore.Model, SwaggerPetstore
E'EnumString'UPPERSwaggerPetstore.Model, SwaggerPetstore
E'InnerSwaggerPetstore.Model, SwaggerPetstore
E'Inner'LowerSwaggerPetstore.Model, SwaggerPetstore
E'Inner'UPPERSwaggerPetstore.Model, SwaggerPetstore
E'JustSymbolSwaggerPetstore.Model, SwaggerPetstore
E'JustSymbol'DollarSwaggerPetstore.Model, SwaggerPetstore
E'JustSymbol'Greater_Than_Or_Equal_ToSwaggerPetstore.Model, SwaggerPetstore
E'StatusSwaggerPetstore.Model, SwaggerPetstore
E'Status'ApprovedSwaggerPetstore.Model, SwaggerPetstore
E'Status'DeliveredSwaggerPetstore.Model, SwaggerPetstore
E'Status'PlacedSwaggerPetstore.Model, SwaggerPetstore
E'Status2SwaggerPetstore.Model, SwaggerPetstore
E'Status2'AvailableSwaggerPetstore.Model, SwaggerPetstore
E'Status2'PendingSwaggerPetstore.Model, SwaggerPetstore
E'Status2'SoldSwaggerPetstore.Model, SwaggerPetstore
EnumArrays 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
enumArraysArrayEnumSwaggerPetstore.Model, SwaggerPetstore
enumArraysArrayEnumLSwaggerPetstore.ModelLens, SwaggerPetstore
enumArraysJustSymbolSwaggerPetstore.Model, SwaggerPetstore
enumArraysJustSymbolLSwaggerPetstore.ModelLens, SwaggerPetstore
EnumClassSwaggerPetstore.Model, SwaggerPetstore
EnumClass'_abcSwaggerPetstore.Model, SwaggerPetstore
EnumClass'_efgSwaggerPetstore.Model, SwaggerPetstore
EnumClass'_xyzSwaggerPetstore.Model, SwaggerPetstore
EnumFormString 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumFormStringArray 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumHeaderString 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumHeaderStringArray 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumQueryDouble 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumQueryInteger 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumQueryString 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumQueryStringArray 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
EnumTest 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
enumTestEnumIntegerSwaggerPetstore.Model, SwaggerPetstore
enumTestEnumIntegerLSwaggerPetstore.ModelLens, SwaggerPetstore
enumTestEnumNumberSwaggerPetstore.Model, SwaggerPetstore
enumTestEnumNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
enumTestEnumStringSwaggerPetstore.Model, SwaggerPetstore
enumTestEnumStringLSwaggerPetstore.ModelLens, SwaggerPetstore
enumTestEnumStringRequiredSwaggerPetstore.Model, SwaggerPetstore
enumTestEnumStringRequiredLSwaggerPetstore.ModelLens, SwaggerPetstore
enumTestOuterEnumSwaggerPetstore.Model, SwaggerPetstore
enumTestOuterEnumLSwaggerPetstore.ModelLens, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - E

E'ArrayEnumOpenAPIPetstore.Model, OpenAPIPetstore
E'ArrayEnum'CrabOpenAPIPetstore.Model, OpenAPIPetstore
E'ArrayEnum'FishOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormStringOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormString'_abcOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormString'_efgOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormString'_xyzOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormStringArray'DollarOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumFormStringArray'GreaterThanOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumIntegerOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumInteger'Num1OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumInteger'NumMinus_1OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumNumberOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumNumber'Num1_Dot_1OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumNumber'NumMinus_1_Dot_2OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumQueryIntegerOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumQueryInteger'Num1OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumQueryInteger'NumMinus_2OpenAPIPetstore.Model, OpenAPIPetstore
E'EnumStringOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumString'EmptyOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumString'LowerOpenAPIPetstore.Model, OpenAPIPetstore
E'EnumString'UPPEROpenAPIPetstore.Model, OpenAPIPetstore
E'InnerOpenAPIPetstore.Model, OpenAPIPetstore
E'Inner'LowerOpenAPIPetstore.Model, OpenAPIPetstore
E'Inner'UPPEROpenAPIPetstore.Model, OpenAPIPetstore
E'JustSymbolOpenAPIPetstore.Model, OpenAPIPetstore
E'JustSymbol'DollarOpenAPIPetstore.Model, OpenAPIPetstore
E'JustSymbol'Greater_Than_Or_Equal_ToOpenAPIPetstore.Model, OpenAPIPetstore
E'StatusOpenAPIPetstore.Model, OpenAPIPetstore
E'Status'ApprovedOpenAPIPetstore.Model, OpenAPIPetstore
E'Status'DeliveredOpenAPIPetstore.Model, OpenAPIPetstore
E'Status'PlacedOpenAPIPetstore.Model, OpenAPIPetstore
E'Status2OpenAPIPetstore.Model, OpenAPIPetstore
E'Status2'AvailableOpenAPIPetstore.Model, OpenAPIPetstore
E'Status2'PendingOpenAPIPetstore.Model, OpenAPIPetstore
E'Status2'SoldOpenAPIPetstore.Model, OpenAPIPetstore
EnumArrays 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
enumArraysArrayEnumOpenAPIPetstore.Model, OpenAPIPetstore
enumArraysArrayEnumLOpenAPIPetstore.ModelLens, OpenAPIPetstore
enumArraysJustSymbolOpenAPIPetstore.Model, OpenAPIPetstore
enumArraysJustSymbolLOpenAPIPetstore.ModelLens, OpenAPIPetstore
EnumClassOpenAPIPetstore.Model, OpenAPIPetstore
EnumClass'_abcOpenAPIPetstore.Model, OpenAPIPetstore
EnumClass'_efgOpenAPIPetstore.Model, OpenAPIPetstore
EnumClass'_xyzOpenAPIPetstore.Model, OpenAPIPetstore
EnumFormString 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumFormStringArray 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumHeaderString 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumHeaderStringArray 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumQueryDouble 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumQueryInteger 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumQueryString 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumQueryStringArray 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
EnumTest 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
enumTestEnumIntegerOpenAPIPetstore.Model, OpenAPIPetstore
enumTestEnumIntegerLOpenAPIPetstore.ModelLens, OpenAPIPetstore
enumTestEnumNumberOpenAPIPetstore.Model, OpenAPIPetstore
enumTestEnumNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
enumTestEnumStringOpenAPIPetstore.Model, OpenAPIPetstore
enumTestEnumStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
enumTestEnumStringRequiredOpenAPIPetstore.Model, OpenAPIPetstore
enumTestEnumStringRequiredLOpenAPIPetstore.ModelLens, OpenAPIPetstore
enumTestOuterEnumOpenAPIPetstore.Model, OpenAPIPetstore
enumTestOuterEnumLOpenAPIPetstore.ModelLens, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-F.html b/samples/client/petstore/haskell-http-client/docs/doc-index-F.html index 3105aa84feb..e95fbf017a9 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-F.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-F.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - F)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - F

FakeOuterBooleanSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
fakeOuterBooleanSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
FakeOuterCompositeSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
fakeOuterCompositeSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
FakeOuterNumberSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
fakeOuterNumberSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
FakeOuterStringSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
fakeOuterStringSerializeSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
File 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
FindPetsByStatusSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
findPetsByStatusSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
FindPetsByTagsSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
findPetsByTagsSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
FormatTest 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
formatTestBinarySwaggerPetstore.Model, SwaggerPetstore
formatTestBinaryLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestByteSwaggerPetstore.Model, SwaggerPetstore
formatTestByteLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestDateSwaggerPetstore.Model, SwaggerPetstore
formatTestDateLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestDateTimeSwaggerPetstore.Model, SwaggerPetstore
formatTestDateTimeLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestDoubleSwaggerPetstore.Model, SwaggerPetstore
formatTestDoubleLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestFloatSwaggerPetstore.Model, SwaggerPetstore
formatTestFloatLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestInt32SwaggerPetstore.Model, SwaggerPetstore
formatTestInt32LSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestInt64SwaggerPetstore.Model, SwaggerPetstore
formatTestInt64LSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestIntegerSwaggerPetstore.Model, SwaggerPetstore
formatTestIntegerLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestNumberSwaggerPetstore.Model, SwaggerPetstore
formatTestNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestPasswordSwaggerPetstore.Model, SwaggerPetstore
formatTestPasswordLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestStringSwaggerPetstore.Model, SwaggerPetstore
formatTestStringLSwaggerPetstore.ModelLens, SwaggerPetstore
formatTestUuidSwaggerPetstore.Model, SwaggerPetstore
formatTestUuidLSwaggerPetstore.ModelLens, SwaggerPetstore
fromE'ArrayEnumSwaggerPetstore.Model, SwaggerPetstore
fromE'EnumFormStringSwaggerPetstore.Model, SwaggerPetstore
fromE'EnumFormStringArraySwaggerPetstore.Model, SwaggerPetstore
fromE'EnumIntegerSwaggerPetstore.Model, SwaggerPetstore
fromE'EnumNumberSwaggerPetstore.Model, SwaggerPetstore
fromE'EnumQueryIntegerSwaggerPetstore.Model, SwaggerPetstore
fromE'EnumStringSwaggerPetstore.Model, SwaggerPetstore
fromE'InnerSwaggerPetstore.Model, SwaggerPetstore
fromE'JustSymbolSwaggerPetstore.Model, SwaggerPetstore
fromE'StatusSwaggerPetstore.Model, SwaggerPetstore
fromE'Status2SwaggerPetstore.Model, SwaggerPetstore
fromEnumClassSwaggerPetstore.Model, SwaggerPetstore
fromOuterEnumSwaggerPetstore.Model, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - F

FakeOuterBooleanSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
fakeOuterBooleanSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
FakeOuterCompositeSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
fakeOuterCompositeSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
FakeOuterNumberSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
fakeOuterNumberSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
FakeOuterStringSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
fakeOuterStringSerializeOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
File 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
FindPetsByStatusOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
findPetsByStatusOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
FindPetsByTagsOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
findPetsByTagsOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
FormatTest 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
formatTestBinaryOpenAPIPetstore.Model, OpenAPIPetstore
formatTestBinaryLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestByteOpenAPIPetstore.Model, OpenAPIPetstore
formatTestByteLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestDateOpenAPIPetstore.Model, OpenAPIPetstore
formatTestDateLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestDateTimeOpenAPIPetstore.Model, OpenAPIPetstore
formatTestDateTimeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestDoubleOpenAPIPetstore.Model, OpenAPIPetstore
formatTestDoubleLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestFloatOpenAPIPetstore.Model, OpenAPIPetstore
formatTestFloatLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestInt32OpenAPIPetstore.Model, OpenAPIPetstore
formatTestInt32LOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestInt64OpenAPIPetstore.Model, OpenAPIPetstore
formatTestInt64LOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestIntegerOpenAPIPetstore.Model, OpenAPIPetstore
formatTestIntegerLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestNumberOpenAPIPetstore.Model, OpenAPIPetstore
formatTestNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestPasswordOpenAPIPetstore.Model, OpenAPIPetstore
formatTestPasswordLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestStringOpenAPIPetstore.Model, OpenAPIPetstore
formatTestStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
formatTestUuidOpenAPIPetstore.Model, OpenAPIPetstore
formatTestUuidLOpenAPIPetstore.ModelLens, OpenAPIPetstore
fromE'ArrayEnumOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumFormStringOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumFormStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumIntegerOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumNumberOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumQueryIntegerOpenAPIPetstore.Model, OpenAPIPetstore
fromE'EnumStringOpenAPIPetstore.Model, OpenAPIPetstore
fromE'InnerOpenAPIPetstore.Model, OpenAPIPetstore
fromE'JustSymbolOpenAPIPetstore.Model, OpenAPIPetstore
fromE'StatusOpenAPIPetstore.Model, OpenAPIPetstore
fromE'Status2OpenAPIPetstore.Model, OpenAPIPetstore
fromEnumClassOpenAPIPetstore.Model, OpenAPIPetstore
fromOuterEnumOpenAPIPetstore.Model, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-G.html b/samples/client/petstore/haskell-http-client/docs/doc-index-G.html index 22b6c566e64..64f95948f2d 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-G.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-G.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - G)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - G

GetInventorySwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
getInventorySwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
GetOrderByIdSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
getOrderByIdSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
GetPetByIdSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
getPetByIdSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
GetUserByNameSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
getUserByNameSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - G

GetInventoryOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
getInventoryOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
GetOrderByIdOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
getOrderByIdOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
GetPetByIdOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
getPetByIdOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
GetUserByNameOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
getUserByNameOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-H.html b/samples/client/petstore/haskell-http-client/docs/doc-index-H.html index 45372f9c26b..ffaa96b4cbd 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-H.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-H.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - H)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - H

HasBodyParamSwaggerPetstore.Core, SwaggerPetstore
HasOnlyReadOnly 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
hasOnlyReadOnlyBarSwaggerPetstore.Model, SwaggerPetstore
hasOnlyReadOnlyBarLSwaggerPetstore.ModelLens, SwaggerPetstore
hasOnlyReadOnlyFooSwaggerPetstore.Model, SwaggerPetstore
hasOnlyReadOnlyFooLSwaggerPetstore.ModelLens, SwaggerPetstore
HasOptionalParamSwaggerPetstore.Core, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - H

HasBodyParamOpenAPIPetstore.Core, OpenAPIPetstore
HasOnlyReadOnly 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
hasOnlyReadOnlyBarOpenAPIPetstore.Model, OpenAPIPetstore
hasOnlyReadOnlyBarLOpenAPIPetstore.ModelLens, OpenAPIPetstore
hasOnlyReadOnlyFooOpenAPIPetstore.Model, OpenAPIPetstore
hasOnlyReadOnlyFooLOpenAPIPetstore.ModelLens, OpenAPIPetstore
HasOptionalParamOpenAPIPetstore.Core, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-I.html b/samples/client/petstore/haskell-http-client/docs/doc-index-I.html index d073206d792..5239b3c49fe 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-I.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-I.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - I)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - I

initLogContextSwaggerPetstore.Logging, SwaggerPetstore
InitRequest 
1 (Type/Class)SwaggerPetstore.Client, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Client, SwaggerPetstore
Int32 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Int64 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - I

initLogContextOpenAPIPetstore.Logging, OpenAPIPetstore
InitRequest 
1 (Type/Class)OpenAPIPetstore.Client, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Client, OpenAPIPetstore
Int32 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Int64 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-L.html b/samples/client/petstore/haskell-http-client/docs/doc-index-L.html index 19128417a37..ac3354d1a0d 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-L.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-L.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - L)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - L

Lens_SwaggerPetstore.Core, SwaggerPetstore
Lens_'SwaggerPetstore.Core, SwaggerPetstore
levelDebugSwaggerPetstore.Logging, SwaggerPetstore
levelErrorSwaggerPetstore.Logging, SwaggerPetstore
levelInfoSwaggerPetstore.Logging, SwaggerPetstore
LogContextSwaggerPetstore.Logging, SwaggerPetstore
logExceptionsSwaggerPetstore.Logging, SwaggerPetstore
LogExecSwaggerPetstore.Logging, SwaggerPetstore
LogExecWithContextSwaggerPetstore.Logging, SwaggerPetstore
LoginUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
loginUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
LogLevelSwaggerPetstore.Logging, SwaggerPetstore
LogoutUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
logoutUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - L

Lens_OpenAPIPetstore.Core, OpenAPIPetstore
Lens_'OpenAPIPetstore.Core, OpenAPIPetstore
levelDebugOpenAPIPetstore.Logging, OpenAPIPetstore
levelErrorOpenAPIPetstore.Logging, OpenAPIPetstore
levelInfoOpenAPIPetstore.Logging, OpenAPIPetstore
LogContextOpenAPIPetstore.Logging, OpenAPIPetstore
logExceptionsOpenAPIPetstore.Logging, OpenAPIPetstore
LogExecOpenAPIPetstore.Logging, OpenAPIPetstore
LogExecWithContextOpenAPIPetstore.Logging, OpenAPIPetstore
LoginUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
loginUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
LogLevelOpenAPIPetstore.Logging, OpenAPIPetstore
LogoutUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
logoutUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-M.html b/samples/client/petstore/haskell-http-client/docs/doc-index-M.html index 4320f9a3e3c..745cf5297d2 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-M.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-M.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - M)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - M

MapTest 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
mapTestMapMapOfStringSwaggerPetstore.Model, SwaggerPetstore
mapTestMapMapOfStringLSwaggerPetstore.ModelLens, SwaggerPetstore
mapTestMapOfEnumStringSwaggerPetstore.Model, SwaggerPetstore
mapTestMapOfEnumStringLSwaggerPetstore.ModelLens, SwaggerPetstore
MimeAny 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeError 
1 (Type/Class)SwaggerPetstore.Client, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Client, SwaggerPetstore
mimeErrorSwaggerPetstore.Client, SwaggerPetstore
mimeErrorResponseSwaggerPetstore.Client, SwaggerPetstore
MimeFormUrlEncoded 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeJSON 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeMultipartFormData 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeNoContent 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeOctetStream 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimePlainText 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeRenderSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeRenderSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeRender'SwaggerPetstore.MimeTypes, SwaggerPetstore
mimeRenderDefaultMultipartFormDataSwaggerPetstore.MimeTypes, SwaggerPetstore
MimeResult 
1 (Type/Class)SwaggerPetstore.Client, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Client, SwaggerPetstore
mimeResultSwaggerPetstore.Client, SwaggerPetstore
mimeResultResponseSwaggerPetstore.Client, SwaggerPetstore
MimeTypeSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeTypeSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeType'SwaggerPetstore.MimeTypes, SwaggerPetstore
mimeTypesSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeTypes'SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeUnrenderSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeUnrenderSwaggerPetstore.MimeTypes, SwaggerPetstore
mimeUnrender'SwaggerPetstore.MimeTypes, SwaggerPetstore
MimeXML 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
MixedPropertiesAndAdditionalPropertiesClass 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassDateTimeSwaggerPetstore.Model, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassDateTimeLSwaggerPetstore.ModelLens, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassMapSwaggerPetstore.Model, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassMapLSwaggerPetstore.ModelLens, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassUuidSwaggerPetstore.Model, SwaggerPetstore
mixedPropertiesAndAdditionalPropertiesClassUuidLSwaggerPetstore.ModelLens, SwaggerPetstore
mkAdditionalPropertiesClassSwaggerPetstore.Model, SwaggerPetstore
mkAnimalSwaggerPetstore.Model, SwaggerPetstore
mkApiResponseSwaggerPetstore.Model, SwaggerPetstore
mkArrayOfArrayOfNumberOnlySwaggerPetstore.Model, SwaggerPetstore
mkArrayOfNumberOnlySwaggerPetstore.Model, SwaggerPetstore
mkArrayTestSwaggerPetstore.Model, SwaggerPetstore
mkCapitalizationSwaggerPetstore.Model, SwaggerPetstore
mkCatSwaggerPetstore.Model, SwaggerPetstore
mkCategorySwaggerPetstore.Model, SwaggerPetstore
mkClassModelSwaggerPetstore.Model, SwaggerPetstore
mkClientSwaggerPetstore.Model, SwaggerPetstore
mkDogSwaggerPetstore.Model, SwaggerPetstore
mkEnumArraysSwaggerPetstore.Model, SwaggerPetstore
mkEnumTestSwaggerPetstore.Model, SwaggerPetstore
mkFormatTestSwaggerPetstore.Model, SwaggerPetstore
mkHasOnlyReadOnlySwaggerPetstore.Model, SwaggerPetstore
mkMapTestSwaggerPetstore.Model, SwaggerPetstore
mkMixedPropertiesAndAdditionalPropertiesClassSwaggerPetstore.Model, SwaggerPetstore
mkModel200ResponseSwaggerPetstore.Model, SwaggerPetstore
mkModelListSwaggerPetstore.Model, SwaggerPetstore
mkModelReturnSwaggerPetstore.Model, SwaggerPetstore
mkNameSwaggerPetstore.Model, SwaggerPetstore
mkNumberOnlySwaggerPetstore.Model, SwaggerPetstore
mkOrderSwaggerPetstore.Model, SwaggerPetstore
mkOuterCompositeSwaggerPetstore.Model, SwaggerPetstore
mkPetSwaggerPetstore.Model, SwaggerPetstore
mkReadOnlyFirstSwaggerPetstore.Model, SwaggerPetstore
mkSpecialModelNameSwaggerPetstore.Model, SwaggerPetstore
mkTagSwaggerPetstore.Model, SwaggerPetstore
mkUserSwaggerPetstore.Model, SwaggerPetstore
Model200Response 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
model200ResponseClassSwaggerPetstore.Model, SwaggerPetstore
model200ResponseClassLSwaggerPetstore.ModelLens, SwaggerPetstore
model200ResponseNameSwaggerPetstore.Model, SwaggerPetstore
model200ResponseNameLSwaggerPetstore.ModelLens, SwaggerPetstore
ModelList 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
modelList123ListSwaggerPetstore.Model, SwaggerPetstore
modelList123ListLSwaggerPetstore.ModelLens, SwaggerPetstore
ModelReturn 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
modelReturnReturnSwaggerPetstore.Model, SwaggerPetstore
modelReturnReturnLSwaggerPetstore.ModelLens, SwaggerPetstore
modifyInitRequestSwaggerPetstore.Client, SwaggerPetstore
modifyInitRequestMSwaggerPetstore.Client, SwaggerPetstore
MultiParamArraySwaggerPetstore.Core, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - M

MapTest 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
mapTestMapMapOfStringOpenAPIPetstore.Model, OpenAPIPetstore
mapTestMapMapOfStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
mapTestMapOfEnumStringOpenAPIPetstore.Model, OpenAPIPetstore
mapTestMapOfEnumStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
MimeAny 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeError 
1 (Type/Class)OpenAPIPetstore.Client, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Client, OpenAPIPetstore
mimeErrorOpenAPIPetstore.Client, OpenAPIPetstore
mimeErrorResponseOpenAPIPetstore.Client, OpenAPIPetstore
MimeFormUrlEncoded 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeJSON 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeMultipartFormData 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeNoContent 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeOctetStream 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimePlainText 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeRenderOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeRenderOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeRender'OpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeRenderDefaultMultipartFormDataOpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeResult 
1 (Type/Class)OpenAPIPetstore.Client, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Client, OpenAPIPetstore
mimeResultOpenAPIPetstore.Client, OpenAPIPetstore
mimeResultResponseOpenAPIPetstore.Client, OpenAPIPetstore
MimeTypeOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeTypeOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeType'OpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeTypesOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeTypes'OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeUnrenderOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeUnrenderOpenAPIPetstore.MimeTypes, OpenAPIPetstore
mimeUnrender'OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MimeXML 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
MixedPropertiesAndAdditionalPropertiesClass 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassDateTimeOpenAPIPetstore.Model, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassDateTimeLOpenAPIPetstore.ModelLens, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassMapOpenAPIPetstore.Model, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassMapLOpenAPIPetstore.ModelLens, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassUuidOpenAPIPetstore.Model, OpenAPIPetstore
mixedPropertiesAndAdditionalPropertiesClassUuidLOpenAPIPetstore.ModelLens, OpenAPIPetstore
mkAdditionalPropertiesClassOpenAPIPetstore.Model, OpenAPIPetstore
mkAnimalOpenAPIPetstore.Model, OpenAPIPetstore
mkAnimalFarmOpenAPIPetstore.Model, OpenAPIPetstore
mkApiResponseOpenAPIPetstore.Model, OpenAPIPetstore
mkArrayOfArrayOfNumberOnlyOpenAPIPetstore.Model, OpenAPIPetstore
mkArrayOfNumberOnlyOpenAPIPetstore.Model, OpenAPIPetstore
mkArrayTestOpenAPIPetstore.Model, OpenAPIPetstore
mkCapitalizationOpenAPIPetstore.Model, OpenAPIPetstore
mkCatOpenAPIPetstore.Model, OpenAPIPetstore
mkCategoryOpenAPIPetstore.Model, OpenAPIPetstore
mkClassModelOpenAPIPetstore.Model, OpenAPIPetstore
mkClientOpenAPIPetstore.Model, OpenAPIPetstore
mkDogOpenAPIPetstore.Model, OpenAPIPetstore
mkEnumArraysOpenAPIPetstore.Model, OpenAPIPetstore
mkEnumTestOpenAPIPetstore.Model, OpenAPIPetstore
mkFormatTestOpenAPIPetstore.Model, OpenAPIPetstore
mkHasOnlyReadOnlyOpenAPIPetstore.Model, OpenAPIPetstore
mkMapTestOpenAPIPetstore.Model, OpenAPIPetstore
mkMixedPropertiesAndAdditionalPropertiesClassOpenAPIPetstore.Model, OpenAPIPetstore
mkModel200ResponseOpenAPIPetstore.Model, OpenAPIPetstore
mkModelListOpenAPIPetstore.Model, OpenAPIPetstore
mkModelReturnOpenAPIPetstore.Model, OpenAPIPetstore
mkNameOpenAPIPetstore.Model, OpenAPIPetstore
mkNumberOnlyOpenAPIPetstore.Model, OpenAPIPetstore
mkOrderOpenAPIPetstore.Model, OpenAPIPetstore
mkOuterCompositeOpenAPIPetstore.Model, OpenAPIPetstore
mkPetOpenAPIPetstore.Model, OpenAPIPetstore
mkReadOnlyFirstOpenAPIPetstore.Model, OpenAPIPetstore
mkSpecialModelNameOpenAPIPetstore.Model, OpenAPIPetstore
mkTagOpenAPIPetstore.Model, OpenAPIPetstore
mkUserOpenAPIPetstore.Model, OpenAPIPetstore
Model200Response 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
model200ResponseClassOpenAPIPetstore.Model, OpenAPIPetstore
model200ResponseClassLOpenAPIPetstore.ModelLens, OpenAPIPetstore
model200ResponseNameOpenAPIPetstore.Model, OpenAPIPetstore
model200ResponseNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
ModelList 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
modelList123listOpenAPIPetstore.Model, OpenAPIPetstore
modelList123listLOpenAPIPetstore.ModelLens, OpenAPIPetstore
ModelReturn 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
modelReturnReturnOpenAPIPetstore.Model, OpenAPIPetstore
modelReturnReturnLOpenAPIPetstore.ModelLens, OpenAPIPetstore
modifyInitRequestOpenAPIPetstore.Client, OpenAPIPetstore
modifyInitRequestMOpenAPIPetstore.Client, OpenAPIPetstore
MultiParamArrayOpenAPIPetstore.Core, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-N.html b/samples/client/petstore/haskell-http-client/docs/doc-index-N.html index a6c1ab97aad..b03774dab7e 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-N.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-N.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - N)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - N

Name 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
name123NumberSwaggerPetstore.Model, SwaggerPetstore
name123NumberLSwaggerPetstore.ModelLens, SwaggerPetstore
Name2 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
nameNameSwaggerPetstore.Model, SwaggerPetstore
nameNameLSwaggerPetstore.ModelLens, SwaggerPetstore
namePropertySwaggerPetstore.Model, SwaggerPetstore
namePropertyLSwaggerPetstore.ModelLens, SwaggerPetstore
nameSnakeCaseSwaggerPetstore.Model, SwaggerPetstore
nameSnakeCaseLSwaggerPetstore.ModelLens, SwaggerPetstore
newConfigSwaggerPetstore.Core, SwaggerPetstore
NoContent 
1 (Type/Class)SwaggerPetstore.MimeTypes, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.MimeTypes, SwaggerPetstore
Number 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
NumberOnly 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
numberOnlyJustNumberSwaggerPetstore.Model, SwaggerPetstore
numberOnlyJustNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - N

Name 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
name123numberOpenAPIPetstore.Model, OpenAPIPetstore
name123numberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Name2 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
nameNameOpenAPIPetstore.Model, OpenAPIPetstore
nameNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
namePropertyOpenAPIPetstore.Model, OpenAPIPetstore
namePropertyLOpenAPIPetstore.ModelLens, OpenAPIPetstore
nameSnakeCaseOpenAPIPetstore.Model, OpenAPIPetstore
nameSnakeCaseLOpenAPIPetstore.ModelLens, OpenAPIPetstore
newConfigOpenAPIPetstore.Core, OpenAPIPetstore
NoContent 
1 (Type/Class)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.MimeTypes, OpenAPIPetstore
Number 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
NumberOnly 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
numberOnlyJustNumberOpenAPIPetstore.Model, OpenAPIPetstore
numberOnlyJustNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-O.html b/samples/client/petstore/haskell-http-client/docs/doc-index-O.html index 97e34051925..3f54bea5669 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-O.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-O.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - O)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - O

Order 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
orderCompleteSwaggerPetstore.Model, SwaggerPetstore
orderCompleteLSwaggerPetstore.ModelLens, SwaggerPetstore
OrderId 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
orderIdSwaggerPetstore.Model, SwaggerPetstore
orderIdLSwaggerPetstore.ModelLens, SwaggerPetstore
OrderIdText 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
orderPetIdSwaggerPetstore.Model, SwaggerPetstore
orderPetIdLSwaggerPetstore.ModelLens, SwaggerPetstore
orderQuantitySwaggerPetstore.Model, SwaggerPetstore
orderQuantityLSwaggerPetstore.ModelLens, SwaggerPetstore
orderShipDateSwaggerPetstore.Model, SwaggerPetstore
orderShipDateLSwaggerPetstore.ModelLens, SwaggerPetstore
orderStatusSwaggerPetstore.Model, SwaggerPetstore
orderStatusLSwaggerPetstore.ModelLens, SwaggerPetstore
OuterBoolean 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
OuterComposite 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
outerCompositeMyBooleanSwaggerPetstore.Model, SwaggerPetstore
outerCompositeMyBooleanLSwaggerPetstore.ModelLens, SwaggerPetstore
outerCompositeMyNumberSwaggerPetstore.Model, SwaggerPetstore
outerCompositeMyNumberLSwaggerPetstore.ModelLens, SwaggerPetstore
outerCompositeMyStringSwaggerPetstore.Model, SwaggerPetstore
outerCompositeMyStringLSwaggerPetstore.ModelLens, SwaggerPetstore
OuterEnumSwaggerPetstore.Model, SwaggerPetstore
OuterEnum'ApprovedSwaggerPetstore.Model, SwaggerPetstore
OuterEnum'DeliveredSwaggerPetstore.Model, SwaggerPetstore
OuterEnum'PlacedSwaggerPetstore.Model, SwaggerPetstore
OuterNumber 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
OuterString 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - O

OpenAPIPetstoreConfig 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
OpenAPIPetstoreRequest 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
Order 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
orderCompleteOpenAPIPetstore.Model, OpenAPIPetstore
orderCompleteLOpenAPIPetstore.ModelLens, OpenAPIPetstore
OrderId 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
orderIdOpenAPIPetstore.Model, OpenAPIPetstore
orderIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
OrderIdText 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
orderPetIdOpenAPIPetstore.Model, OpenAPIPetstore
orderPetIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
orderQuantityOpenAPIPetstore.Model, OpenAPIPetstore
orderQuantityLOpenAPIPetstore.ModelLens, OpenAPIPetstore
orderShipDateOpenAPIPetstore.Model, OpenAPIPetstore
orderShipDateLOpenAPIPetstore.ModelLens, OpenAPIPetstore
orderStatusOpenAPIPetstore.Model, OpenAPIPetstore
orderStatusLOpenAPIPetstore.ModelLens, OpenAPIPetstore
OuterComposite 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
outerCompositeMyBooleanOpenAPIPetstore.Model, OpenAPIPetstore
outerCompositeMyBooleanLOpenAPIPetstore.ModelLens, OpenAPIPetstore
outerCompositeMyNumberOpenAPIPetstore.Model, OpenAPIPetstore
outerCompositeMyNumberLOpenAPIPetstore.ModelLens, OpenAPIPetstore
outerCompositeMyStringOpenAPIPetstore.Model, OpenAPIPetstore
outerCompositeMyStringLOpenAPIPetstore.ModelLens, OpenAPIPetstore
OuterEnumOpenAPIPetstore.Model, OpenAPIPetstore
OuterEnum'ApprovedOpenAPIPetstore.Model, OpenAPIPetstore
OuterEnum'DeliveredOpenAPIPetstore.Model, OpenAPIPetstore
OuterEnum'PlacedOpenAPIPetstore.Model, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-P.html b/samples/client/petstore/haskell-http-client/docs/doc-index-P.html index 79cac8d2a9a..ecbb1e123f7 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-P.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-P.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - P)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - P

Param 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Param2 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamBinary 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamBodySwaggerPetstore.Core, SwaggerPetstore
ParamBodyBSwaggerPetstore.Core, SwaggerPetstore
ParamBodyBLSwaggerPetstore.Core, SwaggerPetstore
ParamBodyFormUrlEncodedSwaggerPetstore.Core, SwaggerPetstore
ParamBodyMultipartFormDataSwaggerPetstore.Core, SwaggerPetstore
ParamBodyNoneSwaggerPetstore.Core, SwaggerPetstore
ParamDate 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamDateTime 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamDouble 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamFloat 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
ParamInteger 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Params 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
paramsBodySwaggerPetstore.Core, SwaggerPetstore
paramsBodyLSwaggerPetstore.Core, SwaggerPetstore
paramsHeadersSwaggerPetstore.Core, SwaggerPetstore
paramsHeadersLSwaggerPetstore.Core, SwaggerPetstore
paramsQuerySwaggerPetstore.Core, SwaggerPetstore
paramsQueryLSwaggerPetstore.Core, SwaggerPetstore
ParamString 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Password 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
PatternWithoutDelimiter 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
Pet 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
petCategorySwaggerPetstore.Model, SwaggerPetstore
petCategoryLSwaggerPetstore.ModelLens, SwaggerPetstore
PetId 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
petIdSwaggerPetstore.Model, SwaggerPetstore
petIdLSwaggerPetstore.ModelLens, SwaggerPetstore
petNameSwaggerPetstore.Model, SwaggerPetstore
petNameLSwaggerPetstore.ModelLens, SwaggerPetstore
petPhotoUrlsSwaggerPetstore.Model, SwaggerPetstore
petPhotoUrlsLSwaggerPetstore.ModelLens, SwaggerPetstore
petStatusSwaggerPetstore.Model, SwaggerPetstore
petStatusLSwaggerPetstore.ModelLens, SwaggerPetstore
petTagsSwaggerPetstore.Model, SwaggerPetstore
petTagsLSwaggerPetstore.ModelLens, SwaggerPetstore
PipeSeparatedSwaggerPetstore.Core, SwaggerPetstore
PlaceOrderSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
placeOrderSwaggerPetstore.API.Store, SwaggerPetstore.API, SwaggerPetstore
ProducesSwaggerPetstore.MimeTypes, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - P

Param 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Param2 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamBinary 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamBodyOpenAPIPetstore.Core, OpenAPIPetstore
ParamBodyBOpenAPIPetstore.Core, OpenAPIPetstore
ParamBodyBLOpenAPIPetstore.Core, OpenAPIPetstore
ParamBodyFormUrlEncodedOpenAPIPetstore.Core, OpenAPIPetstore
ParamBodyMultipartFormDataOpenAPIPetstore.Core, OpenAPIPetstore
ParamBodyNoneOpenAPIPetstore.Core, OpenAPIPetstore
ParamDate 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamDateTime 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamDouble 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamFloat 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
ParamInteger 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Params 
1 (Type/Class)OpenAPIPetstore.Core, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Core, OpenAPIPetstore
paramsBodyOpenAPIPetstore.Core, OpenAPIPetstore
paramsBodyLOpenAPIPetstore.Core, OpenAPIPetstore
paramsHeadersOpenAPIPetstore.Core, OpenAPIPetstore
paramsHeadersLOpenAPIPetstore.Core, OpenAPIPetstore
paramsQueryOpenAPIPetstore.Core, OpenAPIPetstore
paramsQueryLOpenAPIPetstore.Core, OpenAPIPetstore
ParamString 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Password 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
PatternWithoutDelimiter 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
Pet 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
petCategoryOpenAPIPetstore.Model, OpenAPIPetstore
petCategoryLOpenAPIPetstore.ModelLens, OpenAPIPetstore
PetId 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
petIdOpenAPIPetstore.Model, OpenAPIPetstore
petIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
petNameOpenAPIPetstore.Model, OpenAPIPetstore
petNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
petPhotoUrlsOpenAPIPetstore.Model, OpenAPIPetstore
petPhotoUrlsLOpenAPIPetstore.ModelLens, OpenAPIPetstore
petStatusOpenAPIPetstore.Model, OpenAPIPetstore
petStatusLOpenAPIPetstore.ModelLens, OpenAPIPetstore
petTagsOpenAPIPetstore.Model, OpenAPIPetstore
petTagsLOpenAPIPetstore.ModelLens, OpenAPIPetstore
PipeSeparatedOpenAPIPetstore.Core, OpenAPIPetstore
PlaceOrderOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
placeOrderOpenAPIPetstore.API.Store, OpenAPIPetstore.API, OpenAPIPetstore
ProducesOpenAPIPetstore.MimeTypes, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-Q.html b/samples/client/petstore/haskell-http-client/docs/doc-index-Q.html deleted file mode 100644 index 52a93bb8555..00000000000 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-Q.html +++ /dev/null @@ -1,4 +0,0 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - Q)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - Q

Query 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-R.html b/samples/client/petstore/haskell-http-client/docs/doc-index-R.html index d688c1bd754..c8ca82281ad 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-R.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-R.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - R)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - R

rAuthTypesSwaggerPetstore.Core, SwaggerPetstore
rAuthTypesLSwaggerPetstore.Core, SwaggerPetstore
ReadOnlyFirst 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
readOnlyFirstBarSwaggerPetstore.Model, SwaggerPetstore
readOnlyFirstBarLSwaggerPetstore.ModelLens, SwaggerPetstore
readOnlyFirstBazSwaggerPetstore.Model, SwaggerPetstore
readOnlyFirstBazLSwaggerPetstore.ModelLens, SwaggerPetstore
removeHeaderSwaggerPetstore.Core, SwaggerPetstore
RequestBody 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
rMethodSwaggerPetstore.Core, SwaggerPetstore
rMethodLSwaggerPetstore.Core, SwaggerPetstore
rParamsSwaggerPetstore.Core, SwaggerPetstore
rParamsLSwaggerPetstore.Core, SwaggerPetstore
runConfigLogSwaggerPetstore.Client, SwaggerPetstore
runConfigLogWithExceptionsSwaggerPetstore.Client, SwaggerPetstore
runDefaultLogExecWithContextSwaggerPetstore.Logging, SwaggerPetstore
runNullLogExecSwaggerPetstore.Logging, SwaggerPetstore
rUrlPathSwaggerPetstore.Core, SwaggerPetstore
rUrlPathLSwaggerPetstore.Core, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - R

rAuthTypesOpenAPIPetstore.Core, OpenAPIPetstore
rAuthTypesLOpenAPIPetstore.Core, OpenAPIPetstore
ReadOnlyFirst 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
readOnlyFirstBarOpenAPIPetstore.Model, OpenAPIPetstore
readOnlyFirstBarLOpenAPIPetstore.ModelLens, OpenAPIPetstore
readOnlyFirstBazOpenAPIPetstore.Model, OpenAPIPetstore
readOnlyFirstBazLOpenAPIPetstore.ModelLens, OpenAPIPetstore
removeHeaderOpenAPIPetstore.Core, OpenAPIPetstore
RequestBody 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
rMethodOpenAPIPetstore.Core, OpenAPIPetstore
rMethodLOpenAPIPetstore.Core, OpenAPIPetstore
rParamsOpenAPIPetstore.Core, OpenAPIPetstore
rParamsLOpenAPIPetstore.Core, OpenAPIPetstore
runConfigLogOpenAPIPetstore.Client, OpenAPIPetstore
runConfigLogWithExceptionsOpenAPIPetstore.Client, OpenAPIPetstore
runDefaultLogExecWithContextOpenAPIPetstore.Logging, OpenAPIPetstore
runNullLogExecOpenAPIPetstore.Logging, OpenAPIPetstore
rUrlPathOpenAPIPetstore.Core, OpenAPIPetstore
rUrlPathLOpenAPIPetstore.Core, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-S.html b/samples/client/petstore/haskell-http-client/docs/doc-index-S.html index 4a2c410af4e..8b41541ca5d 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-S.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-S.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - S)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - S

setBodyParamSwaggerPetstore.Core, SwaggerPetstore
setHeaderSwaggerPetstore.Core, SwaggerPetstore
setQuerySwaggerPetstore.Core, SwaggerPetstore
SpaceSeparatedSwaggerPetstore.Core, SwaggerPetstore
SpecialModelName 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
specialModelNameSpecialPropertyNameSwaggerPetstore.Model, SwaggerPetstore
specialModelNameSpecialPropertyNameLSwaggerPetstore.ModelLens, SwaggerPetstore
Status 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
StatusText 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
stderrLoggingContextSwaggerPetstore.Logging, SwaggerPetstore
stderrLoggingExecSwaggerPetstore.Logging, SwaggerPetstore
stdoutLoggingContextSwaggerPetstore.Logging, SwaggerPetstore
stdoutLoggingExecSwaggerPetstore.Logging, SwaggerPetstore
SwaggerPetstoreConfig 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
SwaggerPetstoreRequest 
1 (Type/Class)SwaggerPetstore.Core, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Core, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - S

setBodyParamOpenAPIPetstore.Core, OpenAPIPetstore
setHeaderOpenAPIPetstore.Core, OpenAPIPetstore
setQueryOpenAPIPetstore.Core, OpenAPIPetstore
SpaceSeparatedOpenAPIPetstore.Core, OpenAPIPetstore
SpecialModelName 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
specialModelNameSpecialPropertyNameOpenAPIPetstore.Model, OpenAPIPetstore
specialModelNameSpecialPropertyNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Status 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
StatusText 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
stderrLoggingContextOpenAPIPetstore.Logging, OpenAPIPetstore
stderrLoggingExecOpenAPIPetstore.Logging, OpenAPIPetstore
stdoutLoggingContextOpenAPIPetstore.Logging, OpenAPIPetstore
stdoutLoggingExecOpenAPIPetstore.Logging, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-T.html b/samples/client/petstore/haskell-http-client/docs/doc-index-T.html index 14907adaf37..2da581cf77d 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-T.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-T.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - T)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - T

TabSeparatedSwaggerPetstore.Core, SwaggerPetstore
Tag 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
tagIdSwaggerPetstore.Model, SwaggerPetstore
tagIdLSwaggerPetstore.ModelLens, SwaggerPetstore
tagNameSwaggerPetstore.Model, SwaggerPetstore
tagNameLSwaggerPetstore.ModelLens, SwaggerPetstore
Tags 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
TestBodyWithQueryParamsSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testBodyWithQueryParamsSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestClassnameSwaggerPetstore.API.FakeClassnameTags123, SwaggerPetstore.API, SwaggerPetstore
testClassnameSwaggerPetstore.API.FakeClassnameTags123, SwaggerPetstore.API, SwaggerPetstore
TestClientModelSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testClientModelSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestEndpointParametersSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testEndpointParametersSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestEnumParametersSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testEnumParametersSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestInlineAdditionalPropertiesSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testInlineAdditionalPropertiesSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestJsonFormDataSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
testJsonFormDataSwaggerPetstore.API.Fake, SwaggerPetstore.API, SwaggerPetstore
TestSpecialTagsSwaggerPetstore.API.AnotherFake, SwaggerPetstore.API, SwaggerPetstore
testSpecialTagsSwaggerPetstore.API.AnotherFake, SwaggerPetstore.API, SwaggerPetstore
toE'ArrayEnumSwaggerPetstore.Model, SwaggerPetstore
toE'EnumFormStringSwaggerPetstore.Model, SwaggerPetstore
toE'EnumFormStringArraySwaggerPetstore.Model, SwaggerPetstore
toE'EnumIntegerSwaggerPetstore.Model, SwaggerPetstore
toE'EnumNumberSwaggerPetstore.Model, SwaggerPetstore
toE'EnumQueryIntegerSwaggerPetstore.Model, SwaggerPetstore
toE'EnumStringSwaggerPetstore.Model, SwaggerPetstore
toE'InnerSwaggerPetstore.Model, SwaggerPetstore
toE'JustSymbolSwaggerPetstore.Model, SwaggerPetstore
toE'StatusSwaggerPetstore.Model, SwaggerPetstore
toE'Status2SwaggerPetstore.Model, SwaggerPetstore
toEnumClassSwaggerPetstore.Model, SwaggerPetstore
toFormSwaggerPetstore.Core, SwaggerPetstore
toFormCollSwaggerPetstore.Core, SwaggerPetstore
toHeaderSwaggerPetstore.Core, SwaggerPetstore
toHeaderCollSwaggerPetstore.Core, SwaggerPetstore
toOuterEnumSwaggerPetstore.Model, SwaggerPetstore
toPathSwaggerPetstore.Core, SwaggerPetstore
toQuerySwaggerPetstore.Core, SwaggerPetstore
toQueryCollSwaggerPetstore.Core, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - T

TabSeparatedOpenAPIPetstore.Core, OpenAPIPetstore
Tag 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
tagIdOpenAPIPetstore.Model, OpenAPIPetstore
tagIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
tagNameOpenAPIPetstore.Model, OpenAPIPetstore
tagNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Tags 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
TestClassnameOpenAPIPetstore.API.FakeClassnameTags123, OpenAPIPetstore.API, OpenAPIPetstore
testClassnameOpenAPIPetstore.API.FakeClassnameTags123, OpenAPIPetstore.API, OpenAPIPetstore
TestClientModelOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
testClientModelOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
TestEndpointParametersOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
testEndpointParametersOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
TestEnumParametersOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
testEnumParametersOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
TestInlineAdditionalPropertiesOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
testInlineAdditionalPropertiesOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
TestJsonFormDataOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
testJsonFormDataOpenAPIPetstore.API.Fake, OpenAPIPetstore.API, OpenAPIPetstore
TestSpecialTagsOpenAPIPetstore.API.AnotherFake, OpenAPIPetstore.API, OpenAPIPetstore
testSpecialTagsOpenAPIPetstore.API.AnotherFake, OpenAPIPetstore.API, OpenAPIPetstore
toE'ArrayEnumOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumFormStringOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumFormStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumIntegerOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumNumberOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumQueryIntegerOpenAPIPetstore.Model, OpenAPIPetstore
toE'EnumStringOpenAPIPetstore.Model, OpenAPIPetstore
toE'InnerOpenAPIPetstore.Model, OpenAPIPetstore
toE'JustSymbolOpenAPIPetstore.Model, OpenAPIPetstore
toE'StatusOpenAPIPetstore.Model, OpenAPIPetstore
toE'Status2OpenAPIPetstore.Model, OpenAPIPetstore
toEnumClassOpenAPIPetstore.Model, OpenAPIPetstore
toFormOpenAPIPetstore.Core, OpenAPIPetstore
toFormCollOpenAPIPetstore.Core, OpenAPIPetstore
toHeaderOpenAPIPetstore.Core, OpenAPIPetstore
toHeaderCollOpenAPIPetstore.Core, OpenAPIPetstore
toOuterEnumOpenAPIPetstore.Model, OpenAPIPetstore
toPathOpenAPIPetstore.Core, OpenAPIPetstore
toQueryOpenAPIPetstore.Core, OpenAPIPetstore
toQueryCollOpenAPIPetstore.Core, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-U.html b/samples/client/petstore/haskell-http-client/docs/doc-index-U.html index b8619c40959..8cb94496083 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-U.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-U.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - U)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - U

unAcceptSwaggerPetstore.MimeTypes, SwaggerPetstore
unAdditionalMetadataSwaggerPetstore.Model, SwaggerPetstore
unAnimalFarmSwaggerPetstore.Model, SwaggerPetstore
unApiKeySwaggerPetstore.Model, SwaggerPetstore
unBinarySwaggerPetstore.Core, SwaggerPetstore
unBodySwaggerPetstore.Model, SwaggerPetstore
unBodyTextSwaggerPetstore.Model, SwaggerPetstore
unBooleanPostBodySwaggerPetstore.Model, SwaggerPetstore
unByteSwaggerPetstore.Model, SwaggerPetstore
unByteArraySwaggerPetstore.Core, SwaggerPetstore
unCallbackSwaggerPetstore.Model, SwaggerPetstore
unContentTypeSwaggerPetstore.MimeTypes, SwaggerPetstore
unDateSwaggerPetstore.Core, SwaggerPetstore
unDateTimeSwaggerPetstore.Core, SwaggerPetstore
unEnumFormStringSwaggerPetstore.Model, SwaggerPetstore
unEnumFormStringArraySwaggerPetstore.Model, SwaggerPetstore
unEnumHeaderStringSwaggerPetstore.Model, SwaggerPetstore
unEnumHeaderStringArraySwaggerPetstore.Model, SwaggerPetstore
unEnumQueryDoubleSwaggerPetstore.Model, SwaggerPetstore
unEnumQueryIntegerSwaggerPetstore.Model, SwaggerPetstore
unEnumQueryStringSwaggerPetstore.Model, SwaggerPetstore
unEnumQueryStringArraySwaggerPetstore.Model, SwaggerPetstore
unFileSwaggerPetstore.Model, SwaggerPetstore
unInitRequestSwaggerPetstore.Client, SwaggerPetstore
unInt32SwaggerPetstore.Model, SwaggerPetstore
unInt64SwaggerPetstore.Model, SwaggerPetstore
unName2SwaggerPetstore.Model, SwaggerPetstore
unNumberSwaggerPetstore.Model, SwaggerPetstore
unOrderIdSwaggerPetstore.Model, SwaggerPetstore
unOrderIdTextSwaggerPetstore.Model, SwaggerPetstore
unOuterBooleanSwaggerPetstore.Model, SwaggerPetstore
unOuterNumberSwaggerPetstore.Model, SwaggerPetstore
unOuterStringSwaggerPetstore.Model, SwaggerPetstore
unParamSwaggerPetstore.Model, SwaggerPetstore
unParam2SwaggerPetstore.Model, SwaggerPetstore
unParamBinarySwaggerPetstore.Model, SwaggerPetstore
unParamDateSwaggerPetstore.Model, SwaggerPetstore
unParamDateTimeSwaggerPetstore.Model, SwaggerPetstore
unParamDoubleSwaggerPetstore.Model, SwaggerPetstore
unParamFloatSwaggerPetstore.Model, SwaggerPetstore
unParamIntegerSwaggerPetstore.Model, SwaggerPetstore
unParamStringSwaggerPetstore.Model, SwaggerPetstore
unPasswordSwaggerPetstore.Model, SwaggerPetstore
unPatternWithoutDelimiterSwaggerPetstore.Model, SwaggerPetstore
unPetIdSwaggerPetstore.Model, SwaggerPetstore
unQuerySwaggerPetstore.Model, SwaggerPetstore
unRequestBodySwaggerPetstore.Model, SwaggerPetstore
unStatusSwaggerPetstore.Model, SwaggerPetstore
unStatusTextSwaggerPetstore.Model, SwaggerPetstore
unTagsSwaggerPetstore.Model, SwaggerPetstore
unUser2SwaggerPetstore.Model, SwaggerPetstore
unUsernameSwaggerPetstore.Model, SwaggerPetstore
UpdatePetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
updatePetSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
UpdatePetWithFormSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
updatePetWithFormSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
UpdateUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
updateUserSwaggerPetstore.API.User, SwaggerPetstore.API, SwaggerPetstore
UploadFileSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
uploadFileSwaggerPetstore.API.Pet, SwaggerPetstore.API, SwaggerPetstore
User 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
User2 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
userEmailSwaggerPetstore.Model, SwaggerPetstore
userEmailLSwaggerPetstore.ModelLens, SwaggerPetstore
userFirstNameSwaggerPetstore.Model, SwaggerPetstore
userFirstNameLSwaggerPetstore.ModelLens, SwaggerPetstore
userIdSwaggerPetstore.Model, SwaggerPetstore
userIdLSwaggerPetstore.ModelLens, SwaggerPetstore
userLastNameSwaggerPetstore.Model, SwaggerPetstore
userLastNameLSwaggerPetstore.ModelLens, SwaggerPetstore
Username 
1 (Type/Class)SwaggerPetstore.Model, SwaggerPetstore
2 (Data Constructor)SwaggerPetstore.Model, SwaggerPetstore
userPasswordSwaggerPetstore.Model, SwaggerPetstore
userPasswordLSwaggerPetstore.ModelLens, SwaggerPetstore
userPhoneSwaggerPetstore.Model, SwaggerPetstore
userPhoneLSwaggerPetstore.ModelLens, SwaggerPetstore
userUsernameSwaggerPetstore.Model, SwaggerPetstore
userUsernameLSwaggerPetstore.ModelLens, SwaggerPetstore
userUserStatusSwaggerPetstore.Model, SwaggerPetstore
userUserStatusLSwaggerPetstore.ModelLens, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - U

unAcceptOpenAPIPetstore.MimeTypes, OpenAPIPetstore
unAdditionalMetadataOpenAPIPetstore.Model, OpenAPIPetstore
unApiKeyOpenAPIPetstore.Model, OpenAPIPetstore
unBinaryOpenAPIPetstore.Core, OpenAPIPetstore
unBodyOpenAPIPetstore.Model, OpenAPIPetstore
unBodyBoolOpenAPIPetstore.Model, OpenAPIPetstore
unBodyTextOpenAPIPetstore.Model, OpenAPIPetstore
unByteOpenAPIPetstore.Model, OpenAPIPetstore
unByteArrayOpenAPIPetstore.Core, OpenAPIPetstore
unCallbackOpenAPIPetstore.Model, OpenAPIPetstore
unContentTypeOpenAPIPetstore.MimeTypes, OpenAPIPetstore
unDateOpenAPIPetstore.Core, OpenAPIPetstore
unDateTimeOpenAPIPetstore.Core, OpenAPIPetstore
unEnumFormStringOpenAPIPetstore.Model, OpenAPIPetstore
unEnumFormStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
unEnumHeaderStringOpenAPIPetstore.Model, OpenAPIPetstore
unEnumHeaderStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
unEnumQueryDoubleOpenAPIPetstore.Model, OpenAPIPetstore
unEnumQueryIntegerOpenAPIPetstore.Model, OpenAPIPetstore
unEnumQueryStringOpenAPIPetstore.Model, OpenAPIPetstore
unEnumQueryStringArrayOpenAPIPetstore.Model, OpenAPIPetstore
unFileOpenAPIPetstore.Model, OpenAPIPetstore
unInitRequestOpenAPIPetstore.Client, OpenAPIPetstore
unInt32OpenAPIPetstore.Model, OpenAPIPetstore
unInt64OpenAPIPetstore.Model, OpenAPIPetstore
unName2OpenAPIPetstore.Model, OpenAPIPetstore
unNumberOpenAPIPetstore.Model, OpenAPIPetstore
unOrderIdOpenAPIPetstore.Model, OpenAPIPetstore
unOrderIdTextOpenAPIPetstore.Model, OpenAPIPetstore
unParamOpenAPIPetstore.Model, OpenAPIPetstore
unParam2OpenAPIPetstore.Model, OpenAPIPetstore
unParamBinaryOpenAPIPetstore.Model, OpenAPIPetstore
unParamDateOpenAPIPetstore.Model, OpenAPIPetstore
unParamDateTimeOpenAPIPetstore.Model, OpenAPIPetstore
unParamDoubleOpenAPIPetstore.Model, OpenAPIPetstore
unParamFloatOpenAPIPetstore.Model, OpenAPIPetstore
unParamIntegerOpenAPIPetstore.Model, OpenAPIPetstore
unParamStringOpenAPIPetstore.Model, OpenAPIPetstore
unPasswordOpenAPIPetstore.Model, OpenAPIPetstore
unPatternWithoutDelimiterOpenAPIPetstore.Model, OpenAPIPetstore
unPetIdOpenAPIPetstore.Model, OpenAPIPetstore
unRequestBodyOpenAPIPetstore.Model, OpenAPIPetstore
unStatusOpenAPIPetstore.Model, OpenAPIPetstore
unStatusTextOpenAPIPetstore.Model, OpenAPIPetstore
unTagsOpenAPIPetstore.Model, OpenAPIPetstore
unUser2OpenAPIPetstore.Model, OpenAPIPetstore
unUsernameOpenAPIPetstore.Model, OpenAPIPetstore
UpdatePetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
updatePetOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
UpdatePetWithFormOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
updatePetWithFormOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
UpdateUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
updateUserOpenAPIPetstore.API.User, OpenAPIPetstore.API, OpenAPIPetstore
UploadFileOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
uploadFileOpenAPIPetstore.API.Pet, OpenAPIPetstore.API, OpenAPIPetstore
User 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
User2 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
userEmailOpenAPIPetstore.Model, OpenAPIPetstore
userEmailLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userFirstNameOpenAPIPetstore.Model, OpenAPIPetstore
userFirstNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userIdOpenAPIPetstore.Model, OpenAPIPetstore
userIdLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userLastNameOpenAPIPetstore.Model, OpenAPIPetstore
userLastNameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
Username 
1 (Type/Class)OpenAPIPetstore.Model, OpenAPIPetstore
2 (Data Constructor)OpenAPIPetstore.Model, OpenAPIPetstore
userPasswordOpenAPIPetstore.Model, OpenAPIPetstore
userPasswordLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userPhoneOpenAPIPetstore.Model, OpenAPIPetstore
userPhoneLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userUsernameOpenAPIPetstore.Model, OpenAPIPetstore
userUsernameLOpenAPIPetstore.ModelLens, OpenAPIPetstore
userUserStatusOpenAPIPetstore.Model, OpenAPIPetstore
userUserStatusLOpenAPIPetstore.ModelLens, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index-W.html b/samples/client/petstore/haskell-http-client/docs/doc-index-W.html index cb3770981d3..147f5a339e9 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index-W.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index-W.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - W)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

Index - W

withNoLoggingSwaggerPetstore.Core, SwaggerPetstore
withStderrLoggingSwaggerPetstore.Core, SwaggerPetstore
withStdoutLoggingSwaggerPetstore.Core, SwaggerPetstore
\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

Index - W

withNoLoggingOpenAPIPetstore.Core, OpenAPIPetstore
withStderrLoggingOpenAPIPetstore.Core, OpenAPIPetstore
withStdoutLoggingOpenAPIPetstore.Core, OpenAPIPetstore
\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/doc-index.html b/samples/client/petstore/haskell-http-client/docs/doc-index.html index 19e18ebb59a..2d8ef0787ff 100644 --- a/samples/client/petstore/haskell-http-client/docs/doc-index.html +++ b/samples/client/petstore/haskell-http-client/docs/doc-index.html @@ -1,4 +1,4 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index)

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/index.html b/samples/client/petstore/haskell-http-client/docs/index.html index 4abbaebaed2..427fe33932e 100644 --- a/samples/client/petstore/haskell-http-client/docs/index.html +++ b/samples/client/petstore/haskell-http-client/docs/index.html @@ -1,5 +1,5 @@ -swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client

. -Client library for calling the Swagger Petstore API based on http-client.

host: petstore.swagger.io

base path: http://petstore.swagger.io:80/v2

Swagger Petstore API version: 1.0.0

OpenAPI version: 3.0.1

category: Web

Signatures

Modules

\ No newline at end of file +

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

openapi-petstore-0.1.0.0: Auto-generated openapi-petstore API Client

. +Client library for calling the OpenAPI Petstore API based on http-client.

host: petstore.swagger.io

base path: http://petstore.swagger.io:80/v2

OpenAPI Petstore API version: 1.0.0

OpenAPI version: 3.0.0

category: Web

Signatures

Modules

\ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/swagger-petstore.txt b/samples/client/petstore/haskell-http-client/docs/openapi-petstore.txt similarity index 54% rename from samples/client/petstore/haskell-http-client/docs/swagger-petstore.txt rename to samples/client/petstore/haskell-http-client/docs/openapi-petstore.txt index eb9f9dafb05..d2d1b2356ee 100644 --- a/samples/client/petstore/haskell-http-client/docs/swagger-petstore.txt +++ b/samples/client/petstore/haskell-http-client/docs/openapi-petstore.txt @@ -2,26 +2,26 @@ -- See Hoogle, http://www.haskell.org/hoogle/ --- | Auto-generated swagger-petstore API Client +-- | Auto-generated openapi-petstore API Client -- --- . Client library for calling the Swagger Petstore API based on +-- . Client library for calling the OpenAPI Petstore API based on -- http-client. -- -- host: petstore.swagger.io -- -- base path: http://petstore.swagger.io:80/v2 -- --- Swagger Petstore API version: 1.0.0 +-- OpenAPI Petstore API version: 1.0.0 -- --- OpenAPI version: 3.0.1 +-- OpenAPI version: 3.0.0 -- -- category: Web -@package swagger-petstore +@package openapi-petstore @version 0.1.0.0 -- | Katip Logging functions -module SwaggerPetstore.Logging +module OpenAPIPetstore.Logging -- | Runs a Katip logging block with the Log environment type LogExecWithContext = forall m. MonadIO m => LogContext -> LogExec m @@ -66,7 +66,7 @@ levelError :: LogLevel levelDebug :: LogLevel -module SwaggerPetstore.MimeTypes +module OpenAPIPetstore.MimeTypes data ContentType a ContentType :: a -> ContentType a [unContentType] :: ContentType a -> a @@ -205,70 +205,70 @@ mimeUnrender' :: MimeUnrender mtype o => mtype -> ByteString -> Either String o -- | 
 --   P.Right . P.const NoContent
 --
-instance GHC.Classes.Eq SwaggerPetstore.MimeTypes.NoContent -instance GHC.Show.Show SwaggerPetstore.MimeTypes.NoContent -instance Data.Aeson.Types.FromJSON.FromJSON a => SwaggerPetstore.MimeTypes.MimeUnrender SwaggerPetstore.MimeTypes.MimeJSON a -instance Web.Internal.FormUrlEncoded.FromForm a => SwaggerPetstore.MimeTypes.MimeUnrender SwaggerPetstore.MimeTypes.MimeFormUrlEncoded a -instance SwaggerPetstore.MimeTypes.MimeUnrender SwaggerPetstore.MimeTypes.MimePlainText Data.ByteString.Lazy.Internal.ByteString -instance SwaggerPetstore.MimeTypes.MimeUnrender SwaggerPetstore.MimeTypes.MimePlainText Data.Text.Internal.Text -instance SwaggerPetstore.MimeTypes.MimeUnrender SwaggerPetstore.MimeTypes.MimePlainText GHC.Base.String -instance SwaggerPetstore.MimeTypes.MimeUnrender SwaggerPetstore.MimeTypes.MimeOctetStream Data.ByteString.Lazy.Internal.ByteString -instance SwaggerPetstore.MimeTypes.MimeUnrender SwaggerPetstore.MimeTypes.MimeOctetStream Data.Text.Internal.Text -instance SwaggerPetstore.MimeTypes.MimeUnrender SwaggerPetstore.MimeTypes.MimeOctetStream GHC.Base.String -instance SwaggerPetstore.MimeTypes.MimeUnrender SwaggerPetstore.MimeTypes.MimeNoContent SwaggerPetstore.MimeTypes.NoContent -instance Data.Aeson.Types.ToJSON.ToJSON a => SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeJSON a -instance Web.Internal.FormUrlEncoded.ToForm a => SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeFormUrlEncoded a -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimePlainText Data.ByteString.Lazy.Internal.ByteString -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimePlainText Data.Text.Internal.Text -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimePlainText GHC.Base.String -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeOctetStream Data.ByteString.Lazy.Internal.ByteString -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeOctetStream Data.Text.Internal.Text -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeOctetStream GHC.Base.String -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData Data.ByteString.Lazy.Internal.ByteString -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData GHC.Types.Bool -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData GHC.Types.Char -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData GHC.Types.Double -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData GHC.Types.Float -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData GHC.Types.Int -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData GHC.Integer.Type.Integer -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData GHC.Base.String -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData Data.Text.Internal.Text -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeNoContent SwaggerPetstore.MimeTypes.NoContent -instance SwaggerPetstore.MimeTypes.MimeType SwaggerPetstore.MimeTypes.MimeJSON -instance SwaggerPetstore.MimeTypes.MimeType SwaggerPetstore.MimeTypes.MimeXML -instance SwaggerPetstore.MimeTypes.MimeType SwaggerPetstore.MimeTypes.MimeFormUrlEncoded -instance SwaggerPetstore.MimeTypes.MimeType SwaggerPetstore.MimeTypes.MimeMultipartFormData -instance SwaggerPetstore.MimeTypes.MimeType SwaggerPetstore.MimeTypes.MimePlainText -instance SwaggerPetstore.MimeTypes.MimeType SwaggerPetstore.MimeTypes.MimeOctetStream -instance SwaggerPetstore.MimeTypes.MimeType SwaggerPetstore.MimeTypes.MimeAny -instance SwaggerPetstore.MimeTypes.MimeType SwaggerPetstore.MimeTypes.MimeNoContent +instance GHC.Classes.Eq OpenAPIPetstore.MimeTypes.NoContent +instance GHC.Show.Show OpenAPIPetstore.MimeTypes.NoContent +instance Data.Aeson.Types.FromJSON.FromJSON a => OpenAPIPetstore.MimeTypes.MimeUnrender OpenAPIPetstore.MimeTypes.MimeJSON a +instance Web.Internal.FormUrlEncoded.FromForm a => OpenAPIPetstore.MimeTypes.MimeUnrender OpenAPIPetstore.MimeTypes.MimeFormUrlEncoded a +instance OpenAPIPetstore.MimeTypes.MimeUnrender OpenAPIPetstore.MimeTypes.MimePlainText Data.ByteString.Lazy.Internal.ByteString +instance OpenAPIPetstore.MimeTypes.MimeUnrender OpenAPIPetstore.MimeTypes.MimePlainText Data.Text.Internal.Text +instance OpenAPIPetstore.MimeTypes.MimeUnrender OpenAPIPetstore.MimeTypes.MimePlainText GHC.Base.String +instance OpenAPIPetstore.MimeTypes.MimeUnrender OpenAPIPetstore.MimeTypes.MimeOctetStream Data.ByteString.Lazy.Internal.ByteString +instance OpenAPIPetstore.MimeTypes.MimeUnrender OpenAPIPetstore.MimeTypes.MimeOctetStream Data.Text.Internal.Text +instance OpenAPIPetstore.MimeTypes.MimeUnrender OpenAPIPetstore.MimeTypes.MimeOctetStream GHC.Base.String +instance OpenAPIPetstore.MimeTypes.MimeUnrender OpenAPIPetstore.MimeTypes.MimeNoContent OpenAPIPetstore.MimeTypes.NoContent +instance Data.Aeson.Types.ToJSON.ToJSON a => OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeJSON a +instance Web.Internal.FormUrlEncoded.ToForm a => OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeFormUrlEncoded a +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimePlainText Data.ByteString.Lazy.Internal.ByteString +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimePlainText Data.Text.Internal.Text +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimePlainText GHC.Base.String +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeOctetStream Data.ByteString.Lazy.Internal.ByteString +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeOctetStream Data.Text.Internal.Text +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeOctetStream GHC.Base.String +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData Data.ByteString.Lazy.Internal.ByteString +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData GHC.Types.Bool +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData GHC.Types.Char +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData GHC.Types.Double +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData GHC.Types.Float +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData GHC.Types.Int +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData GHC.Integer.Type.Integer +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData GHC.Base.String +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData Data.Text.Internal.Text +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeNoContent OpenAPIPetstore.MimeTypes.NoContent +instance OpenAPIPetstore.MimeTypes.MimeType OpenAPIPetstore.MimeTypes.MimeJSON +instance OpenAPIPetstore.MimeTypes.MimeType OpenAPIPetstore.MimeTypes.MimeXML +instance OpenAPIPetstore.MimeTypes.MimeType OpenAPIPetstore.MimeTypes.MimeFormUrlEncoded +instance OpenAPIPetstore.MimeTypes.MimeType OpenAPIPetstore.MimeTypes.MimeMultipartFormData +instance OpenAPIPetstore.MimeTypes.MimeType OpenAPIPetstore.MimeTypes.MimePlainText +instance OpenAPIPetstore.MimeTypes.MimeType OpenAPIPetstore.MimeTypes.MimeOctetStream +instance OpenAPIPetstore.MimeTypes.MimeType OpenAPIPetstore.MimeTypes.MimeAny +instance OpenAPIPetstore.MimeTypes.MimeType OpenAPIPetstore.MimeTypes.MimeNoContent -module SwaggerPetstore.Core -data SwaggerPetstoreConfig -SwaggerPetstoreConfig :: ByteString -> Text -> LogExecWithContext -> LogContext -> [AnyAuthMethod] -> Bool -> SwaggerPetstoreConfig +module OpenAPIPetstore.Core +data OpenAPIPetstoreConfig +OpenAPIPetstoreConfig :: ByteString -> Text -> LogExecWithContext -> LogContext -> [AnyAuthMethod] -> Bool -> OpenAPIPetstoreConfig -- | host supplied in the Request -[configHost] :: SwaggerPetstoreConfig -> ByteString +[configHost] :: OpenAPIPetstoreConfig -> ByteString -- | user-agent supplied in the Request -[configUserAgent] :: SwaggerPetstoreConfig -> Text +[configUserAgent] :: OpenAPIPetstoreConfig -> Text -- | Run a block using a Logger instance -[configLogExecWithContext] :: SwaggerPetstoreConfig -> LogExecWithContext +[configLogExecWithContext] :: OpenAPIPetstoreConfig -> LogExecWithContext -- | Configures the logger -[configLogContext] :: SwaggerPetstoreConfig -> LogContext +[configLogContext] :: OpenAPIPetstoreConfig -> LogContext -- | List of configured auth methods -[configAuthMethods] :: SwaggerPetstoreConfig -> [AnyAuthMethod] +[configAuthMethods] :: OpenAPIPetstoreConfig -> [AnyAuthMethod] -- | throw exceptions if auth methods are not configured -[configValidateAuthMethods] :: SwaggerPetstoreConfig -> Bool +[configValidateAuthMethods] :: OpenAPIPetstoreConfig -> Bool -- | display the config --- | constructs a default SwaggerPetstoreConfig +-- | constructs a default OpenAPIPetstoreConfig -- -- configHost: -- @@ -279,21 +279,21 @@ SwaggerPetstoreConfig :: ByteString -> Text -> LogExecWithContext -> LogContext -- configUserAgent: -- -- 
---   "swagger-petstore/0.1.0.0"
+--   "openapi-petstore/0.1.0.0"
 --
-newConfig :: IO SwaggerPetstoreConfig +newConfig :: IO OpenAPIPetstoreConfig -- | updates config use AuthMethod on matching requests -addAuthMethod :: AuthMethod auth => SwaggerPetstoreConfig -> auth -> SwaggerPetstoreConfig +addAuthMethod :: AuthMethod auth => OpenAPIPetstoreConfig -> auth -> OpenAPIPetstoreConfig -- | updates the config to use stdout logging -withStdoutLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig +withStdoutLogging :: OpenAPIPetstoreConfig -> IO OpenAPIPetstoreConfig -- | updates the config to use stderr logging -withStderrLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig +withStderrLogging :: OpenAPIPetstoreConfig -> IO OpenAPIPetstoreConfig -- | updates the config to disable logging -withNoLogging :: SwaggerPetstoreConfig -> SwaggerPetstoreConfig +withNoLogging :: OpenAPIPetstoreConfig -> OpenAPIPetstoreConfig -- | Represents a request. -- @@ -305,45 +305,45 @@ withNoLogging :: SwaggerPetstoreConfig -> SwaggerPetstoreConfig --
  • res - response model
    • --
  • accept - MimeType associated with response body
    • -- -data SwaggerPetstoreRequest req contentType res accept -SwaggerPetstoreRequest :: Method -> [ByteString] -> Params -> [TypeRep] -> SwaggerPetstoreRequest req contentType res accept +data OpenAPIPetstoreRequest req contentType res accept +OpenAPIPetstoreRequest :: Method -> [ByteString] -> Params -> [TypeRep] -> OpenAPIPetstoreRequest req contentType res accept --- | Method of SwaggerPetstoreRequest -[rMethod] :: SwaggerPetstoreRequest req contentType res accept -> Method +-- | Method of OpenAPIPetstoreRequest +[rMethod] :: OpenAPIPetstoreRequest req contentType res accept -> Method --- | Endpoint of SwaggerPetstoreRequest -[rUrlPath] :: SwaggerPetstoreRequest req contentType res accept -> [ByteString] +-- | Endpoint of OpenAPIPetstoreRequest +[rUrlPath] :: OpenAPIPetstoreRequest req contentType res accept -> [ByteString] --- | params of SwaggerPetstoreRequest -[rParams] :: SwaggerPetstoreRequest req contentType res accept -> Params +-- | params of OpenAPIPetstoreRequest +[rParams] :: OpenAPIPetstoreRequest req contentType res accept -> Params -- | types of auth methods -[rAuthTypes] :: SwaggerPetstoreRequest req contentType res accept -> [TypeRep] +[rAuthTypes] :: OpenAPIPetstoreRequest req contentType res accept -> [TypeRep] -- | rMethod Lens -rMethodL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) Method +rMethodL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) Method -- | rUrlPath Lens -rUrlPathL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) [ByteString] +rUrlPathL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) [ByteString] -- | rParams Lens -rParamsL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) Params +rParamsL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) Params -- | rParams Lens -rAuthTypesL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) [TypeRep] +rAuthTypesL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) [TypeRep] -- | Designates the body parameter of a request class HasBodyParam req param -setBodyParam :: forall contentType res accept. (HasBodyParam req param, Consumes req contentType, MimeRender contentType param) => SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept +setBodyParam :: forall contentType res accept. (HasBodyParam req param, Consumes req contentType, MimeRender contentType param) => OpenAPIPetstoreRequest req contentType res accept -> param -> OpenAPIPetstoreRequest req contentType res accept -- | Designates the optional parameters of a request class HasOptionalParam req param -- | Apply an optional parameter to a request -applyOptionalParam :: HasOptionalParam req param => SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept +applyOptionalParam :: HasOptionalParam req param => OpenAPIPetstoreRequest req contentType res accept -> param -> OpenAPIPetstoreRequest req contentType res accept -- | infix operator / alias for addOptionalParam -(-&-) :: HasOptionalParam req param => SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept +(-&-) :: HasOptionalParam req param => OpenAPIPetstoreRequest req contentType res accept -> param -> OpenAPIPetstoreRequest req contentType res accept -- | Request Params data Params @@ -368,18 +368,18 @@ ParamBodyB :: ByteString -> ParamBody ParamBodyBL :: ByteString -> ParamBody ParamBodyFormUrlEncoded :: Form -> ParamBody ParamBodyMultipartFormData :: [Part] -> ParamBody -_mkRequest :: Method -> [ByteString] -> SwaggerPetstoreRequest req contentType res accept +_mkRequest :: Method -> [ByteString] -> OpenAPIPetstoreRequest req contentType res accept _mkParams :: Params -setHeader :: SwaggerPetstoreRequest req contentType res accept -> [Header] -> SwaggerPetstoreRequest req contentType res accept -removeHeader :: SwaggerPetstoreRequest req contentType res accept -> [HeaderName] -> SwaggerPetstoreRequest req contentType res accept -_setContentTypeHeader :: forall req contentType res accept. MimeType contentType => SwaggerPetstoreRequest req contentType res accept -> SwaggerPetstoreRequest req contentType res accept -_setAcceptHeader :: forall req contentType res accept. MimeType accept => SwaggerPetstoreRequest req contentType res accept -> SwaggerPetstoreRequest req contentType res accept -setQuery :: SwaggerPetstoreRequest req contentType res accept -> [QueryItem] -> SwaggerPetstoreRequest req contentType res accept -addForm :: SwaggerPetstoreRequest req contentType res accept -> Form -> SwaggerPetstoreRequest req contentType res accept -_addMultiFormPart :: SwaggerPetstoreRequest req contentType res accept -> Part -> SwaggerPetstoreRequest req contentType res accept -_setBodyBS :: SwaggerPetstoreRequest req contentType res accept -> ByteString -> SwaggerPetstoreRequest req contentType res accept -_setBodyLBS :: SwaggerPetstoreRequest req contentType res accept -> ByteString -> SwaggerPetstoreRequest req contentType res accept -_hasAuthType :: AuthMethod authMethod => SwaggerPetstoreRequest req contentType res accept -> Proxy authMethod -> SwaggerPetstoreRequest req contentType res accept +setHeader :: OpenAPIPetstoreRequest req contentType res accept -> [Header] -> OpenAPIPetstoreRequest req contentType res accept +removeHeader :: OpenAPIPetstoreRequest req contentType res accept -> [HeaderName] -> OpenAPIPetstoreRequest req contentType res accept +_setContentTypeHeader :: forall req contentType res accept. MimeType contentType => OpenAPIPetstoreRequest req contentType res accept -> OpenAPIPetstoreRequest req contentType res accept +_setAcceptHeader :: forall req contentType res accept. MimeType accept => OpenAPIPetstoreRequest req contentType res accept -> OpenAPIPetstoreRequest req contentType res accept +setQuery :: OpenAPIPetstoreRequest req contentType res accept -> [QueryItem] -> OpenAPIPetstoreRequest req contentType res accept +addForm :: OpenAPIPetstoreRequest req contentType res accept -> Form -> OpenAPIPetstoreRequest req contentType res accept +_addMultiFormPart :: OpenAPIPetstoreRequest req contentType res accept -> Part -> OpenAPIPetstoreRequest req contentType res accept +_setBodyBS :: OpenAPIPetstoreRequest req contentType res accept -> ByteString -> OpenAPIPetstoreRequest req contentType res accept +_setBodyLBS :: OpenAPIPetstoreRequest req contentType res accept -> ByteString -> OpenAPIPetstoreRequest req contentType res accept +_hasAuthType :: AuthMethod authMethod => OpenAPIPetstoreRequest req contentType res accept -> Proxy authMethod -> OpenAPIPetstoreRequest req contentType res accept toPath :: ToHttpApiData a => a -> ByteString toHeader :: ToHttpApiData a => (HeaderName, a) -> [Header] toForm :: ToHttpApiData v => (ByteString, v) -> Form @@ -413,7 +413,7 @@ _toCollA' :: (Monoid c, Traversable f, Traversable t, Alternative t) => Collecti -- | Provides a method to apply auth methods to requests class Typeable a => AuthMethod a -applyAuthMethod :: AuthMethod a => SwaggerPetstoreConfig -> a -> SwaggerPetstoreRequest req contentType res accept -> IO (SwaggerPetstoreRequest req contentType res accept) +applyAuthMethod :: AuthMethod a => OpenAPIPetstoreConfig -> a -> OpenAPIPetstoreRequest req contentType res accept -> IO (OpenAPIPetstoreRequest req contentType res accept) -- | An existential wrapper for any AuthMethod data AnyAuthMethod @@ -424,7 +424,7 @@ data AuthMethodException AuthMethodException :: String -> AuthMethodException -- | apply all matching AuthMethods in config to request -_applyAuthMethods :: SwaggerPetstoreRequest req contentType res accept -> SwaggerPetstoreConfig -> IO (SwaggerPetstoreRequest req contentType res accept) +_applyAuthMethods :: OpenAPIPetstoreRequest req contentType res accept -> OpenAPIPetstoreConfig -> IO (OpenAPIPetstoreRequest req contentType res accept) -- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in -- JSON) @@ -487,65 +487,65 @@ _readBinaryBase64 :: Monad m => Text -> m Binary _showBinaryBase64 :: Binary -> Text type Lens_' s a = Lens_ s s a a type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t -instance Control.DeepSeq.NFData SwaggerPetstore.Core.Binary -instance GHC.Classes.Ord SwaggerPetstore.Core.Binary -instance Data.Data.Data SwaggerPetstore.Core.Binary -instance GHC.Classes.Eq SwaggerPetstore.Core.Binary -instance Control.DeepSeq.NFData SwaggerPetstore.Core.ByteArray -instance GHC.Classes.Ord SwaggerPetstore.Core.ByteArray -instance Data.Data.Data SwaggerPetstore.Core.ByteArray -instance GHC.Classes.Eq SwaggerPetstore.Core.ByteArray -instance Data.Time.Format.FormatTime SwaggerPetstore.Core.Date -instance Data.Time.Format.Parse.ParseTime SwaggerPetstore.Core.Date -instance Control.DeepSeq.NFData SwaggerPetstore.Core.Date -instance GHC.Arr.Ix SwaggerPetstore.Core.Date -instance GHC.Classes.Ord SwaggerPetstore.Core.Date -instance Data.Data.Data SwaggerPetstore.Core.Date -instance GHC.Classes.Eq SwaggerPetstore.Core.Date -instance GHC.Enum.Enum SwaggerPetstore.Core.Date -instance Data.Time.Format.FormatTime SwaggerPetstore.Core.DateTime -instance Data.Time.Format.Parse.ParseTime SwaggerPetstore.Core.DateTime -instance Control.DeepSeq.NFData SwaggerPetstore.Core.DateTime -instance GHC.Classes.Ord SwaggerPetstore.Core.DateTime -instance Data.Data.Data SwaggerPetstore.Core.DateTime -instance GHC.Classes.Eq SwaggerPetstore.Core.DateTime -instance GHC.Show.Show SwaggerPetstore.Core.AuthMethodException -instance GHC.Show.Show (SwaggerPetstore.Core.SwaggerPetstoreRequest req contentType res accept) -instance GHC.Show.Show SwaggerPetstore.Core.Params -instance GHC.Show.Show SwaggerPetstore.Core.ParamBody -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Core.Binary -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Core.Binary -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Core.Binary -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Core.Binary -instance GHC.Show.Show SwaggerPetstore.Core.Binary -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Core.Binary -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Core.ByteArray -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Core.ByteArray -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Core.ByteArray -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Core.ByteArray -instance GHC.Show.Show SwaggerPetstore.Core.ByteArray -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Core.ByteArray -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Core.Date -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Core.Date -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Core.Date -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Core.Date -instance GHC.Show.Show SwaggerPetstore.Core.Date -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Core.Date -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Core.DateTime -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Core.DateTime -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Core.DateTime -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Core.DateTime -instance GHC.Show.Show SwaggerPetstore.Core.DateTime -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Core.DateTime -instance GHC.Exception.Exception SwaggerPetstore.Core.AuthMethodException -instance GHC.Show.Show SwaggerPetstore.Core.SwaggerPetstoreConfig -instance SwaggerPetstore.Core.AuthMethod SwaggerPetstore.Core.AnyAuthMethod +instance Control.DeepSeq.NFData OpenAPIPetstore.Core.Binary +instance GHC.Classes.Ord OpenAPIPetstore.Core.Binary +instance Data.Data.Data OpenAPIPetstore.Core.Binary +instance GHC.Classes.Eq OpenAPIPetstore.Core.Binary +instance Control.DeepSeq.NFData OpenAPIPetstore.Core.ByteArray +instance GHC.Classes.Ord OpenAPIPetstore.Core.ByteArray +instance Data.Data.Data OpenAPIPetstore.Core.ByteArray +instance GHC.Classes.Eq OpenAPIPetstore.Core.ByteArray +instance Data.Time.Format.FormatTime OpenAPIPetstore.Core.Date +instance Data.Time.Format.Parse.ParseTime OpenAPIPetstore.Core.Date +instance Control.DeepSeq.NFData OpenAPIPetstore.Core.Date +instance GHC.Arr.Ix OpenAPIPetstore.Core.Date +instance GHC.Classes.Ord OpenAPIPetstore.Core.Date +instance Data.Data.Data OpenAPIPetstore.Core.Date +instance GHC.Classes.Eq OpenAPIPetstore.Core.Date +instance GHC.Enum.Enum OpenAPIPetstore.Core.Date +instance Data.Time.Format.FormatTime OpenAPIPetstore.Core.DateTime +instance Data.Time.Format.Parse.ParseTime OpenAPIPetstore.Core.DateTime +instance Control.DeepSeq.NFData OpenAPIPetstore.Core.DateTime +instance GHC.Classes.Ord OpenAPIPetstore.Core.DateTime +instance Data.Data.Data OpenAPIPetstore.Core.DateTime +instance GHC.Classes.Eq OpenAPIPetstore.Core.DateTime +instance GHC.Show.Show OpenAPIPetstore.Core.AuthMethodException +instance GHC.Show.Show (OpenAPIPetstore.Core.OpenAPIPetstoreRequest req contentType res accept) +instance GHC.Show.Show OpenAPIPetstore.Core.Params +instance GHC.Show.Show OpenAPIPetstore.Core.ParamBody +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Core.Binary +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Core.Binary +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Core.Binary +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Core.Binary +instance GHC.Show.Show OpenAPIPetstore.Core.Binary +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Core.Binary +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Core.ByteArray +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Core.ByteArray +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Core.ByteArray +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Core.ByteArray +instance GHC.Show.Show OpenAPIPetstore.Core.ByteArray +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Core.ByteArray +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Core.Date +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Core.Date +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Core.Date +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Core.Date +instance GHC.Show.Show OpenAPIPetstore.Core.Date +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Core.Date +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Core.DateTime +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Core.DateTime +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Core.DateTime +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Core.DateTime +instance GHC.Show.Show OpenAPIPetstore.Core.DateTime +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Core.DateTime +instance GHC.Exception.Exception OpenAPIPetstore.Core.AuthMethodException +instance GHC.Show.Show OpenAPIPetstore.Core.OpenAPIPetstoreConfig +instance OpenAPIPetstore.Core.AuthMethod OpenAPIPetstore.Core.AnyAuthMethod -module SwaggerPetstore.Client +module OpenAPIPetstore.Client -- | send a request returning the raw http response -dispatchLbs :: (Produces req accept, MimeType contentType) => Manager -> SwaggerPetstoreConfig -> SwaggerPetstoreRequest req contentType res accept -> IO (Response ByteString) +dispatchLbs :: (Produces req accept, MimeType contentType) => Manager -> OpenAPIPetstoreConfig -> OpenAPIPetstoreRequest req contentType res accept -> IO (Response ByteString) -- | pair of decoded http body and http response data MimeResult res @@ -568,18 +568,18 @@ MimeError :: String -> Response ByteString -> MimeError [mimeErrorResponse] :: MimeError -> Response ByteString -- | send a request returning the MimeResult -dispatchMime :: forall req contentType res accept. (Produces req accept, MimeUnrender accept res, MimeType contentType) => Manager -> SwaggerPetstoreConfig -> SwaggerPetstoreRequest req contentType res accept -> IO (MimeResult res) +dispatchMime :: forall req contentType res accept. (Produces req accept, MimeUnrender accept res, MimeType contentType) => Manager -> OpenAPIPetstoreConfig -> OpenAPIPetstoreRequest req contentType res accept -> IO (MimeResult res) -- | like dispatchMime, but only returns the decoded http body -dispatchMime' :: (Produces req accept, MimeUnrender accept res, MimeType contentType) => Manager -> SwaggerPetstoreConfig -> SwaggerPetstoreRequest req contentType res accept -> IO (Either MimeError res) +dispatchMime' :: (Produces req accept, MimeUnrender accept res, MimeType contentType) => Manager -> OpenAPIPetstoreConfig -> OpenAPIPetstoreRequest req contentType res accept -> IO (Either MimeError res) -- | like dispatchReqLbs, but does not validate the operation is a -- Producer of the "accept" MimeType. (Useful if the -- server's response is undocumented) -dispatchLbsUnsafe :: (MimeType accept, MimeType contentType) => Manager -> SwaggerPetstoreConfig -> SwaggerPetstoreRequest req contentType res accept -> IO (Response ByteString) +dispatchLbsUnsafe :: (MimeType accept, MimeType contentType) => Manager -> OpenAPIPetstoreConfig -> OpenAPIPetstoreRequest req contentType res accept -> IO (Response ByteString) -- | dispatch an InitRequest -dispatchInitUnsafe :: Manager -> SwaggerPetstoreConfig -> InitRequest req contentType res accept -> IO (Response ByteString) +dispatchInitUnsafe :: Manager -> OpenAPIPetstoreConfig -> InitRequest req contentType res accept -> IO (Response ByteString) -- | wraps an http-client Request with request/response type -- parameters @@ -589,7 +589,7 @@ InitRequest :: Request -> InitRequest req contentType res accept -- | Build an http-client Request record from the supplied config -- and request -_toInitRequest :: (MimeType accept, MimeType contentType) => SwaggerPetstoreConfig -> SwaggerPetstoreRequest req contentType res accept -> IO (InitRequest req contentType res accept) +_toInitRequest :: (MimeType accept, MimeType contentType) => OpenAPIPetstoreConfig -> OpenAPIPetstoreRequest req contentType res accept -> IO (InitRequest req contentType res accept) -- | modify the underlying Request modifyInitRequest :: InitRequest req contentType res accept -> (Request -> Request) -> InitRequest req contentType res accept @@ -598,20 +598,20 @@ modifyInitRequest :: InitRequest req contentType res accept -> (Request -> Reque modifyInitRequestM :: Monad m => InitRequest req contentType res accept -> (Request -> m Request) -> m (InitRequest req contentType res accept) -- | Run a block using the configured logger instance -runConfigLog :: MonadIO m => SwaggerPetstoreConfig -> LogExec m +runConfigLog :: MonadIO m => OpenAPIPetstoreConfig -> LogExec m -- | Run a block using the configured logger instance (logs exceptions) -runConfigLogWithExceptions :: (MonadCatch m, MonadIO m) => Text -> SwaggerPetstoreConfig -> LogExec m -instance GHC.Show.Show (SwaggerPetstore.Client.InitRequest req contentType res accept) -instance Data.Traversable.Traversable SwaggerPetstore.Client.MimeResult -instance Data.Foldable.Foldable SwaggerPetstore.Client.MimeResult -instance GHC.Base.Functor SwaggerPetstore.Client.MimeResult -instance GHC.Show.Show res => GHC.Show.Show (SwaggerPetstore.Client.MimeResult res) -instance GHC.Show.Show SwaggerPetstore.Client.MimeError -instance GHC.Classes.Eq SwaggerPetstore.Client.MimeError +runConfigLogWithExceptions :: (MonadCatch m, MonadIO m) => Text -> OpenAPIPetstoreConfig -> LogExec m +instance GHC.Show.Show (OpenAPIPetstore.Client.InitRequest req contentType res accept) +instance Data.Traversable.Traversable OpenAPIPetstore.Client.MimeResult +instance Data.Foldable.Foldable OpenAPIPetstore.Client.MimeResult +instance GHC.Base.Functor OpenAPIPetstore.Client.MimeResult +instance GHC.Show.Show res => GHC.Show.Show (OpenAPIPetstore.Client.MimeResult res) +instance GHC.Show.Show OpenAPIPetstore.Client.MimeError +instance GHC.Classes.Eq OpenAPIPetstore.Client.MimeError -module SwaggerPetstore.Model +module OpenAPIPetstore.Model newtype AdditionalMetadata AdditionalMetadata :: Text -> AdditionalMetadata [unAdditionalMetadata] :: AdditionalMetadata -> Text @@ -621,12 +621,12 @@ ApiKey :: Text -> ApiKey newtype Body Body :: Double -> Body [unBody] :: Body -> Double +newtype BodyBool +BodyBool :: Bool -> BodyBool +[unBodyBool] :: BodyBool -> Bool newtype BodyText BodyText :: Text -> BodyText [unBodyText] :: BodyText -> Text -newtype BooleanPostBody -BooleanPostBody :: Bool -> BooleanPostBody -[unBooleanPostBody] :: BooleanPostBody -> Bool newtype Byte Byte :: ByteArray -> Byte [unByte] :: Byte -> ByteArray @@ -714,12 +714,9 @@ PatternWithoutDelimiter :: Text -> PatternWithoutDelimiter newtype PetId PetId :: Integer -> PetId [unPetId] :: PetId -> Integer -newtype Query -Query :: Text -> Query -[unQuery] :: Query -> Text newtype RequestBody -RequestBody :: Text -> RequestBody -[unRequestBody] :: RequestBody -> Text +RequestBody :: (Map String Text) -> RequestBody +[unRequestBody] :: RequestBody -> (Map String Text) newtype Status Status :: [E'Status2] -> Status [unStatus] :: Status -> [E'Status2] @@ -773,9 +770,16 @@ Animal :: !(Text) -> !(Maybe Text) -> Animal mkAnimal :: Text -> Animal -- | AnimalFarm -newtype AnimalFarm -AnimalFarm :: [Animal] -> AnimalFarm -[unAnimalFarm] :: AnimalFarm -> [Animal] +data AnimalFarm +AnimalFarm :: AnimalFarm + +-- | FromJSON AnimalFarm + +-- | ToJSON AnimalFarm + +-- | Construct a value of type AnimalFarm (by applying it's required +-- fields, if any) +mkAnimalFarm :: AnimalFarm -- | ApiResponse data ApiResponse @@ -1146,7 +1150,7 @@ data ModelList ModelList :: !(Maybe Text) -> ModelList -- | "123-list" -[modelList123List] :: ModelList -> !(Maybe Text) +[modelList123list] :: ModelList -> !(Maybe Text) -- | FromJSON ModelList @@ -1185,7 +1189,7 @@ Name :: !(Int) -> !(Maybe Int) -> !(Maybe Text) -> !(Maybe Int) -> Name [nameProperty] :: Name -> !(Maybe Text) -- | "123Number" -[name123Number] :: Name -> !(Maybe Int) +[name123number] :: Name -> !(Maybe Int) -- | FromJSON Name @@ -1240,23 +1244,18 @@ Order :: !(Maybe Integer) -> !(Maybe Integer) -> !(Maybe Int) -> !(Maybe DateTim -- fields, if any) mkOrder :: Order --- | OuterBoolean -newtype OuterBoolean -OuterBoolean :: Bool -> OuterBoolean -[unOuterBoolean] :: OuterBoolean -> Bool - -- | OuterComposite data OuterComposite -OuterComposite :: !(Maybe OuterNumber) -> !(Maybe OuterString) -> !(Maybe OuterBoolean) -> OuterComposite +OuterComposite :: !(Maybe Double) -> !(Maybe Text) -> !(Maybe Bool) -> OuterComposite -- | "my_number" -[outerCompositeMyNumber] :: OuterComposite -> !(Maybe OuterNumber) +[outerCompositeMyNumber] :: OuterComposite -> !(Maybe Double) -- | "my_string" -[outerCompositeMyString] :: OuterComposite -> !(Maybe OuterString) +[outerCompositeMyString] :: OuterComposite -> !(Maybe Text) -- | "my_boolean" -[outerCompositeMyBoolean] :: OuterComposite -> !(Maybe OuterBoolean) +[outerCompositeMyBoolean] :: OuterComposite -> !(Maybe Bool) -- | FromJSON OuterComposite @@ -1266,16 +1265,6 @@ OuterComposite :: !(Maybe OuterNumber) -> !(Maybe OuterString) -> !(Maybe OuterB -- required fields, if any) mkOuterComposite :: OuterComposite --- | OuterNumber -newtype OuterNumber -OuterNumber :: Double -> OuterNumber -[unOuterNumber] :: OuterNumber -> Double - --- | OuterString -newtype OuterString -OuterString :: Text -> OuterString -[unOuterString] :: OuterString -> Text - -- | Pet data Pet Pet :: !(Maybe Integer) -> !(Maybe Category) -> !(Text) -> !([Text]) -> !(Maybe [Tag]) -> !(Maybe E'Status2) -> Pet @@ -1685,374 +1674,360 @@ data AuthOAuthPetstoreAuth -- | secret AuthOAuthPetstoreAuth :: Text -> AuthOAuthPetstoreAuth -instance GHC.Show.Show SwaggerPetstore.Model.AuthOAuthPetstoreAuth -instance GHC.Classes.Eq SwaggerPetstore.Model.AuthOAuthPetstoreAuth -instance GHC.Show.Show SwaggerPetstore.Model.AuthBasicHttpBasicTest -instance GHC.Classes.Eq SwaggerPetstore.Model.AuthBasicHttpBasicTest -instance GHC.Show.Show SwaggerPetstore.Model.AuthApiKeyApiKeyQuery -instance GHC.Classes.Eq SwaggerPetstore.Model.AuthApiKeyApiKeyQuery -instance GHC.Show.Show SwaggerPetstore.Model.AuthApiKeyApiKey -instance GHC.Classes.Eq SwaggerPetstore.Model.AuthApiKeyApiKey -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumTest -instance GHC.Show.Show SwaggerPetstore.Model.EnumTest -instance GHC.Enum.Enum SwaggerPetstore.Model.OuterEnum -instance GHC.Enum.Bounded SwaggerPetstore.Model.OuterEnum -instance GHC.Classes.Ord SwaggerPetstore.Model.OuterEnum -instance GHC.Classes.Eq SwaggerPetstore.Model.OuterEnum -instance GHC.Show.Show SwaggerPetstore.Model.OuterEnum -instance GHC.Enum.Enum SwaggerPetstore.Model.EnumClass -instance GHC.Enum.Bounded SwaggerPetstore.Model.EnumClass -instance GHC.Classes.Ord SwaggerPetstore.Model.EnumClass -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumClass -instance GHC.Show.Show SwaggerPetstore.Model.EnumClass -instance GHC.Show.Show SwaggerPetstore.Model.Status -instance GHC.Classes.Eq SwaggerPetstore.Model.Status -instance GHC.Classes.Eq SwaggerPetstore.Model.Pet -instance GHC.Show.Show SwaggerPetstore.Model.Pet -instance GHC.Enum.Enum SwaggerPetstore.Model.E'Status2 -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'Status2 -instance GHC.Classes.Ord SwaggerPetstore.Model.E'Status2 -instance GHC.Classes.Eq SwaggerPetstore.Model.E'Status2 -instance GHC.Show.Show SwaggerPetstore.Model.E'Status2 -instance GHC.Classes.Eq SwaggerPetstore.Model.Order -instance GHC.Show.Show SwaggerPetstore.Model.Order -instance GHC.Enum.Enum SwaggerPetstore.Model.E'Status -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'Status -instance GHC.Classes.Ord SwaggerPetstore.Model.E'Status -instance GHC.Classes.Eq SwaggerPetstore.Model.E'Status -instance GHC.Show.Show SwaggerPetstore.Model.E'Status -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumArrays -instance GHC.Show.Show SwaggerPetstore.Model.EnumArrays -instance GHC.Enum.Enum SwaggerPetstore.Model.E'JustSymbol -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'JustSymbol -instance GHC.Classes.Ord SwaggerPetstore.Model.E'JustSymbol -instance GHC.Classes.Eq SwaggerPetstore.Model.E'JustSymbol -instance GHC.Show.Show SwaggerPetstore.Model.E'JustSymbol -instance GHC.Classes.Eq SwaggerPetstore.Model.MapTest -instance GHC.Show.Show SwaggerPetstore.Model.MapTest -instance GHC.Enum.Enum SwaggerPetstore.Model.E'Inner -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'Inner -instance GHC.Classes.Ord SwaggerPetstore.Model.E'Inner -instance GHC.Classes.Eq SwaggerPetstore.Model.E'Inner -instance GHC.Show.Show SwaggerPetstore.Model.E'Inner -instance GHC.Enum.Enum SwaggerPetstore.Model.E'EnumString -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'EnumString -instance GHC.Classes.Ord SwaggerPetstore.Model.E'EnumString -instance GHC.Classes.Eq SwaggerPetstore.Model.E'EnumString -instance GHC.Show.Show SwaggerPetstore.Model.E'EnumString -instance GHC.Show.Show SwaggerPetstore.Model.EnumQueryInteger -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumQueryInteger -instance GHC.Enum.Enum SwaggerPetstore.Model.E'EnumQueryInteger -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'EnumQueryInteger -instance GHC.Classes.Ord SwaggerPetstore.Model.E'EnumQueryInteger -instance GHC.Classes.Eq SwaggerPetstore.Model.E'EnumQueryInteger -instance GHC.Show.Show SwaggerPetstore.Model.E'EnumQueryInteger -instance GHC.Show.Show SwaggerPetstore.Model.EnumQueryDouble -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumQueryDouble -instance GHC.Enum.Enum SwaggerPetstore.Model.E'EnumNumber -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'EnumNumber -instance GHC.Classes.Ord SwaggerPetstore.Model.E'EnumNumber -instance GHC.Classes.Eq SwaggerPetstore.Model.E'EnumNumber -instance GHC.Show.Show SwaggerPetstore.Model.E'EnumNumber -instance GHC.Enum.Enum SwaggerPetstore.Model.E'EnumInteger -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'EnumInteger -instance GHC.Classes.Ord SwaggerPetstore.Model.E'EnumInteger -instance GHC.Classes.Eq SwaggerPetstore.Model.E'EnumInteger -instance GHC.Show.Show SwaggerPetstore.Model.E'EnumInteger -instance GHC.Show.Show SwaggerPetstore.Model.EnumFormStringArray -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumFormStringArray -instance GHC.Show.Show SwaggerPetstore.Model.EnumHeaderStringArray -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumHeaderStringArray -instance GHC.Show.Show SwaggerPetstore.Model.EnumQueryStringArray -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumQueryStringArray -instance GHC.Enum.Enum SwaggerPetstore.Model.E'EnumFormStringArray -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'EnumFormStringArray -instance GHC.Classes.Ord SwaggerPetstore.Model.E'EnumFormStringArray -instance GHC.Classes.Eq SwaggerPetstore.Model.E'EnumFormStringArray -instance GHC.Show.Show SwaggerPetstore.Model.E'EnumFormStringArray -instance GHC.Show.Show SwaggerPetstore.Model.EnumFormString -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumFormString -instance GHC.Show.Show SwaggerPetstore.Model.EnumHeaderString -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumHeaderString -instance GHC.Show.Show SwaggerPetstore.Model.EnumQueryString -instance GHC.Classes.Eq SwaggerPetstore.Model.EnumQueryString -instance GHC.Enum.Enum SwaggerPetstore.Model.E'EnumFormString -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'EnumFormString -instance GHC.Classes.Ord SwaggerPetstore.Model.E'EnumFormString -instance GHC.Classes.Eq SwaggerPetstore.Model.E'EnumFormString -instance GHC.Show.Show SwaggerPetstore.Model.E'EnumFormString -instance GHC.Enum.Enum SwaggerPetstore.Model.E'ArrayEnum -instance GHC.Enum.Bounded SwaggerPetstore.Model.E'ArrayEnum -instance GHC.Classes.Ord SwaggerPetstore.Model.E'ArrayEnum -instance GHC.Classes.Eq SwaggerPetstore.Model.E'ArrayEnum -instance GHC.Show.Show SwaggerPetstore.Model.E'ArrayEnum -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.User2 -instance GHC.Show.Show SwaggerPetstore.Model.User2 -instance GHC.Classes.Eq SwaggerPetstore.Model.User2 -instance GHC.Classes.Eq SwaggerPetstore.Model.User -instance GHC.Show.Show SwaggerPetstore.Model.User -instance GHC.Classes.Eq SwaggerPetstore.Model.Tag -instance GHC.Show.Show SwaggerPetstore.Model.Tag -instance GHC.Classes.Eq SwaggerPetstore.Model.SpecialModelName -instance GHC.Show.Show SwaggerPetstore.Model.SpecialModelName -instance GHC.Classes.Eq SwaggerPetstore.Model.ArrayTest -instance GHC.Show.Show SwaggerPetstore.Model.ArrayTest -instance GHC.Classes.Eq SwaggerPetstore.Model.ReadOnlyFirst -instance GHC.Show.Show SwaggerPetstore.Model.ReadOnlyFirst -instance GHC.Classes.Eq SwaggerPetstore.Model.OuterComposite -instance GHC.Show.Show SwaggerPetstore.Model.OuterComposite -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.OuterString -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.OuterString -instance GHC.Show.Show SwaggerPetstore.Model.OuterString -instance GHC.Classes.Eq SwaggerPetstore.Model.OuterString -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.OuterNumber -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.OuterNumber -instance GHC.Show.Show SwaggerPetstore.Model.OuterNumber -instance GHC.Classes.Eq SwaggerPetstore.Model.OuterNumber -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.OuterBoolean -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.OuterBoolean -instance GHC.Show.Show SwaggerPetstore.Model.OuterBoolean -instance GHC.Classes.Eq SwaggerPetstore.Model.OuterBoolean -instance GHC.Classes.Eq SwaggerPetstore.Model.NumberOnly -instance GHC.Show.Show SwaggerPetstore.Model.NumberOnly -instance GHC.Classes.Eq SwaggerPetstore.Model.Name -instance GHC.Show.Show SwaggerPetstore.Model.Name -instance GHC.Classes.Eq SwaggerPetstore.Model.ModelReturn -instance GHC.Show.Show SwaggerPetstore.Model.ModelReturn -instance GHC.Classes.Eq SwaggerPetstore.Model.ModelList -instance GHC.Show.Show SwaggerPetstore.Model.ModelList -instance GHC.Classes.Eq SwaggerPetstore.Model.Model200Response -instance GHC.Show.Show SwaggerPetstore.Model.Model200Response -instance GHC.Classes.Eq SwaggerPetstore.Model.MixedPropertiesAndAdditionalPropertiesClass -instance GHC.Show.Show SwaggerPetstore.Model.MixedPropertiesAndAdditionalPropertiesClass -instance GHC.Classes.Eq SwaggerPetstore.Model.HasOnlyReadOnly -instance GHC.Show.Show SwaggerPetstore.Model.HasOnlyReadOnly -instance GHC.Classes.Eq SwaggerPetstore.Model.FormatTest -instance GHC.Show.Show SwaggerPetstore.Model.FormatTest -instance GHC.Classes.Eq SwaggerPetstore.Model.Dog -instance GHC.Show.Show SwaggerPetstore.Model.Dog -instance GHC.Classes.Eq SwaggerPetstore.Model.Client -instance GHC.Show.Show SwaggerPetstore.Model.Client -instance GHC.Classes.Eq SwaggerPetstore.Model.ClassModel -instance GHC.Show.Show SwaggerPetstore.Model.ClassModel -instance GHC.Classes.Eq SwaggerPetstore.Model.Category -instance GHC.Show.Show SwaggerPetstore.Model.Category -instance GHC.Classes.Eq SwaggerPetstore.Model.Cat -instance GHC.Show.Show SwaggerPetstore.Model.Cat -instance GHC.Classes.Eq SwaggerPetstore.Model.Capitalization -instance GHC.Show.Show SwaggerPetstore.Model.Capitalization -instance GHC.Classes.Eq SwaggerPetstore.Model.ArrayOfNumberOnly -instance GHC.Show.Show SwaggerPetstore.Model.ArrayOfNumberOnly -instance GHC.Classes.Eq SwaggerPetstore.Model.ArrayOfArrayOfNumberOnly -instance GHC.Show.Show SwaggerPetstore.Model.ArrayOfArrayOfNumberOnly -instance GHC.Classes.Eq SwaggerPetstore.Model.ApiResponse -instance GHC.Show.Show SwaggerPetstore.Model.ApiResponse -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.AnimalFarm -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.AnimalFarm -instance GHC.Show.Show SwaggerPetstore.Model.AnimalFarm -instance GHC.Classes.Eq SwaggerPetstore.Model.AnimalFarm -instance GHC.Classes.Eq SwaggerPetstore.Model.Animal -instance GHC.Show.Show SwaggerPetstore.Model.Animal -instance GHC.Classes.Eq SwaggerPetstore.Model.AdditionalPropertiesClass -instance GHC.Show.Show SwaggerPetstore.Model.AdditionalPropertiesClass -instance GHC.Show.Show SwaggerPetstore.Model.Username -instance GHC.Classes.Eq SwaggerPetstore.Model.Username -instance GHC.Show.Show SwaggerPetstore.Model.Tags -instance GHC.Classes.Eq SwaggerPetstore.Model.Tags -instance GHC.Show.Show SwaggerPetstore.Model.StatusText -instance GHC.Classes.Eq SwaggerPetstore.Model.StatusText -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.RequestBody -instance GHC.Show.Show SwaggerPetstore.Model.RequestBody -instance GHC.Classes.Eq SwaggerPetstore.Model.RequestBody -instance GHC.Show.Show SwaggerPetstore.Model.Query -instance GHC.Classes.Eq SwaggerPetstore.Model.Query -instance GHC.Show.Show SwaggerPetstore.Model.PetId -instance GHC.Classes.Eq SwaggerPetstore.Model.PetId -instance GHC.Show.Show SwaggerPetstore.Model.PatternWithoutDelimiter -instance GHC.Classes.Eq SwaggerPetstore.Model.PatternWithoutDelimiter -instance GHC.Show.Show SwaggerPetstore.Model.Password -instance GHC.Classes.Eq SwaggerPetstore.Model.Password -instance GHC.Show.Show SwaggerPetstore.Model.ParamString -instance GHC.Classes.Eq SwaggerPetstore.Model.ParamString -instance GHC.Show.Show SwaggerPetstore.Model.ParamInteger -instance GHC.Classes.Eq SwaggerPetstore.Model.ParamInteger -instance GHC.Show.Show SwaggerPetstore.Model.ParamFloat -instance GHC.Classes.Eq SwaggerPetstore.Model.ParamFloat -instance GHC.Show.Show SwaggerPetstore.Model.ParamDouble -instance GHC.Classes.Eq SwaggerPetstore.Model.ParamDouble -instance GHC.Show.Show SwaggerPetstore.Model.ParamDateTime -instance GHC.Classes.Eq SwaggerPetstore.Model.ParamDateTime -instance GHC.Show.Show SwaggerPetstore.Model.ParamDate -instance GHC.Classes.Eq SwaggerPetstore.Model.ParamDate -instance GHC.Show.Show SwaggerPetstore.Model.ParamBinary -instance GHC.Classes.Eq SwaggerPetstore.Model.ParamBinary -instance GHC.Show.Show SwaggerPetstore.Model.Param2 -instance GHC.Classes.Eq SwaggerPetstore.Model.Param2 -instance GHC.Show.Show SwaggerPetstore.Model.Param -instance GHC.Classes.Eq SwaggerPetstore.Model.Param -instance GHC.Show.Show SwaggerPetstore.Model.OrderIdText -instance GHC.Classes.Eq SwaggerPetstore.Model.OrderIdText -instance GHC.Show.Show SwaggerPetstore.Model.OrderId -instance GHC.Classes.Eq SwaggerPetstore.Model.OrderId -instance GHC.Show.Show SwaggerPetstore.Model.Number -instance GHC.Classes.Eq SwaggerPetstore.Model.Number -instance GHC.Show.Show SwaggerPetstore.Model.Name2 -instance GHC.Classes.Eq SwaggerPetstore.Model.Name2 -instance GHC.Show.Show SwaggerPetstore.Model.Int64 -instance GHC.Classes.Eq SwaggerPetstore.Model.Int64 -instance GHC.Show.Show SwaggerPetstore.Model.Int32 -instance GHC.Classes.Eq SwaggerPetstore.Model.Int32 -instance GHC.Show.Show SwaggerPetstore.Model.File -instance GHC.Classes.Eq SwaggerPetstore.Model.File -instance GHC.Show.Show SwaggerPetstore.Model.Callback -instance GHC.Classes.Eq SwaggerPetstore.Model.Callback -instance GHC.Show.Show SwaggerPetstore.Model.Byte -instance GHC.Classes.Eq SwaggerPetstore.Model.Byte -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.BooleanPostBody -instance GHC.Show.Show SwaggerPetstore.Model.BooleanPostBody -instance GHC.Classes.Eq SwaggerPetstore.Model.BooleanPostBody -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.BodyText -instance GHC.Show.Show SwaggerPetstore.Model.BodyText -instance GHC.Classes.Eq SwaggerPetstore.Model.BodyText -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Body -instance GHC.Show.Show SwaggerPetstore.Model.Body -instance GHC.Classes.Eq SwaggerPetstore.Model.Body -instance GHC.Show.Show SwaggerPetstore.Model.ApiKey -instance GHC.Classes.Eq SwaggerPetstore.Model.ApiKey -instance GHC.Show.Show SwaggerPetstore.Model.AdditionalMetadata -instance GHC.Classes.Eq SwaggerPetstore.Model.AdditionalMetadata -instance SwaggerPetstore.Core.AuthMethod SwaggerPetstore.Model.AuthOAuthPetstoreAuth -instance SwaggerPetstore.Core.AuthMethod SwaggerPetstore.Model.AuthBasicHttpBasicTest -instance SwaggerPetstore.Core.AuthMethod SwaggerPetstore.Model.AuthApiKeyApiKeyQuery -instance SwaggerPetstore.Core.AuthMethod SwaggerPetstore.Model.AuthApiKeyApiKey -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.EnumTest -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.EnumTest -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.OuterEnum -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.OuterEnum -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.OuterEnum -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.OuterEnum -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.OuterEnum -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.EnumClass -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.EnumClass -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.EnumClass -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.EnumClass -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.EnumClass -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Pet -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Pet -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'Status2 -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'Status2 -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'Status2 -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'Status2 -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'Status2 -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Order -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Order -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'Status -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'Status -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'Status -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'Status -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'Status -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.EnumArrays -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.EnumArrays -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'JustSymbol -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'JustSymbol -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'JustSymbol -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'JustSymbol -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'JustSymbol -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.MapTest -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.MapTest -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'Inner -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'Inner -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'Inner -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'Inner -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'Inner -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'EnumString -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'EnumString -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'EnumString -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'EnumString -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'EnumString -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'EnumQueryInteger -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'EnumQueryInteger -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'EnumQueryInteger -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'EnumQueryInteger -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'EnumQueryInteger -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'EnumNumber -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'EnumNumber -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'EnumNumber -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'EnumNumber -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'EnumNumber -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'EnumInteger -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'EnumInteger -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'EnumInteger -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'EnumInteger -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'EnumInteger -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'EnumFormStringArray -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'EnumFormStringArray -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'EnumFormStringArray -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'EnumFormStringArray -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'EnumFormStringArray -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'EnumFormString -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'EnumFormString -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'EnumFormString -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'EnumFormString -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'EnumFormString -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.E'ArrayEnum -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.E'ArrayEnum -instance Web.Internal.HttpApiData.ToHttpApiData SwaggerPetstore.Model.E'ArrayEnum -instance Web.Internal.HttpApiData.FromHttpApiData SwaggerPetstore.Model.E'ArrayEnum -instance SwaggerPetstore.MimeTypes.MimeRender SwaggerPetstore.MimeTypes.MimeMultipartFormData SwaggerPetstore.Model.E'ArrayEnum -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.User -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.User -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Tag -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Tag -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.SpecialModelName -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.SpecialModelName -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.ArrayTest -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.ArrayTest -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.ReadOnlyFirst -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.ReadOnlyFirst -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.OuterComposite -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.OuterComposite -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.NumberOnly -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.NumberOnly -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Name -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Name -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.ModelReturn -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.ModelReturn -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.ModelList -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.ModelList -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Model200Response -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Model200Response -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.MixedPropertiesAndAdditionalPropertiesClass -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.MixedPropertiesAndAdditionalPropertiesClass -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.HasOnlyReadOnly -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.HasOnlyReadOnly -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.FormatTest -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.FormatTest -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Dog -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Dog -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Client -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Client -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.ClassModel -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.ClassModel -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Category -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Category -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Cat -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Cat -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Capitalization -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Capitalization -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.ArrayOfNumberOnly -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.ArrayOfNumberOnly -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.ArrayOfArrayOfNumberOnly -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.ArrayOfArrayOfNumberOnly -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.ApiResponse -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.ApiResponse -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.Animal -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.Animal -instance Data.Aeson.Types.FromJSON.FromJSON SwaggerPetstore.Model.AdditionalPropertiesClass -instance Data.Aeson.Types.ToJSON.ToJSON SwaggerPetstore.Model.AdditionalPropertiesClass +instance GHC.Show.Show OpenAPIPetstore.Model.AuthOAuthPetstoreAuth +instance GHC.Classes.Eq OpenAPIPetstore.Model.AuthOAuthPetstoreAuth +instance GHC.Show.Show OpenAPIPetstore.Model.AuthBasicHttpBasicTest +instance GHC.Classes.Eq OpenAPIPetstore.Model.AuthBasicHttpBasicTest +instance GHC.Show.Show OpenAPIPetstore.Model.AuthApiKeyApiKeyQuery +instance GHC.Classes.Eq OpenAPIPetstore.Model.AuthApiKeyApiKeyQuery +instance GHC.Show.Show OpenAPIPetstore.Model.AuthApiKeyApiKey +instance GHC.Classes.Eq OpenAPIPetstore.Model.AuthApiKeyApiKey +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumTest +instance GHC.Show.Show OpenAPIPetstore.Model.EnumTest +instance GHC.Enum.Enum OpenAPIPetstore.Model.OuterEnum +instance GHC.Enum.Bounded OpenAPIPetstore.Model.OuterEnum +instance GHC.Classes.Ord OpenAPIPetstore.Model.OuterEnum +instance GHC.Classes.Eq OpenAPIPetstore.Model.OuterEnum +instance GHC.Show.Show OpenAPIPetstore.Model.OuterEnum +instance GHC.Enum.Enum OpenAPIPetstore.Model.EnumClass +instance GHC.Enum.Bounded OpenAPIPetstore.Model.EnumClass +instance GHC.Classes.Ord OpenAPIPetstore.Model.EnumClass +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumClass +instance GHC.Show.Show OpenAPIPetstore.Model.EnumClass +instance GHC.Show.Show OpenAPIPetstore.Model.Status +instance GHC.Classes.Eq OpenAPIPetstore.Model.Status +instance GHC.Classes.Eq OpenAPIPetstore.Model.Pet +instance GHC.Show.Show OpenAPIPetstore.Model.Pet +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'Status2 +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'Status2 +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'Status2 +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'Status2 +instance GHC.Show.Show OpenAPIPetstore.Model.E'Status2 +instance GHC.Classes.Eq OpenAPIPetstore.Model.Order +instance GHC.Show.Show OpenAPIPetstore.Model.Order +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'Status +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'Status +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'Status +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'Status +instance GHC.Show.Show OpenAPIPetstore.Model.E'Status +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumArrays +instance GHC.Show.Show OpenAPIPetstore.Model.EnumArrays +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'JustSymbol +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'JustSymbol +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'JustSymbol +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'JustSymbol +instance GHC.Show.Show OpenAPIPetstore.Model.E'JustSymbol +instance GHC.Classes.Eq OpenAPIPetstore.Model.MapTest +instance GHC.Show.Show OpenAPIPetstore.Model.MapTest +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'Inner +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'Inner +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'Inner +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'Inner +instance GHC.Show.Show OpenAPIPetstore.Model.E'Inner +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'EnumString +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'EnumString +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'EnumString +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'EnumString +instance GHC.Show.Show OpenAPIPetstore.Model.E'EnumString +instance GHC.Show.Show OpenAPIPetstore.Model.EnumQueryInteger +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumQueryInteger +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'EnumQueryInteger +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'EnumQueryInteger +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'EnumQueryInteger +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'EnumQueryInteger +instance GHC.Show.Show OpenAPIPetstore.Model.E'EnumQueryInteger +instance GHC.Show.Show OpenAPIPetstore.Model.EnumQueryDouble +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumQueryDouble +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'EnumNumber +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'EnumNumber +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'EnumNumber +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'EnumNumber +instance GHC.Show.Show OpenAPIPetstore.Model.E'EnumNumber +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'EnumInteger +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'EnumInteger +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'EnumInteger +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'EnumInteger +instance GHC.Show.Show OpenAPIPetstore.Model.E'EnumInteger +instance GHC.Show.Show OpenAPIPetstore.Model.EnumFormStringArray +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumFormStringArray +instance GHC.Show.Show OpenAPIPetstore.Model.EnumHeaderStringArray +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumHeaderStringArray +instance GHC.Show.Show OpenAPIPetstore.Model.EnumQueryStringArray +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumQueryStringArray +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'EnumFormStringArray +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'EnumFormStringArray +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'EnumFormStringArray +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'EnumFormStringArray +instance GHC.Show.Show OpenAPIPetstore.Model.E'EnumFormStringArray +instance GHC.Show.Show OpenAPIPetstore.Model.EnumFormString +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumFormString +instance GHC.Show.Show OpenAPIPetstore.Model.EnumHeaderString +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumHeaderString +instance GHC.Show.Show OpenAPIPetstore.Model.EnumQueryString +instance GHC.Classes.Eq OpenAPIPetstore.Model.EnumQueryString +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'EnumFormString +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'EnumFormString +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'EnumFormString +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'EnumFormString +instance GHC.Show.Show OpenAPIPetstore.Model.E'EnumFormString +instance GHC.Enum.Enum OpenAPIPetstore.Model.E'ArrayEnum +instance GHC.Enum.Bounded OpenAPIPetstore.Model.E'ArrayEnum +instance GHC.Classes.Ord OpenAPIPetstore.Model.E'ArrayEnum +instance GHC.Classes.Eq OpenAPIPetstore.Model.E'ArrayEnum +instance GHC.Show.Show OpenAPIPetstore.Model.E'ArrayEnum +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.User2 +instance GHC.Show.Show OpenAPIPetstore.Model.User2 +instance GHC.Classes.Eq OpenAPIPetstore.Model.User2 +instance GHC.Classes.Eq OpenAPIPetstore.Model.User +instance GHC.Show.Show OpenAPIPetstore.Model.User +instance GHC.Classes.Eq OpenAPIPetstore.Model.Tag +instance GHC.Show.Show OpenAPIPetstore.Model.Tag +instance GHC.Classes.Eq OpenAPIPetstore.Model.SpecialModelName +instance GHC.Show.Show OpenAPIPetstore.Model.SpecialModelName +instance GHC.Classes.Eq OpenAPIPetstore.Model.ArrayTest +instance GHC.Show.Show OpenAPIPetstore.Model.ArrayTest +instance GHC.Classes.Eq OpenAPIPetstore.Model.ReadOnlyFirst +instance GHC.Show.Show OpenAPIPetstore.Model.ReadOnlyFirst +instance GHC.Classes.Eq OpenAPIPetstore.Model.OuterComposite +instance GHC.Show.Show OpenAPIPetstore.Model.OuterComposite +instance GHC.Classes.Eq OpenAPIPetstore.Model.NumberOnly +instance GHC.Show.Show OpenAPIPetstore.Model.NumberOnly +instance GHC.Classes.Eq OpenAPIPetstore.Model.Name +instance GHC.Show.Show OpenAPIPetstore.Model.Name +instance GHC.Classes.Eq OpenAPIPetstore.Model.ModelReturn +instance GHC.Show.Show OpenAPIPetstore.Model.ModelReturn +instance GHC.Classes.Eq OpenAPIPetstore.Model.ModelList +instance GHC.Show.Show OpenAPIPetstore.Model.ModelList +instance GHC.Classes.Eq OpenAPIPetstore.Model.Model200Response +instance GHC.Show.Show OpenAPIPetstore.Model.Model200Response +instance GHC.Classes.Eq OpenAPIPetstore.Model.MixedPropertiesAndAdditionalPropertiesClass +instance GHC.Show.Show OpenAPIPetstore.Model.MixedPropertiesAndAdditionalPropertiesClass +instance GHC.Classes.Eq OpenAPIPetstore.Model.HasOnlyReadOnly +instance GHC.Show.Show OpenAPIPetstore.Model.HasOnlyReadOnly +instance GHC.Classes.Eq OpenAPIPetstore.Model.FormatTest +instance GHC.Show.Show OpenAPIPetstore.Model.FormatTest +instance GHC.Classes.Eq OpenAPIPetstore.Model.Dog +instance GHC.Show.Show OpenAPIPetstore.Model.Dog +instance GHC.Classes.Eq OpenAPIPetstore.Model.Client +instance GHC.Show.Show OpenAPIPetstore.Model.Client +instance GHC.Classes.Eq OpenAPIPetstore.Model.ClassModel +instance GHC.Show.Show OpenAPIPetstore.Model.ClassModel +instance GHC.Classes.Eq OpenAPIPetstore.Model.Category +instance GHC.Show.Show OpenAPIPetstore.Model.Category +instance GHC.Classes.Eq OpenAPIPetstore.Model.Cat +instance GHC.Show.Show OpenAPIPetstore.Model.Cat +instance GHC.Classes.Eq OpenAPIPetstore.Model.Capitalization +instance GHC.Show.Show OpenAPIPetstore.Model.Capitalization +instance GHC.Classes.Eq OpenAPIPetstore.Model.ArrayOfNumberOnly +instance GHC.Show.Show OpenAPIPetstore.Model.ArrayOfNumberOnly +instance GHC.Classes.Eq OpenAPIPetstore.Model.ArrayOfArrayOfNumberOnly +instance GHC.Show.Show OpenAPIPetstore.Model.ArrayOfArrayOfNumberOnly +instance GHC.Classes.Eq OpenAPIPetstore.Model.ApiResponse +instance GHC.Show.Show OpenAPIPetstore.Model.ApiResponse +instance GHC.Classes.Eq OpenAPIPetstore.Model.AnimalFarm +instance GHC.Show.Show OpenAPIPetstore.Model.AnimalFarm +instance GHC.Classes.Eq OpenAPIPetstore.Model.Animal +instance GHC.Show.Show OpenAPIPetstore.Model.Animal +instance GHC.Classes.Eq OpenAPIPetstore.Model.AdditionalPropertiesClass +instance GHC.Show.Show OpenAPIPetstore.Model.AdditionalPropertiesClass +instance GHC.Show.Show OpenAPIPetstore.Model.Username +instance GHC.Classes.Eq OpenAPIPetstore.Model.Username +instance GHC.Show.Show OpenAPIPetstore.Model.Tags +instance GHC.Classes.Eq OpenAPIPetstore.Model.Tags +instance GHC.Show.Show OpenAPIPetstore.Model.StatusText +instance GHC.Classes.Eq OpenAPIPetstore.Model.StatusText +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.RequestBody +instance GHC.Show.Show OpenAPIPetstore.Model.RequestBody +instance GHC.Classes.Eq OpenAPIPetstore.Model.RequestBody +instance GHC.Show.Show OpenAPIPetstore.Model.PetId +instance GHC.Classes.Eq OpenAPIPetstore.Model.PetId +instance GHC.Show.Show OpenAPIPetstore.Model.PatternWithoutDelimiter +instance GHC.Classes.Eq OpenAPIPetstore.Model.PatternWithoutDelimiter +instance GHC.Show.Show OpenAPIPetstore.Model.Password +instance GHC.Classes.Eq OpenAPIPetstore.Model.Password +instance GHC.Show.Show OpenAPIPetstore.Model.ParamString +instance GHC.Classes.Eq OpenAPIPetstore.Model.ParamString +instance GHC.Show.Show OpenAPIPetstore.Model.ParamInteger +instance GHC.Classes.Eq OpenAPIPetstore.Model.ParamInteger +instance GHC.Show.Show OpenAPIPetstore.Model.ParamFloat +instance GHC.Classes.Eq OpenAPIPetstore.Model.ParamFloat +instance GHC.Show.Show OpenAPIPetstore.Model.ParamDouble +instance GHC.Classes.Eq OpenAPIPetstore.Model.ParamDouble +instance GHC.Show.Show OpenAPIPetstore.Model.ParamDateTime +instance GHC.Classes.Eq OpenAPIPetstore.Model.ParamDateTime +instance GHC.Show.Show OpenAPIPetstore.Model.ParamDate +instance GHC.Classes.Eq OpenAPIPetstore.Model.ParamDate +instance GHC.Show.Show OpenAPIPetstore.Model.ParamBinary +instance GHC.Classes.Eq OpenAPIPetstore.Model.ParamBinary +instance GHC.Show.Show OpenAPIPetstore.Model.Param2 +instance GHC.Classes.Eq OpenAPIPetstore.Model.Param2 +instance GHC.Show.Show OpenAPIPetstore.Model.Param +instance GHC.Classes.Eq OpenAPIPetstore.Model.Param +instance GHC.Show.Show OpenAPIPetstore.Model.OrderIdText +instance GHC.Classes.Eq OpenAPIPetstore.Model.OrderIdText +instance GHC.Show.Show OpenAPIPetstore.Model.OrderId +instance GHC.Classes.Eq OpenAPIPetstore.Model.OrderId +instance GHC.Show.Show OpenAPIPetstore.Model.Number +instance GHC.Classes.Eq OpenAPIPetstore.Model.Number +instance GHC.Show.Show OpenAPIPetstore.Model.Name2 +instance GHC.Classes.Eq OpenAPIPetstore.Model.Name2 +instance GHC.Show.Show OpenAPIPetstore.Model.Int64 +instance GHC.Classes.Eq OpenAPIPetstore.Model.Int64 +instance GHC.Show.Show OpenAPIPetstore.Model.Int32 +instance GHC.Classes.Eq OpenAPIPetstore.Model.Int32 +instance GHC.Show.Show OpenAPIPetstore.Model.File +instance GHC.Classes.Eq OpenAPIPetstore.Model.File +instance GHC.Show.Show OpenAPIPetstore.Model.Callback +instance GHC.Classes.Eq OpenAPIPetstore.Model.Callback +instance GHC.Show.Show OpenAPIPetstore.Model.Byte +instance GHC.Classes.Eq OpenAPIPetstore.Model.Byte +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.BodyText +instance GHC.Show.Show OpenAPIPetstore.Model.BodyText +instance GHC.Classes.Eq OpenAPIPetstore.Model.BodyText +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.BodyBool +instance GHC.Show.Show OpenAPIPetstore.Model.BodyBool +instance GHC.Classes.Eq OpenAPIPetstore.Model.BodyBool +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Body +instance GHC.Show.Show OpenAPIPetstore.Model.Body +instance GHC.Classes.Eq OpenAPIPetstore.Model.Body +instance GHC.Show.Show OpenAPIPetstore.Model.ApiKey +instance GHC.Classes.Eq OpenAPIPetstore.Model.ApiKey +instance GHC.Show.Show OpenAPIPetstore.Model.AdditionalMetadata +instance GHC.Classes.Eq OpenAPIPetstore.Model.AdditionalMetadata +instance OpenAPIPetstore.Core.AuthMethod OpenAPIPetstore.Model.AuthOAuthPetstoreAuth +instance OpenAPIPetstore.Core.AuthMethod OpenAPIPetstore.Model.AuthBasicHttpBasicTest +instance OpenAPIPetstore.Core.AuthMethod OpenAPIPetstore.Model.AuthApiKeyApiKeyQuery +instance OpenAPIPetstore.Core.AuthMethod OpenAPIPetstore.Model.AuthApiKeyApiKey +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.EnumTest +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.EnumTest +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.OuterEnum +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.OuterEnum +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.OuterEnum +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.OuterEnum +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.OuterEnum +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.EnumClass +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.EnumClass +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.EnumClass +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.EnumClass +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.EnumClass +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Pet +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Pet +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'Status2 +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'Status2 +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'Status2 +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'Status2 +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'Status2 +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Order +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Order +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'Status +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'Status +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'Status +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'Status +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'Status +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.EnumArrays +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.EnumArrays +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'JustSymbol +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'JustSymbol +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'JustSymbol +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'JustSymbol +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'JustSymbol +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.MapTest +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.MapTest +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'Inner +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'Inner +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'Inner +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'Inner +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'Inner +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'EnumString +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'EnumString +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'EnumString +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'EnumString +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'EnumString +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'EnumQueryInteger +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'EnumQueryInteger +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'EnumQueryInteger +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'EnumQueryInteger +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'EnumQueryInteger +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'EnumNumber +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'EnumNumber +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'EnumNumber +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'EnumNumber +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'EnumNumber +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'EnumInteger +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'EnumInteger +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'EnumInteger +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'EnumInteger +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'EnumInteger +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'EnumFormStringArray +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'EnumFormStringArray +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'EnumFormStringArray +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'EnumFormStringArray +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'EnumFormStringArray +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'EnumFormString +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'EnumFormString +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'EnumFormString +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'EnumFormString +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'EnumFormString +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.E'ArrayEnum +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.E'ArrayEnum +instance Web.Internal.HttpApiData.ToHttpApiData OpenAPIPetstore.Model.E'ArrayEnum +instance Web.Internal.HttpApiData.FromHttpApiData OpenAPIPetstore.Model.E'ArrayEnum +instance OpenAPIPetstore.MimeTypes.MimeRender OpenAPIPetstore.MimeTypes.MimeMultipartFormData OpenAPIPetstore.Model.E'ArrayEnum +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.User +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.User +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Tag +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Tag +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.SpecialModelName +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.SpecialModelName +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.ArrayTest +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.ArrayTest +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.ReadOnlyFirst +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.ReadOnlyFirst +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.OuterComposite +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.OuterComposite +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.NumberOnly +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.NumberOnly +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Name +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Name +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.ModelReturn +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.ModelReturn +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.ModelList +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.ModelList +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Model200Response +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Model200Response +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.MixedPropertiesAndAdditionalPropertiesClass +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.MixedPropertiesAndAdditionalPropertiesClass +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.HasOnlyReadOnly +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.HasOnlyReadOnly +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.FormatTest +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.FormatTest +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Dog +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Dog +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Client +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Client +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.ClassModel +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.ClassModel +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Category +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Category +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Cat +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Cat +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Capitalization +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Capitalization +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.ArrayOfNumberOnly +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.ArrayOfNumberOnly +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.ArrayOfArrayOfNumberOnly +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.ArrayOfArrayOfNumberOnly +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.ApiResponse +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.ApiResponse +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.AnimalFarm +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.AnimalFarm +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.Animal +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.Animal +instance Data.Aeson.Types.FromJSON.FromJSON OpenAPIPetstore.Model.AdditionalPropertiesClass +instance Data.Aeson.Types.ToJSON.ToJSON OpenAPIPetstore.Model.AdditionalPropertiesClass -module SwaggerPetstore.API.User +module OpenAPIPetstore.API.User -- | 
     --   POST /user
@@ -2061,31 +2036,43 @@ module SwaggerPetstore.API.User
 --   Create user
 --   
 --   This can only be done by the logged in user.
-createUser :: (Consumes CreateUser contentType, MimeRender contentType User) => ContentType contentType -> User -> SwaggerPetstoreRequest CreateUser contentType NoContent MimeNoContent
+createUser :: (Consumes CreateUser MimeJSON, MimeRender MimeJSON User) => User -> OpenAPIPetstoreRequest CreateUser MimeJSON NoContent MimeNoContent
 data CreateUser
 
 -- | Body Param User - Created user object
 
+-- | 
    +--   application/json
+--   
    
+
 -- | 
     --   POST /user/createWithArray
 --   
    
 --   
 --   Creates list of users with given input array
-createUsersWithArrayInput :: (Consumes CreateUsersWithArrayInput contentType, MimeRender contentType User2) => ContentType contentType -> User2 -> SwaggerPetstoreRequest CreateUsersWithArrayInput contentType NoContent MimeNoContent
+createUsersWithArrayInput :: (Consumes CreateUsersWithArrayInput MimeJSON, MimeRender MimeJSON User2) => User2 -> OpenAPIPetstoreRequest CreateUsersWithArrayInput MimeJSON NoContent MimeNoContent
 data CreateUsersWithArrayInput
 
 -- | Body Param User - List of user object
 
+-- | 
    +--   application/json
+--   
    
+
 -- | 
     --   POST /user/createWithList
 --   
    
 --   
 --   Creates list of users with given input array
-createUsersWithListInput :: (Consumes CreateUsersWithListInput contentType, MimeRender contentType User2) => ContentType contentType -> User2 -> SwaggerPetstoreRequest CreateUsersWithListInput contentType NoContent MimeNoContent
+createUsersWithListInput :: (Consumes CreateUsersWithListInput MimeJSON, MimeRender MimeJSON User2) => User2 -> OpenAPIPetstoreRequest CreateUsersWithListInput MimeJSON NoContent MimeNoContent
 data CreateUsersWithListInput
 
 -- | Body Param User - List of user object
 
+-- | 
    +--   application/json
+--   
    
+
 -- | 
     --   DELETE /user/{username}
 --   
    
@@ -2093,7 +2080,7 @@ data CreateUsersWithListInput
 --   Delete user
 --   
 --   This can only be done by the logged in user.
-deleteUser :: Username -> SwaggerPetstoreRequest DeleteUser MimeNoContent NoContent MimeNoContent
+deleteUser :: Username -> OpenAPIPetstoreRequest DeleteUser MimeNoContent NoContent MimeNoContent
 data DeleteUser
 
 -- | 
    @@ -2101,7 +2088,7 @@ data DeleteUser
 --   
    
 --   
 --   Get user by user name
-getUserByName :: Accept accept -> Username -> SwaggerPetstoreRequest GetUserByName MimeNoContent User accept
+getUserByName :: Accept accept -> Username -> OpenAPIPetstoreRequest GetUserByName MimeNoContent User accept
 data GetUserByName
 
 -- | 
    @@ -2117,7 +2104,7 @@ data GetUserByName
 --   
    
 --   
 --   Logs user into the system
-loginUser :: Accept accept -> Username -> Password -> SwaggerPetstoreRequest LoginUser MimeNoContent Text accept
+loginUser :: Accept accept -> Username -> Password -> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
 data LoginUser
 
 -- | 
    @@ -2133,7 +2120,7 @@ data LoginUser
 --   
    
 --   
 --   Logs out current logged in user session
-logoutUser :: SwaggerPetstoreRequest LogoutUser MimeNoContent NoContent MimeNoContent
+logoutUser :: OpenAPIPetstoreRequest LogoutUser MimeNoContent NoContent MimeNoContent
 data LogoutUser
 
 -- | 
    @@ -2143,27 +2130,35 @@ data LogoutUser
 --   Updated user
 --   
 --   This can only be done by the logged in user.
-updateUser :: (Consumes UpdateUser contentType, MimeRender contentType User) => ContentType contentType -> User -> Username -> SwaggerPetstoreRequest UpdateUser contentType NoContent MimeNoContent
+updateUser :: (Consumes UpdateUser MimeJSON, MimeRender MimeJSON User) => User -> Username -> OpenAPIPetstoreRequest UpdateUser MimeJSON NoContent MimeNoContent
 data UpdateUser
 
 -- | Body Param User - Updated user object
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.User.UpdateUser SwaggerPetstore.Model.User
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.User.UpdateUser SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.User.LogoutUser SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.User.LoginUser SwaggerPetstore.MimeTypes.MimeXML
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.User.LoginUser SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.User.GetUserByName SwaggerPetstore.MimeTypes.MimeXML
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.User.GetUserByName SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.User.DeleteUser SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.User.CreateUsersWithListInput SwaggerPetstore.Model.User2
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.User.CreateUsersWithListInput SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.User.CreateUsersWithArrayInput SwaggerPetstore.Model.User2
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.User.CreateUsersWithArrayInput SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.User.CreateUser SwaggerPetstore.Model.User
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.User.CreateUser SwaggerPetstore.MimeTypes.MimeNoContent
+
+-- | 
    +--   application/json
+--   
    
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.User.UpdateUser OpenAPIPetstore.Model.User
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.User.UpdateUser OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.User.UpdateUser OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.User.LogoutUser OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.User.LoginUser OpenAPIPetstore.MimeTypes.MimeXML
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.User.LoginUser OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.User.GetUserByName OpenAPIPetstore.MimeTypes.MimeXML
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.User.GetUserByName OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.User.DeleteUser OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.User.CreateUsersWithListInput OpenAPIPetstore.Model.User2
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.User.CreateUsersWithListInput OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.User.CreateUsersWithListInput OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.User.CreateUsersWithArrayInput OpenAPIPetstore.Model.User2
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.User.CreateUsersWithArrayInput OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.User.CreateUsersWithArrayInput OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.User.CreateUser OpenAPIPetstore.Model.User
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.User.CreateUser OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.User.CreateUser OpenAPIPetstore.MimeTypes.MimeNoContent
 
 
-module SwaggerPetstore.API.Store
+module OpenAPIPetstore.API.Store
 
 -- | 
     --   DELETE /store/order/{order_id}
@@ -2173,7 +2168,7 @@ module SwaggerPetstore.API.Store
 --   
 --   For valid response try integer IDs with value < 1000. Anything
 --   above 1000 or nonintegers will generate API errors
-deleteOrder :: OrderIdText -> SwaggerPetstoreRequest DeleteOrder MimeNoContent NoContent MimeNoContent
+deleteOrder :: OrderIdText -> OpenAPIPetstoreRequest DeleteOrder MimeNoContent NoContent MimeNoContent
 data DeleteOrder
 
 -- | 
    @@ -2185,7 +2180,7 @@ data DeleteOrder
 --   Returns a map of status codes to quantities
 --   
 --   AuthMethod: AuthApiKeyApiKey
-getInventory :: SwaggerPetstoreRequest GetInventory MimeNoContent ((Map String Int)) MimeJSON
+getInventory :: OpenAPIPetstoreRequest GetInventory MimeNoContent ((Map String Int)) MimeJSON
 data GetInventory
 
 -- | 
    @@ -2200,7 +2195,7 @@ data GetInventory
 --   
 --   For valid response try integer IDs with value 5 or 10. Other
 --   values will generated exceptions
-getOrderById :: Accept accept -> OrderId -> SwaggerPetstoreRequest GetOrderById MimeNoContent Order accept
+getOrderById :: Accept accept -> OrderId -> OpenAPIPetstoreRequest GetOrderById MimeNoContent Order accept
 data GetOrderById
 
 -- | 
    @@ -2216,11 +2211,15 @@ data GetOrderById
 --   
    
 --   
 --   Place an order for a pet
-placeOrder :: (Consumes PlaceOrder contentType, MimeRender contentType Order) => ContentType contentType -> Accept accept -> Order -> SwaggerPetstoreRequest PlaceOrder contentType Order accept
+placeOrder :: (Consumes PlaceOrder MimeJSON, MimeRender MimeJSON Order) => Accept accept -> Order -> OpenAPIPetstoreRequest PlaceOrder MimeJSON Order accept
 data PlaceOrder
 
 -- | Body Param Order - order placed for purchasing the pet
 
+-- | 
    +--   application/json
+--   
    
+
 -- | 
     --   application/xml
 --   
    
@@ -2228,16 +2227,17 @@ data PlaceOrder
 -- | 
     --   application/json
 --   
    
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.Store.PlaceOrder SwaggerPetstore.Model.Order
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Store.PlaceOrder SwaggerPetstore.MimeTypes.MimeXML
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Store.PlaceOrder SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Store.GetOrderById SwaggerPetstore.MimeTypes.MimeXML
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Store.GetOrderById SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Store.GetInventory SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Store.DeleteOrder SwaggerPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.Store.PlaceOrder OpenAPIPetstore.Model.Order
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Store.PlaceOrder OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Store.PlaceOrder OpenAPIPetstore.MimeTypes.MimeXML
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Store.PlaceOrder OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Store.GetOrderById OpenAPIPetstore.MimeTypes.MimeXML
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Store.GetOrderById OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Store.GetInventory OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Store.DeleteOrder OpenAPIPetstore.MimeTypes.MimeNoContent
 
 
-module SwaggerPetstore.API.Pet
+module OpenAPIPetstore.API.Pet
 
 -- | 
     --   POST /pet
@@ -2246,18 +2246,18 @@ module SwaggerPetstore.API.Pet
 --   Add a new pet to the store
 --   
 --   AuthMethod: AuthOAuthPetstoreAuth
-addPet :: (Consumes AddPet contentType, MimeRender contentType Pet) => ContentType contentType -> Pet -> SwaggerPetstoreRequest AddPet contentType NoContent MimeNoContent
+addPet :: (Consumes AddPet contentType, MimeRender contentType Pet) => ContentType contentType -> Pet -> OpenAPIPetstoreRequest AddPet contentType NoContent MimeNoContent
 data AddPet
 
 -- | Body Param Pet - Pet object that needs to be added to
 --   the store
 
 -- | 
    ---   application/json
+--   application/xml
 --   
    
 
 -- | 
    ---   application/xml
+--   application/json
 --   
    
 
 -- | 
    @@ -2267,7 +2267,7 @@ data AddPet
 --   Deletes a pet
 --   
 --   AuthMethod: AuthOAuthPetstoreAuth
-deletePet :: PetId -> SwaggerPetstoreRequest DeletePet MimeNoContent NoContent MimeNoContent
+deletePet :: PetId -> OpenAPIPetstoreRequest DeletePet MimeNoContent NoContent MimeNoContent
 data DeletePet
 
 -- | 
    @@ -2279,7 +2279,7 @@ data DeletePet
 --   Multiple status values can be provided with comma separated strings
 --   
 --   AuthMethod: AuthOAuthPetstoreAuth
-findPetsByStatus :: Accept accept -> Status -> SwaggerPetstoreRequest FindPetsByStatus MimeNoContent [Pet] accept
+findPetsByStatus :: Accept accept -> Status -> OpenAPIPetstoreRequest FindPetsByStatus MimeNoContent [Pet] accept
 data FindPetsByStatus
 
 -- | 
    @@ -2302,7 +2302,7 @@ data FindPetsByStatus
 --   AuthMethod: AuthOAuthPetstoreAuth
 
 -- | Deprecated: 
-findPetsByTags :: Accept accept -> Tags -> SwaggerPetstoreRequest FindPetsByTags MimeNoContent [Pet] accept
+findPetsByTags :: Accept accept -> Tags -> OpenAPIPetstoreRequest FindPetsByTags MimeNoContent [Pet] accept
 data FindPetsByTags
 
 -- | 
    @@ -2322,7 +2322,7 @@ data FindPetsByTags
 --   Returns a single pet
 --   
 --   AuthMethod: AuthApiKeyApiKey
-getPetById :: Accept accept -> PetId -> SwaggerPetstoreRequest GetPetById MimeNoContent Pet accept
+getPetById :: Accept accept -> PetId -> OpenAPIPetstoreRequest GetPetById MimeNoContent Pet accept
 data GetPetById
 
 -- | 
    @@ -2340,18 +2340,18 @@ data GetPetById
 --   Update an existing pet
 --   
 --   AuthMethod: AuthOAuthPetstoreAuth
-updatePet :: (Consumes UpdatePet contentType, MimeRender contentType Pet) => ContentType contentType -> Pet -> SwaggerPetstoreRequest UpdatePet contentType NoContent MimeNoContent
+updatePet :: (Consumes UpdatePet contentType, MimeRender contentType Pet) => ContentType contentType -> Pet -> OpenAPIPetstoreRequest UpdatePet contentType NoContent MimeNoContent
 data UpdatePet
 
 -- | Body Param Pet - Pet object that needs to be added to
 --   the store
 
 -- | 
    ---   application/json
+--   application/xml
 --   
    
 
 -- | 
    ---   application/xml
+--   application/json
 --   
    
 
 -- | 
    @@ -2361,7 +2361,7 @@ data UpdatePet
 --   Updates a pet in the store with form data
 --   
 --   AuthMethod: AuthOAuthPetstoreAuth
-updatePetWithForm :: (Consumes UpdatePetWithForm MimeFormUrlEncoded) => PetId -> SwaggerPetstoreRequest UpdatePetWithForm MimeFormUrlEncoded NoContent MimeNoContent
+updatePetWithForm :: (Consumes UpdatePetWithForm MimeFormUrlEncoded) => PetId -> OpenAPIPetstoreRequest UpdatePetWithForm MimeFormUrlEncoded NoContent MimeNoContent
 data UpdatePetWithForm
 
 -- | Optional Param "name" - Updated name of the pet
@@ -2379,7 +2379,7 @@ data UpdatePetWithForm
 --   uploads an image
 --   
 --   AuthMethod: AuthOAuthPetstoreAuth
-uploadFile :: (Consumes UploadFile MimeMultipartFormData) => PetId -> SwaggerPetstoreRequest UploadFile MimeMultipartFormData ApiResponse MimeJSON
+uploadFile :: (Consumes UploadFile MimeMultipartFormData) => PetId -> OpenAPIPetstoreRequest UploadFile MimeMultipartFormData ApiResponse MimeJSON
 data UploadFile
 
 -- | Optional Param "additionalMetadata" - Additional data to pass
@@ -2394,33 +2394,33 @@ data UploadFile
 -- | 
     --   application/json
 --   
    
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Pet.UploadFile SwaggerPetstore.Model.AdditionalMetadata
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Pet.UploadFile SwaggerPetstore.Model.File
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Pet.UploadFile SwaggerPetstore.MimeTypes.MimeMultipartFormData
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.UploadFile SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Pet.UpdatePetWithForm SwaggerPetstore.Model.Name2
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Pet.UpdatePetWithForm SwaggerPetstore.Model.StatusText
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Pet.UpdatePetWithForm SwaggerPetstore.MimeTypes.MimeFormUrlEncoded
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.UpdatePetWithForm SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.Pet.UpdatePet SwaggerPetstore.Model.Pet
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Pet.UpdatePet SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Pet.UpdatePet SwaggerPetstore.MimeTypes.MimeXML
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.UpdatePet SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.GetPetById SwaggerPetstore.MimeTypes.MimeXML
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.GetPetById SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.FindPetsByTags SwaggerPetstore.MimeTypes.MimeXML
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.FindPetsByTags SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.FindPetsByStatus SwaggerPetstore.MimeTypes.MimeXML
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.FindPetsByStatus SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Pet.DeletePet SwaggerPetstore.Model.ApiKey
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.DeletePet SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.Pet.AddPet SwaggerPetstore.Model.Pet
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Pet.AddPet SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Pet.AddPet SwaggerPetstore.MimeTypes.MimeXML
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Pet.AddPet SwaggerPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Pet.UploadFile OpenAPIPetstore.Model.AdditionalMetadata
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Pet.UploadFile OpenAPIPetstore.Model.File
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Pet.UploadFile OpenAPIPetstore.MimeTypes.MimeMultipartFormData
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.UploadFile OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Pet.UpdatePetWithForm OpenAPIPetstore.Model.Name2
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Pet.UpdatePetWithForm OpenAPIPetstore.Model.StatusText
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Pet.UpdatePetWithForm OpenAPIPetstore.MimeTypes.MimeFormUrlEncoded
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.UpdatePetWithForm OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.Pet.UpdatePet OpenAPIPetstore.Model.Pet
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Pet.UpdatePet OpenAPIPetstore.MimeTypes.MimeXML
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Pet.UpdatePet OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.UpdatePet OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.GetPetById OpenAPIPetstore.MimeTypes.MimeXML
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.GetPetById OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.FindPetsByTags OpenAPIPetstore.MimeTypes.MimeXML
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.FindPetsByTags OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.FindPetsByStatus OpenAPIPetstore.MimeTypes.MimeXML
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.FindPetsByStatus OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Pet.DeletePet OpenAPIPetstore.Model.ApiKey
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.DeletePet OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.Pet.AddPet OpenAPIPetstore.Model.Pet
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Pet.AddPet OpenAPIPetstore.MimeTypes.MimeXML
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Pet.AddPet OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Pet.AddPet OpenAPIPetstore.MimeTypes.MimeNoContent
 
 
-module SwaggerPetstore.API.FakeClassnameTags123
+module OpenAPIPetstore.API.FakeClassnameTags123
 
 -- | 
     --   PATCH /fake_classname_test
@@ -2431,7 +2431,7 @@ module SwaggerPetstore.API.FakeClassnameTags123
 --   To test class name in snake case
 --   
 --   AuthMethod: AuthApiKeyApiKeyQuery
-testClassname :: (Consumes TestClassname MimeJSON, MimeRender MimeJSON Client) => Client -> SwaggerPetstoreRequest TestClassname MimeJSON Client MimeJSON
+testClassname :: (Consumes TestClassname MimeJSON, MimeRender MimeJSON Client) => Client -> OpenAPIPetstoreRequest TestClassname MimeJSON Client MimeJSON
 data TestClassname
 
 -- | Body Param Client - client model
@@ -2443,22 +2443,26 @@ data TestClassname
 -- | 
     --   application/json
 --   
    
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.FakeClassnameTags123.TestClassname SwaggerPetstore.Model.Client
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.FakeClassnameTags123.TestClassname SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.FakeClassnameTags123.TestClassname SwaggerPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.FakeClassnameTags123.TestClassname OpenAPIPetstore.Model.Client
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.FakeClassnameTags123.TestClassname OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.FakeClassnameTags123.TestClassname OpenAPIPetstore.MimeTypes.MimeJSON
 
 
-module SwaggerPetstore.API.Fake
+module OpenAPIPetstore.API.Fake
 
 -- | 
     --   POST /fake/outer/boolean
 --   
    
 --   
 --   Test serialization of outer boolean types
-fakeOuterBooleanSerialize :: (Consumes FakeOuterBooleanSerialize contentType) => ContentType contentType -> Accept accept -> SwaggerPetstoreRequest FakeOuterBooleanSerialize contentType OuterBoolean accept
+fakeOuterBooleanSerialize :: (Consumes FakeOuterBooleanSerialize MimeJSON) => Accept accept -> OpenAPIPetstoreRequest FakeOuterBooleanSerialize MimeJSON Bool accept
 data FakeOuterBooleanSerialize
 
--- | Body Param "boolean_post_body" - Input boolean as post body
+-- | Body Param "body" - Input boolean as post body
+
+-- | 
    +--   application/json
+--   
    
 
 -- | 
     --   */*
@@ -2469,11 +2473,15 @@ data FakeOuterBooleanSerialize
 --   
    
 --   
 --   Test serialization of object with outer number type
-fakeOuterCompositeSerialize :: (Consumes FakeOuterCompositeSerialize contentType) => ContentType contentType -> Accept accept -> SwaggerPetstoreRequest FakeOuterCompositeSerialize contentType OuterComposite accept
+fakeOuterCompositeSerialize :: (Consumes FakeOuterCompositeSerialize MimeJSON) => Accept accept -> OpenAPIPetstoreRequest FakeOuterCompositeSerialize MimeJSON OuterComposite accept
 data FakeOuterCompositeSerialize
 
 -- | Body Param OuterComposite - Input composite as post body
 
+-- | 
    +--   application/json
+--   
    
+
 -- | 
     --   */*
 --   
    
@@ -2483,11 +2491,15 @@ data FakeOuterCompositeSerialize
 --   
    
 --   
 --   Test serialization of outer number types
-fakeOuterNumberSerialize :: (Consumes FakeOuterNumberSerialize contentType) => ContentType contentType -> Accept accept -> SwaggerPetstoreRequest FakeOuterNumberSerialize contentType OuterNumber accept
+fakeOuterNumberSerialize :: (Consumes FakeOuterNumberSerialize MimeJSON) => Accept accept -> OpenAPIPetstoreRequest FakeOuterNumberSerialize MimeJSON Double accept
 data FakeOuterNumberSerialize
 
 -- | Body Param "body" - Input number as post body
 
+-- | 
    +--   application/json
+--   
    
+
 -- | 
     --   */*
 --   
    
@@ -2497,25 +2509,19 @@ data FakeOuterNumberSerialize
 --   
    
 --   
 --   Test serialization of outer string types
-fakeOuterStringSerialize :: (Consumes FakeOuterStringSerialize contentType) => ContentType contentType -> Accept accept -> SwaggerPetstoreRequest FakeOuterStringSerialize contentType OuterString accept
+fakeOuterStringSerialize :: (Consumes FakeOuterStringSerialize MimeJSON) => Accept accept -> OpenAPIPetstoreRequest FakeOuterStringSerialize MimeJSON Text accept
 data FakeOuterStringSerialize
 
 -- | Body Param "body" - Input string as post body
 
--- | 
    ---   */*
---   
    
-
--- | 
    ---   PUT /fake/body-with-query-params
---   
    
-testBodyWithQueryParams :: (Consumes TestBodyWithQueryParams MimeJSON, MimeRender MimeJSON User) => User -> Query -> SwaggerPetstoreRequest TestBodyWithQueryParams MimeJSON NoContent MimeNoContent
-data TestBodyWithQueryParams
-
 -- | 
     --   application/json
 --   
    
 
+-- | 
    +--   */*
+--   
    
+
 -- | 
     --   PATCH /fake
 --   
    
@@ -2523,7 +2529,7 @@ data TestBodyWithQueryParams
 --   To test "client" model
 --   
 --   To test "client" model
-testClientModel :: (Consumes TestClientModel MimeJSON, MimeRender MimeJSON Client) => Client -> SwaggerPetstoreRequest TestClientModel MimeJSON Client MimeJSON
+testClientModel :: (Consumes TestClientModel MimeJSON, MimeRender MimeJSON Client) => Client -> OpenAPIPetstoreRequest TestClientModel MimeJSON Client MimeJSON
 data TestClientModel
 
 -- | Body Param Client - client model
@@ -2545,7 +2551,7 @@ data TestClientModel
 --   Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트
 --   
 --   AuthMethod: AuthBasicHttpBasicTest
-testEndpointParameters :: (Consumes TestEndpointParameters MimeFormUrlEncoded) => Number -> ParamDouble -> PatternWithoutDelimiter -> Byte -> SwaggerPetstoreRequest TestEndpointParameters MimeFormUrlEncoded NoContent MimeNoContent
+testEndpointParameters :: (Consumes TestEndpointParameters MimeFormUrlEncoded) => Number -> ParamDouble -> PatternWithoutDelimiter -> Byte -> OpenAPIPetstoreRequest TestEndpointParameters MimeFormUrlEncoded NoContent MimeNoContent
 data TestEndpointParameters
 
 -- | Optional Param "integer" - None
@@ -2579,7 +2585,7 @@ data TestEndpointParameters
 --   To test enum parameters
 --   
 --   To test enum parameters
-testEnumParameters :: (Consumes TestEnumParameters MimeFormUrlEncoded) => SwaggerPetstoreRequest TestEnumParameters MimeFormUrlEncoded NoContent MimeNoContent
+testEnumParameters :: (Consumes TestEnumParameters MimeFormUrlEncoded) => OpenAPIPetstoreRequest TestEnumParameters MimeFormUrlEncoded NoContent MimeNoContent
 data TestEnumParameters
 
 -- | Optional Param "enum_form_string_array" - Form parameter enum
@@ -2615,7 +2621,7 @@ data TestEnumParameters
 --   
    
 --   
 --   test inline additionalProperties
-testInlineAdditionalProperties :: (Consumes TestInlineAdditionalProperties MimeJSON, MimeRender MimeJSON RequestBody) => RequestBody -> SwaggerPetstoreRequest TestInlineAdditionalProperties MimeJSON NoContent MimeNoContent
+testInlineAdditionalProperties :: (Consumes TestInlineAdditionalProperties MimeJSON, MimeRender MimeJSON RequestBody) => RequestBody -> OpenAPIPetstoreRequest TestInlineAdditionalProperties MimeJSON NoContent MimeNoContent
 data TestInlineAdditionalProperties
 
 -- | Body Param "request_body" - request body
@@ -2629,56 +2635,57 @@ data TestInlineAdditionalProperties
 --   
    
 --   
 --   test json serialization of form data
-testJsonFormData :: (Consumes TestJsonFormData MimeFormUrlEncoded) => Param -> Param2 -> SwaggerPetstoreRequest TestJsonFormData MimeFormUrlEncoded NoContent MimeNoContent
+testJsonFormData :: (Consumes TestJsonFormData MimeFormUrlEncoded) => Param -> Param2 -> OpenAPIPetstoreRequest TestJsonFormData MimeFormUrlEncoded NoContent MimeNoContent
 data TestJsonFormData
 
 -- | 
     --   application/x-www-form-urlencoded
 --   
    
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Fake.TestJsonFormData SwaggerPetstore.MimeTypes.MimeFormUrlEncoded
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Fake.TestJsonFormData SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.Fake.TestInlineAdditionalProperties SwaggerPetstore.Model.RequestBody
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Fake.TestInlineAdditionalProperties SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Fake.TestInlineAdditionalProperties SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEnumParameters SwaggerPetstore.Model.EnumFormStringArray
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEnumParameters SwaggerPetstore.Model.EnumFormString
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEnumParameters SwaggerPetstore.Model.EnumHeaderStringArray
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEnumParameters SwaggerPetstore.Model.EnumHeaderString
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEnumParameters SwaggerPetstore.Model.EnumQueryStringArray
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEnumParameters SwaggerPetstore.Model.EnumQueryString
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEnumParameters SwaggerPetstore.Model.EnumQueryInteger
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEnumParameters SwaggerPetstore.Model.EnumQueryDouble
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Fake.TestEnumParameters SwaggerPetstore.MimeTypes.MimeFormUrlEncoded
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Fake.TestEnumParameters SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.Model.ParamInteger
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.Model.Int32
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.Model.Int64
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.Model.ParamFloat
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.Model.ParamString
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.Model.ParamBinary
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.Model.ParamDate
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.Model.ParamDateTime
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.Model.Password
-instance SwaggerPetstore.Core.HasOptionalParam SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.Model.Callback
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.MimeTypes.MimeFormUrlEncoded
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Fake.TestEndpointParameters SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.Fake.TestClientModel SwaggerPetstore.Model.Client
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Fake.TestClientModel SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Fake.TestClientModel SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.Fake.TestBodyWithQueryParams SwaggerPetstore.Model.User
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.Fake.TestBodyWithQueryParams SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Fake.TestBodyWithQueryParams SwaggerPetstore.MimeTypes.MimeNoContent
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.Fake.FakeOuterStringSerialize SwaggerPetstore.Model.BodyText
-instance SwaggerPetstore.MimeTypes.MimeType mtype => SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Fake.FakeOuterStringSerialize mtype
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.Fake.FakeOuterNumberSerialize SwaggerPetstore.Model.Body
-instance SwaggerPetstore.MimeTypes.MimeType mtype => SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Fake.FakeOuterNumberSerialize mtype
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.Fake.FakeOuterCompositeSerialize SwaggerPetstore.Model.OuterComposite
-instance SwaggerPetstore.MimeTypes.MimeType mtype => SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Fake.FakeOuterCompositeSerialize mtype
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.Fake.FakeOuterBooleanSerialize SwaggerPetstore.Model.BooleanPostBody
-instance SwaggerPetstore.MimeTypes.MimeType mtype => SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.Fake.FakeOuterBooleanSerialize mtype
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Fake.TestJsonFormData OpenAPIPetstore.MimeTypes.MimeFormUrlEncoded
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Fake.TestJsonFormData OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.Fake.TestInlineAdditionalProperties OpenAPIPetstore.Model.RequestBody
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Fake.TestInlineAdditionalProperties OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Fake.TestInlineAdditionalProperties OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEnumParameters OpenAPIPetstore.Model.EnumFormStringArray
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEnumParameters OpenAPIPetstore.Model.EnumFormString
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEnumParameters OpenAPIPetstore.Model.EnumHeaderStringArray
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEnumParameters OpenAPIPetstore.Model.EnumHeaderString
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEnumParameters OpenAPIPetstore.Model.EnumQueryStringArray
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEnumParameters OpenAPIPetstore.Model.EnumQueryString
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEnumParameters OpenAPIPetstore.Model.EnumQueryInteger
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEnumParameters OpenAPIPetstore.Model.EnumQueryDouble
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Fake.TestEnumParameters OpenAPIPetstore.MimeTypes.MimeFormUrlEncoded
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Fake.TestEnumParameters OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.Model.ParamInteger
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.Model.Int32
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.Model.Int64
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.Model.ParamFloat
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.Model.ParamString
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.Model.ParamBinary
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.Model.ParamDate
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.Model.ParamDateTime
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.Model.Password
+instance OpenAPIPetstore.Core.HasOptionalParam OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.Model.Callback
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.MimeTypes.MimeFormUrlEncoded
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Fake.TestEndpointParameters OpenAPIPetstore.MimeTypes.MimeNoContent
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.Fake.TestClientModel OpenAPIPetstore.Model.Client
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Fake.TestClientModel OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Fake.TestClientModel OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.Fake.FakeOuterStringSerialize OpenAPIPetstore.Model.BodyText
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Fake.FakeOuterStringSerialize OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.MimeType mtype => OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Fake.FakeOuterStringSerialize mtype
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.Fake.FakeOuterNumberSerialize OpenAPIPetstore.Model.Body
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Fake.FakeOuterNumberSerialize OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.MimeType mtype => OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Fake.FakeOuterNumberSerialize mtype
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.Fake.FakeOuterCompositeSerialize OpenAPIPetstore.Model.OuterComposite
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Fake.FakeOuterCompositeSerialize OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.MimeType mtype => OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Fake.FakeOuterCompositeSerialize mtype
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.Fake.FakeOuterBooleanSerialize OpenAPIPetstore.Model.BodyBool
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.Fake.FakeOuterBooleanSerialize OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.MimeType mtype => OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.Fake.FakeOuterBooleanSerialize mtype
 
 
-module SwaggerPetstore.API.AnotherFake
+module OpenAPIPetstore.API.AnotherFake
 
 -- | 
     --   PATCH /another-fake/dummy
@@ -2687,7 +2694,7 @@ module SwaggerPetstore.API.AnotherFake
 --   To test special tags
 --   
 --   To test special tags
-testSpecialTags :: (Consumes TestSpecialTags MimeJSON, MimeRender MimeJSON Client) => Client -> SwaggerPetstoreRequest TestSpecialTags MimeJSON Client MimeJSON
+testSpecialTags :: (Consumes TestSpecialTags MimeJSON, MimeRender MimeJSON Client) => Client -> OpenAPIPetstoreRequest TestSpecialTags MimeJSON Client MimeJSON
 data TestSpecialTags
 
 -- | Body Param Client - client model
@@ -2699,15 +2706,15 @@ data TestSpecialTags
 -- | 
     --   application/json
 --   
    
-instance SwaggerPetstore.Core.HasBodyParam SwaggerPetstore.API.AnotherFake.TestSpecialTags SwaggerPetstore.Model.Client
-instance SwaggerPetstore.MimeTypes.Consumes SwaggerPetstore.API.AnotherFake.TestSpecialTags SwaggerPetstore.MimeTypes.MimeJSON
-instance SwaggerPetstore.MimeTypes.Produces SwaggerPetstore.API.AnotherFake.TestSpecialTags SwaggerPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.Core.HasBodyParam OpenAPIPetstore.API.AnotherFake.TestSpecialTags OpenAPIPetstore.Model.Client
+instance OpenAPIPetstore.MimeTypes.Consumes OpenAPIPetstore.API.AnotherFake.TestSpecialTags OpenAPIPetstore.MimeTypes.MimeJSON
+instance OpenAPIPetstore.MimeTypes.Produces OpenAPIPetstore.API.AnotherFake.TestSpecialTags OpenAPIPetstore.MimeTypes.MimeJSON
 
 
-module SwaggerPetstore.API
+module OpenAPIPetstore.API
 
 
-module SwaggerPetstore.ModelLens
+module OpenAPIPetstore.ModelLens
 
 -- | additionalPropertiesClassMapProperty Lens
 additionalPropertiesClassMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map String Text))
@@ -2880,8 +2887,8 @@ model200ResponseNameL :: Lens_' Model200Response (Maybe Int)
 -- | model200ResponseClass Lens
 model200ResponseClassL :: Lens_' Model200Response (Maybe Text)
 
--- | modelList123List Lens
-modelList123ListL :: Lens_' ModelList (Maybe Text)
+-- | modelList123list Lens
+modelList123listL :: Lens_' ModelList (Maybe Text)
 
 -- | modelReturnReturn Lens
 modelReturnReturnL :: Lens_' ModelReturn (Maybe Int)
@@ -2895,8 +2902,8 @@ nameSnakeCaseL :: Lens_' Name (Maybe Int)
 -- | nameProperty Lens
 namePropertyL :: Lens_' Name (Maybe Text)
 
--- | name123Number Lens
-name123NumberL :: Lens_' Name (Maybe Int)
+-- | name123number Lens
+name123numberL :: Lens_' Name (Maybe Int)
 
 -- | numberOnlyJustNumber Lens
 numberOnlyJustNumberL :: Lens_' NumberOnly (Maybe Double)
@@ -2920,13 +2927,13 @@ orderStatusL :: Lens_' Order (Maybe E'Status)
 orderCompleteL :: Lens_' Order (Maybe Bool)
 
 -- | outerCompositeMyNumber Lens
-outerCompositeMyNumberL :: Lens_' OuterComposite (Maybe OuterNumber)
+outerCompositeMyNumberL :: Lens_' OuterComposite (Maybe Double)
 
 -- | outerCompositeMyString Lens
-outerCompositeMyStringL :: Lens_' OuterComposite (Maybe OuterString)
+outerCompositeMyStringL :: Lens_' OuterComposite (Maybe Text)
 
 -- | outerCompositeMyBoolean Lens
-outerCompositeMyBooleanL :: Lens_' OuterComposite (Maybe OuterBoolean)
+outerCompositeMyBooleanL :: Lens_' OuterComposite (Maybe Bool)
 
 -- | petId Lens
 petIdL :: Lens_' Pet (Maybe Integer)
@@ -2986,4 +2993,4 @@ userPhoneL :: Lens_' User (Maybe Text)
 userUserStatusL :: Lens_' User (Maybe Int)
 
 
-module SwaggerPetstore
+module OpenAPIPetstore
diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.AnotherFake.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.AnotherFake.html
similarity index 76%
rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.AnotherFake.html
rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.AnotherFake.html
index 93b11c3df4b..f8cc093fada 100644
--- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.AnotherFake.html
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.AnotherFake.html
@@ -1,88 +1,87 @@
 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.API.AnotherFake
+
+{-|
+Module : OpenAPIPetstore.API.AnotherFake
 -}
-
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE MonoLocalBinds #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
-
-module SwaggerPetstore.API.AnotherFake where
-
-import SwaggerPetstore.Core
-import SwaggerPetstore.MimeTypes
-import SwaggerPetstore.Model as M
-
-import qualified Data.Aeson as A
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
-import qualified Data.Foldable as P
-import qualified Data.Map as Map
-import qualified Data.Maybe as P
-import qualified Data.Proxy as P (Proxy(..))
-import qualified Data.Set as Set
-import qualified Data.String as P
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as T
-import qualified Data.Text.Lazy as TL
-import qualified Data.Text.Lazy.Encoding as TL
-import qualified Data.Time as TI
-import qualified Network.HTTP.Client.MultipartFormData as NH
-import qualified Network.HTTP.Media as ME
-import qualified Network.HTTP.Types as NH
-import qualified Web.FormUrlEncoded as WH
-import qualified Web.HttpApiData as WH
-
-import Data.Text (Text)
-import GHC.Base ((<|>))
-
-import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
-import qualified Prelude as P
-
--- * Operations
+
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE MonoLocalBinds #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module OpenAPIPetstore.API.AnotherFake where
+
+import OpenAPIPetstore.Core
+import OpenAPIPetstore.MimeTypes
+import OpenAPIPetstore.Model as M
+
+import qualified Data.Aeson as A
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
+import qualified Data.Foldable as P
+import qualified Data.Map as Map
+import qualified Data.Maybe as P
+import qualified Data.Proxy as P (Proxy(..))
+import qualified Data.Set as Set
+import qualified Data.String as P
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import qualified Data.Text.Lazy as TL
+import qualified Data.Text.Lazy.Encoding as TL
+import qualified Data.Time as TI
+import qualified Network.HTTP.Client.MultipartFormData as NH
+import qualified Network.HTTP.Media as ME
+import qualified Network.HTTP.Types as NH
+import qualified Web.FormUrlEncoded as WH
+import qualified Web.HttpApiData as WH
+
+import Data.Text (Text)
+import GHC.Base ((<|>))
+
+import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
+import qualified Prelude as P
+
+-- * Operations
+
 
-
--- ** AnotherFake
-
--- *** testSpecialTags
-
--- | @PATCH \/another-fake\/dummy@
--- 
--- To test special tags
--- 
--- To test special tags
--- 
-testSpecialTags 
-  :: (Consumes TestSpecialTags MimeJSON, MimeRender MimeJSON Client)
-  => Client -- ^ "client" -  client model
-  -> SwaggerPetstoreRequest TestSpecialTags MimeJSON Client MimeJSON
-testSpecialTags client =
-  _mkRequest "PATCH" ["/another-fake/dummy"]
-    `setBodyParam` client
-
-data TestSpecialTags 
-
--- | /Body Param/ "Client" - client model
-instance HasBodyParam TestSpecialTags Client 
-
--- | @application/json@
-instance Consumes TestSpecialTags MimeJSON
-
--- | @application/json@
-instance Produces TestSpecialTags MimeJSON
-
-
    
\ No newline at end of file
+-- ** AnotherFake
+
+-- *** testSpecialTags
+
+-- | @PATCH \/another-fake\/dummy@
+-- 
+-- To test special tags
+-- 
+-- To test special tags
+-- 
+testSpecialTags 
+  :: (Consumes TestSpecialTags MimeJSON, MimeRender MimeJSON Client)
+  => Client -- ^ "client" -  client model
+  -> OpenAPIPetstoreRequest TestSpecialTags MimeJSON Client MimeJSON
+testSpecialTags client =
+  _mkRequest "PATCH" ["/another-fake/dummy"]
+    `setBodyParam` client
+
+data TestSpecialTags 
+
+-- | /Body Param/ "Client" - client model
+instance HasBodyParam TestSpecialTags Client 
+
+-- | @application/json@
+instance Consumes TestSpecialTags MimeJSON
+
+-- | @application/json@
+instance Produces TestSpecialTags MimeJSON
+
+
    
\ No newline at end of file
diff --git a/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.Fake.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.Fake.html
new file mode 100644
index 00000000000..807144eff55
--- /dev/null
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.Fake.html
@@ -0,0 +1,381 @@
+
    {-
+   OpenAPI Petstore
+
+   This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
+
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
+-}
+
+{-|
+Module : OpenAPIPetstore.API.Fake
+-}
+
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE MonoLocalBinds #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module OpenAPIPetstore.API.Fake where
+
+import OpenAPIPetstore.Core
+import OpenAPIPetstore.MimeTypes
+import OpenAPIPetstore.Model as M
+
+import qualified Data.Aeson as A
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
+import qualified Data.Foldable as P
+import qualified Data.Map as Map
+import qualified Data.Maybe as P
+import qualified Data.Proxy as P (Proxy(..))
+import qualified Data.Set as Set
+import qualified Data.String as P
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import qualified Data.Text.Lazy as TL
+import qualified Data.Text.Lazy.Encoding as TL
+import qualified Data.Time as TI
+import qualified Network.HTTP.Client.MultipartFormData as NH
+import qualified Network.HTTP.Media as ME
+import qualified Network.HTTP.Types as NH
+import qualified Web.FormUrlEncoded as WH
+import qualified Web.HttpApiData as WH
+
+import Data.Text (Text)
+import GHC.Base ((<|>))
+
+import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
+import qualified Prelude as P
+
+-- * Operations
+
+
+-- ** Fake
+
+-- *** fakeOuterBooleanSerialize
+
+-- | @POST \/fake\/outer\/boolean@
+-- 
+-- Test serialization of outer boolean types
+-- 
+fakeOuterBooleanSerialize 
+  :: (Consumes FakeOuterBooleanSerialize MimeJSON)
+  => Accept accept -- ^ request accept ('MimeType')
+  -> OpenAPIPetstoreRequest FakeOuterBooleanSerialize MimeJSON Bool accept
+fakeOuterBooleanSerialize  _ =
+  _mkRequest "POST" ["/fake/outer/boolean"]
+
+data FakeOuterBooleanSerialize 
+
+-- | /Body Param/ "body" - Input boolean as post body
+instance HasBodyParam FakeOuterBooleanSerialize BodyBool 
+
+-- | @application/json@
+instance Consumes FakeOuterBooleanSerialize MimeJSON
+
+-- | @*/*@
+instance MimeType mtype => Produces FakeOuterBooleanSerialize mtype
+
+
+-- *** fakeOuterCompositeSerialize
+
+-- | @POST \/fake\/outer\/composite@
+-- 
+-- Test serialization of object with outer number type
+-- 
+fakeOuterCompositeSerialize 
+  :: (Consumes FakeOuterCompositeSerialize MimeJSON)
+  => Accept accept -- ^ request accept ('MimeType')
+  -> OpenAPIPetstoreRequest FakeOuterCompositeSerialize MimeJSON OuterComposite accept
+fakeOuterCompositeSerialize  _ =
+  _mkRequest "POST" ["/fake/outer/composite"]
+
+data FakeOuterCompositeSerialize 
+
+-- | /Body Param/ "OuterComposite" - Input composite as post body
+instance HasBodyParam FakeOuterCompositeSerialize OuterComposite 
+
+-- | @application/json@
+instance Consumes FakeOuterCompositeSerialize MimeJSON
+
+-- | @*/*@
+instance MimeType mtype => Produces FakeOuterCompositeSerialize mtype
+
+
+-- *** fakeOuterNumberSerialize
+
+-- | @POST \/fake\/outer\/number@
+-- 
+-- Test serialization of outer number types
+-- 
+fakeOuterNumberSerialize 
+  :: (Consumes FakeOuterNumberSerialize MimeJSON)
+  => Accept accept -- ^ request accept ('MimeType')
+  -> OpenAPIPetstoreRequest FakeOuterNumberSerialize MimeJSON Double accept
+fakeOuterNumberSerialize  _ =
+  _mkRequest "POST" ["/fake/outer/number"]
+
+data FakeOuterNumberSerialize 
+
+-- | /Body Param/ "body" - Input number as post body
+instance HasBodyParam FakeOuterNumberSerialize Body 
+
+-- | @application/json@
+instance Consumes FakeOuterNumberSerialize MimeJSON
+
+-- | @*/*@
+instance MimeType mtype => Produces FakeOuterNumberSerialize mtype
+
+
+-- *** fakeOuterStringSerialize
+
+-- | @POST \/fake\/outer\/string@
+-- 
+-- Test serialization of outer string types
+-- 
+fakeOuterStringSerialize 
+  :: (Consumes FakeOuterStringSerialize MimeJSON)
+  => Accept accept -- ^ request accept ('MimeType')
+  -> OpenAPIPetstoreRequest FakeOuterStringSerialize MimeJSON Text accept
+fakeOuterStringSerialize  _ =
+  _mkRequest "POST" ["/fake/outer/string"]
+
+data FakeOuterStringSerialize 
+
+-- | /Body Param/ "body" - Input string as post body
+instance HasBodyParam FakeOuterStringSerialize BodyText 
+
+-- | @application/json@
+instance Consumes FakeOuterStringSerialize MimeJSON
+
+-- | @*/*@
+instance MimeType mtype => Produces FakeOuterStringSerialize mtype
+
+
+-- *** testClientModel
+
+-- | @PATCH \/fake@
+-- 
+-- To test \"client\" model
+-- 
+-- To test \"client\" model
+-- 
+testClientModel 
+  :: (Consumes TestClientModel MimeJSON, MimeRender MimeJSON Client)
+  => Client -- ^ "client" -  client model
+  -> OpenAPIPetstoreRequest TestClientModel MimeJSON Client MimeJSON
+testClientModel client =
+  _mkRequest "PATCH" ["/fake"]
+    `setBodyParam` client
+
+data TestClientModel 
+
+-- | /Body Param/ "Client" - client model
+instance HasBodyParam TestClientModel Client 
+
+-- | @application/json@
+instance Consumes TestClientModel MimeJSON
+
+-- | @application/json@
+instance Produces TestClientModel MimeJSON
+
+
+-- *** testEndpointParameters
+
+-- | @POST \/fake@
+-- 
+-- Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트 
+-- 
+-- Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트 
+-- 
+-- AuthMethod: 'AuthBasicHttpBasicTest'
+-- 
+testEndpointParameters 
+  :: (Consumes TestEndpointParameters MimeFormUrlEncoded)
+  => Number -- ^ "number" -  None
+  -> ParamDouble -- ^ "double" -  None
+  -> PatternWithoutDelimiter -- ^ "patternWithoutDelimiter" -  None
+  -> Byte -- ^ "byte" -  None
+  -> OpenAPIPetstoreRequest TestEndpointParameters MimeFormUrlEncoded NoContent MimeNoContent
+testEndpointParameters (Number number) (ParamDouble double) (PatternWithoutDelimiter patternWithoutDelimiter) (Byte byte) =
+  _mkRequest "POST" ["/fake"]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthBasicHttpBasicTest)
+    `addForm` toForm ("number", number)
+    `addForm` toForm ("double", double)
+    `addForm` toForm ("pattern_without_delimiter", patternWithoutDelimiter)
+    `addForm` toForm ("byte", byte)
+
+data TestEndpointParameters  
+
+-- | /Optional Param/ "integer" - None
+instance HasOptionalParam TestEndpointParameters ParamInteger where
+  applyOptionalParam req (ParamInteger xs) =
+    req `addForm` toForm ("integer", xs)
+
+-- | /Optional Param/ "int32" - None
+instance HasOptionalParam TestEndpointParameters Int32 where
+  applyOptionalParam req (Int32 xs) =
+    req `addForm` toForm ("int32", xs)
+
+-- | /Optional Param/ "int64" - None
+instance HasOptionalParam TestEndpointParameters Int64 where
+  applyOptionalParam req (Int64 xs) =
+    req `addForm` toForm ("int64", xs)
+
+-- | /Optional Param/ "float" - None
+instance HasOptionalParam TestEndpointParameters ParamFloat where
+  applyOptionalParam req (ParamFloat xs) =
+    req `addForm` toForm ("float", xs)
+
+-- | /Optional Param/ "string" - None
+instance HasOptionalParam TestEndpointParameters ParamString where
+  applyOptionalParam req (ParamString xs) =
+    req `addForm` toForm ("string", xs)
+
+-- | /Optional Param/ "binary" - None
+instance HasOptionalParam TestEndpointParameters ParamBinary where
+  applyOptionalParam req (ParamBinary xs) =
+    req `_addMultiFormPart` NH.partFileSource "binary" xs
+
+-- | /Optional Param/ "date" - None
+instance HasOptionalParam TestEndpointParameters ParamDate where
+  applyOptionalParam req (ParamDate xs) =
+    req `addForm` toForm ("date", xs)
+
+-- | /Optional Param/ "dateTime" - None
+instance HasOptionalParam TestEndpointParameters ParamDateTime where
+  applyOptionalParam req (ParamDateTime xs) =
+    req `addForm` toForm ("dateTime", xs)
+
+-- | /Optional Param/ "password" - None
+instance HasOptionalParam TestEndpointParameters Password where
+  applyOptionalParam req (Password xs) =
+    req `addForm` toForm ("password", xs)
+
+-- | /Optional Param/ "callback" - None
+instance HasOptionalParam TestEndpointParameters Callback where
+  applyOptionalParam req (Callback xs) =
+    req `addForm` toForm ("callback", xs)
+
+-- | @application/x-www-form-urlencoded@
+instance Consumes TestEndpointParameters MimeFormUrlEncoded
+
+instance Produces TestEndpointParameters MimeNoContent
+
+
+-- *** testEnumParameters
+
+-- | @GET \/fake@
+-- 
+-- To test enum parameters
+-- 
+-- To test enum parameters
+-- 
+testEnumParameters 
+  :: (Consumes TestEnumParameters MimeFormUrlEncoded)
+  => OpenAPIPetstoreRequest TestEnumParameters MimeFormUrlEncoded NoContent MimeNoContent
+testEnumParameters =
+  _mkRequest "GET" ["/fake"]
+
+data TestEnumParameters  
+
+-- | /Optional Param/ "enum_form_string_array" - Form parameter enum test (string array)
+instance HasOptionalParam TestEnumParameters EnumFormStringArray where
+  applyOptionalParam req (EnumFormStringArray xs) =
+    req `addForm` toFormColl CommaSeparated ("enum_form_string_array", xs)
+
+-- | /Optional Param/ "enum_form_string" - Form parameter enum test (string)
+instance HasOptionalParam TestEnumParameters EnumFormString where
+  applyOptionalParam req (EnumFormString xs) =
+    req `addForm` toForm ("enum_form_string", xs)
+
+-- | /Optional Param/ "enum_header_string_array" - Header parameter enum test (string array)
+instance HasOptionalParam TestEnumParameters EnumHeaderStringArray where
+  applyOptionalParam req (EnumHeaderStringArray xs) =
+    req `setHeader` toHeaderColl CommaSeparated ("enum_header_string_array", xs)
+
+-- | /Optional Param/ "enum_header_string" - Header parameter enum test (string)
+instance HasOptionalParam TestEnumParameters EnumHeaderString where
+  applyOptionalParam req (EnumHeaderString xs) =
+    req `setHeader` toHeader ("enum_header_string", xs)
+
+-- | /Optional Param/ "enum_query_string_array" - Query parameter enum test (string array)
+instance HasOptionalParam TestEnumParameters EnumQueryStringArray where
+  applyOptionalParam req (EnumQueryStringArray xs) =
+    req `setQuery` toQueryColl MultiParamArray ("enum_query_string_array", Just xs)
+
+-- | /Optional Param/ "enum_query_string" - Query parameter enum test (string)
+instance HasOptionalParam TestEnumParameters EnumQueryString where
+  applyOptionalParam req (EnumQueryString xs) =
+    req `setQuery` toQuery ("enum_query_string", Just xs)
+
+-- | /Optional Param/ "enum_query_integer" - Query parameter enum test (double)
+instance HasOptionalParam TestEnumParameters EnumQueryInteger where
+  applyOptionalParam req (EnumQueryInteger xs) =
+    req `setQuery` toQuery ("enum_query_integer", Just xs)
+
+-- | /Optional Param/ "enum_query_double" - Query parameter enum test (double)
+instance HasOptionalParam TestEnumParameters EnumQueryDouble where
+  applyOptionalParam req (EnumQueryDouble xs) =
+    req `setQuery` toQuery ("enum_query_double", Just xs)
+
+-- | @application/x-www-form-urlencoded@
+instance Consumes TestEnumParameters MimeFormUrlEncoded
+
+instance Produces TestEnumParameters MimeNoContent
+
+
+-- *** testInlineAdditionalProperties
+
+-- | @POST \/fake\/inline-additionalProperties@
+-- 
+-- test inline additionalProperties
+-- 
+testInlineAdditionalProperties 
+  :: (Consumes TestInlineAdditionalProperties MimeJSON, MimeRender MimeJSON RequestBody)
+  => RequestBody -- ^ "requestBody" -  request body
+  -> OpenAPIPetstoreRequest TestInlineAdditionalProperties MimeJSON NoContent MimeNoContent
+testInlineAdditionalProperties requestBody =
+  _mkRequest "POST" ["/fake/inline-additionalProperties"]
+    `setBodyParam` requestBody
+
+data TestInlineAdditionalProperties 
+
+-- | /Body Param/ "request_body" - request body
+instance HasBodyParam TestInlineAdditionalProperties RequestBody 
+
+-- | @application/json@
+instance Consumes TestInlineAdditionalProperties MimeJSON
+
+instance Produces TestInlineAdditionalProperties MimeNoContent
+
+
+-- *** testJsonFormData
+
+-- | @GET \/fake\/jsonFormData@
+-- 
+-- test json serialization of form data
+-- 
+testJsonFormData 
+  :: (Consumes TestJsonFormData MimeFormUrlEncoded)
+  => Param -- ^ "param" -  field1
+  -> Param2 -- ^ "param2" -  field2
+  -> OpenAPIPetstoreRequest TestJsonFormData MimeFormUrlEncoded NoContent MimeNoContent
+testJsonFormData (Param param) (Param2 param2) =
+  _mkRequest "GET" ["/fake/jsonFormData"]
+    `addForm` toForm ("param", param)
+    `addForm` toForm ("param2", param2)
+
+data TestJsonFormData  
+
+-- | @application/x-www-form-urlencoded@
+instance Consumes TestJsonFormData MimeFormUrlEncoded
+
+instance Produces TestJsonFormData MimeNoContent
+
+
    
\ No newline at end of file
diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.FakeClassnameTags123.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.FakeClassnameTags123.html
similarity index 76%
rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.FakeClassnameTags123.html
rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.FakeClassnameTags123.html
index 222e97033ac..89057a0714a 100644
--- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.FakeClassnameTags123.html
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.FakeClassnameTags123.html
@@ -1,91 +1,90 @@
 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.API.FakeClassnameTags123
+
+{-|
+Module : OpenAPIPetstore.API.FakeClassnameTags123
 -}
-
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE MonoLocalBinds #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
-
-module SwaggerPetstore.API.FakeClassnameTags123 where
-
-import SwaggerPetstore.Core
-import SwaggerPetstore.MimeTypes
-import SwaggerPetstore.Model as M
-
-import qualified Data.Aeson as A
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
-import qualified Data.Foldable as P
-import qualified Data.Map as Map
-import qualified Data.Maybe as P
-import qualified Data.Proxy as P (Proxy(..))
-import qualified Data.Set as Set
-import qualified Data.String as P
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as T
-import qualified Data.Text.Lazy as TL
-import qualified Data.Text.Lazy.Encoding as TL
-import qualified Data.Time as TI
-import qualified Network.HTTP.Client.MultipartFormData as NH
-import qualified Network.HTTP.Media as ME
-import qualified Network.HTTP.Types as NH
-import qualified Web.FormUrlEncoded as WH
-import qualified Web.HttpApiData as WH
-
-import Data.Text (Text)
-import GHC.Base ((<|>))
-
-import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
-import qualified Prelude as P
-
--- * Operations
+
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE MonoLocalBinds #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module OpenAPIPetstore.API.FakeClassnameTags123 where
+
+import OpenAPIPetstore.Core
+import OpenAPIPetstore.MimeTypes
+import OpenAPIPetstore.Model as M
+
+import qualified Data.Aeson as A
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
+import qualified Data.Foldable as P
+import qualified Data.Map as Map
+import qualified Data.Maybe as P
+import qualified Data.Proxy as P (Proxy(..))
+import qualified Data.Set as Set
+import qualified Data.String as P
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import qualified Data.Text.Lazy as TL
+import qualified Data.Text.Lazy.Encoding as TL
+import qualified Data.Time as TI
+import qualified Network.HTTP.Client.MultipartFormData as NH
+import qualified Network.HTTP.Media as ME
+import qualified Network.HTTP.Types as NH
+import qualified Web.FormUrlEncoded as WH
+import qualified Web.HttpApiData as WH
+
+import Data.Text (Text)
+import GHC.Base ((<|>))
+
+import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
+import qualified Prelude as P
+
+-- * Operations
+
 
-
--- ** FakeClassnameTags123
-
--- *** testClassname
-
--- | @PATCH \/fake_classname_test@
--- 
--- To test class name in snake case
--- 
--- To test class name in snake case
--- 
--- AuthMethod: 'AuthApiKeyApiKeyQuery'
--- 
-testClassname 
-  :: (Consumes TestClassname MimeJSON, MimeRender MimeJSON Client)
-  => Client -- ^ "client" -  client model
-  -> SwaggerPetstoreRequest TestClassname MimeJSON Client MimeJSON
-testClassname client =
-  _mkRequest "PATCH" ["/fake_classname_test"]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKeyQuery)
-    `setBodyParam` client
-
-data TestClassname 
-
--- | /Body Param/ "Client" - client model
-instance HasBodyParam TestClassname Client 
-
--- | @application/json@
-instance Consumes TestClassname MimeJSON
-
--- | @application/json@
-instance Produces TestClassname MimeJSON
-
-
    
\ No newline at end of file
+-- ** FakeClassnameTags123
+
+-- *** testClassname
+
+-- | @PATCH \/fake_classname_test@
+-- 
+-- To test class name in snake case
+-- 
+-- To test class name in snake case
+-- 
+-- AuthMethod: 'AuthApiKeyApiKeyQuery'
+-- 
+testClassname 
+  :: (Consumes TestClassname MimeJSON, MimeRender MimeJSON Client)
+  => Client -- ^ "client" -  client model
+  -> OpenAPIPetstoreRequest TestClassname MimeJSON Client MimeJSON
+testClassname client =
+  _mkRequest "PATCH" ["/fake_classname_test"]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKeyQuery)
+    `setBodyParam` client
+
+data TestClassname 
+
+-- | /Body Param/ "Client" - client model
+instance HasBodyParam TestClassname Client 
+
+-- | @application/json@
+instance Consumes TestClassname MimeJSON
+
+-- | @application/json@
+instance Produces TestClassname MimeJSON
+
+
    
\ No newline at end of file
diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.Pet.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.Pet.html
similarity index 57%
rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.Pet.html
rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.Pet.html
index 3127a59e420..2e88f2c7fe2 100644
--- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.Pet.html
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.Pet.html
@@ -1,296 +1,295 @@
 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.API.Pet
+
+{-|
+Module : OpenAPIPetstore.API.Pet
 -}
-
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE MonoLocalBinds #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
-
-module SwaggerPetstore.API.Pet where
-
-import SwaggerPetstore.Core
-import SwaggerPetstore.MimeTypes
-import SwaggerPetstore.Model as M
-
-import qualified Data.Aeson as A
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
-import qualified Data.Foldable as P
-import qualified Data.Map as Map
-import qualified Data.Maybe as P
-import qualified Data.Proxy as P (Proxy(..))
-import qualified Data.Set as Set
-import qualified Data.String as P
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as T
-import qualified Data.Text.Lazy as TL
-import qualified Data.Text.Lazy.Encoding as TL
-import qualified Data.Time as TI
-import qualified Network.HTTP.Client.MultipartFormData as NH
-import qualified Network.HTTP.Media as ME
-import qualified Network.HTTP.Types as NH
-import qualified Web.FormUrlEncoded as WH
-import qualified Web.HttpApiData as WH
-
-import Data.Text (Text)
-import GHC.Base ((<|>))
-
-import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
-import qualified Prelude as P
-
--- * Operations
+
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE MonoLocalBinds #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module OpenAPIPetstore.API.Pet where
+
+import OpenAPIPetstore.Core
+import OpenAPIPetstore.MimeTypes
+import OpenAPIPetstore.Model as M
+
+import qualified Data.Aeson as A
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
+import qualified Data.Foldable as P
+import qualified Data.Map as Map
+import qualified Data.Maybe as P
+import qualified Data.Proxy as P (Proxy(..))
+import qualified Data.Set as Set
+import qualified Data.String as P
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import qualified Data.Text.Lazy as TL
+import qualified Data.Text.Lazy.Encoding as TL
+import qualified Data.Time as TI
+import qualified Network.HTTP.Client.MultipartFormData as NH
+import qualified Network.HTTP.Media as ME
+import qualified Network.HTTP.Types as NH
+import qualified Web.FormUrlEncoded as WH
+import qualified Web.HttpApiData as WH
+
+import Data.Text (Text)
+import GHC.Base ((<|>))
+
+import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
+import qualified Prelude as P
+
+-- * Operations
+
 
-
--- ** Pet
-
--- *** addPet
-
--- | @POST \/pet@
--- 
--- Add a new pet to the store
--- 
--- AuthMethod: 'AuthOAuthPetstoreAuth'
--- 
-addPet 
-  :: (Consumes AddPet contentType, MimeRender contentType Pet)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> Pet -- ^ "pet" -  Pet object that needs to be added to the store
-  -> SwaggerPetstoreRequest AddPet contentType NoContent MimeNoContent
-addPet _ pet =
-  _mkRequest "POST" ["/pet"]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
-    `setBodyParam` pet
-
-data AddPet 
-
--- | /Body Param/ "Pet" - Pet object that needs to be added to the store
-instance HasBodyParam AddPet Pet 
-
--- | @application/json@
-instance Consumes AddPet MimeJSON
--- | @application/xml@
-instance Consumes AddPet MimeXML
-
-instance Produces AddPet MimeNoContent
+-- ** Pet
+
+-- *** addPet
+
+-- | @POST \/pet@
+-- 
+-- Add a new pet to the store
+-- 
+-- AuthMethod: 'AuthOAuthPetstoreAuth'
+-- 
+addPet 
+  :: (Consumes AddPet contentType, MimeRender contentType Pet)
+  => ContentType contentType -- ^ request content-type ('MimeType')
+  -> Pet -- ^ "pet" -  Pet object that needs to be added to the store
+  -> OpenAPIPetstoreRequest AddPet contentType NoContent MimeNoContent
+addPet _ pet =
+  _mkRequest "POST" ["/pet"]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
+    `setBodyParam` pet
+
+data AddPet 
+
+-- | /Body Param/ "Pet" - Pet object that needs to be added to the store
+instance HasBodyParam AddPet Pet 
+
+-- | @application/xml@
+instance Consumes AddPet MimeXML
+-- | @application/json@
+instance Consumes AddPet MimeJSON
+
+instance Produces AddPet MimeNoContent
+
 
-
--- *** deletePet
-
--- | @DELETE \/pet\/{petId}@
--- 
--- Deletes a pet
--- 
--- AuthMethod: 'AuthOAuthPetstoreAuth'
--- 
-deletePet 
-  :: PetId -- ^ "petId" -  Pet id to delete
-  -> SwaggerPetstoreRequest DeletePet MimeNoContent NoContent MimeNoContent
-deletePet (PetId petId) =
-  _mkRequest "DELETE" ["/pet/",toPath petId]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
-
-data DeletePet  
-instance HasOptionalParam DeletePet ApiKey where
-  applyOptionalParam req (ApiKey xs) =
-    req `setHeader` toHeader ("api_key", xs)
-
-instance Produces DeletePet MimeNoContent
+-- *** deletePet
+
+-- | @DELETE \/pet\/{petId}@
+-- 
+-- Deletes a pet
+-- 
+-- AuthMethod: 'AuthOAuthPetstoreAuth'
+-- 
+deletePet 
+  :: PetId -- ^ "petId" -  Pet id to delete
+  -> OpenAPIPetstoreRequest DeletePet MimeNoContent NoContent MimeNoContent
+deletePet (PetId petId) =
+  _mkRequest "DELETE" ["/pet/",toPath petId]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
+
+data DeletePet  
+instance HasOptionalParam DeletePet ApiKey where
+  applyOptionalParam req (ApiKey xs) =
+    req `setHeader` toHeader ("api_key", xs)
+
+instance Produces DeletePet MimeNoContent
+
 
-
--- *** findPetsByStatus
-
--- | @GET \/pet\/findByStatus@
--- 
--- Finds Pets by status
--- 
--- Multiple status values can be provided with comma separated strings
--- 
--- AuthMethod: 'AuthOAuthPetstoreAuth'
--- 
-findPetsByStatus 
-  :: Accept accept -- ^ request accept ('MimeType')
-  -> Status -- ^ "status" -  Status values that need to be considered for filter
-  -> SwaggerPetstoreRequest FindPetsByStatus MimeNoContent [Pet] accept
-findPetsByStatus  _ (Status status) =
-  _mkRequest "GET" ["/pet/findByStatus"]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
-    `setQuery` toQueryColl CommaSeparated ("status", Just status)
-
-data FindPetsByStatus  
-
--- | @application/xml@
-instance Produces FindPetsByStatus MimeXML
--- | @application/json@
-instance Produces FindPetsByStatus MimeJSON
+-- *** findPetsByStatus
+
+-- | @GET \/pet\/findByStatus@
+-- 
+-- Finds Pets by status
+-- 
+-- Multiple status values can be provided with comma separated strings
+-- 
+-- AuthMethod: 'AuthOAuthPetstoreAuth'
+-- 
+findPetsByStatus 
+  :: Accept accept -- ^ request accept ('MimeType')
+  -> Status -- ^ "status" -  Status values that need to be considered for filter
+  -> OpenAPIPetstoreRequest FindPetsByStatus MimeNoContent [Pet] accept
+findPetsByStatus  _ (Status status) =
+  _mkRequest "GET" ["/pet/findByStatus"]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
+    `setQuery` toQueryColl CommaSeparated ("status", Just status)
+
+data FindPetsByStatus  
+
+-- | @application/xml@
+instance Produces FindPetsByStatus MimeXML
+-- | @application/json@
+instance Produces FindPetsByStatus MimeJSON
+
 
-
--- *** findPetsByTags
-
--- | @GET \/pet\/findByTags@
--- 
--- Finds Pets by tags
--- 
--- Multiple tags can be provided with comma separated strings. Use tag1, tag2, tag3 for testing.
--- 
--- AuthMethod: 'AuthOAuthPetstoreAuth'
--- 
-findPetsByTags 
-  :: Accept accept -- ^ request accept ('MimeType')
-  -> Tags -- ^ "tags" -  Tags to filter by
-  -> SwaggerPetstoreRequest FindPetsByTags MimeNoContent [Pet] accept
-findPetsByTags  _ (Tags tags) =
-  _mkRequest "GET" ["/pet/findByTags"]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
-    `setQuery` toQueryColl CommaSeparated ("tags", Just tags)
-
-{-# DEPRECATED findPetsByTags "" #-}
-
-data FindPetsByTags  
-
--- | @application/xml@
-instance Produces FindPetsByTags MimeXML
--- | @application/json@
-instance Produces FindPetsByTags MimeJSON
+-- *** findPetsByTags
+
+-- | @GET \/pet\/findByTags@
+-- 
+-- Finds Pets by tags
+-- 
+-- Multiple tags can be provided with comma separated strings. Use tag1, tag2, tag3 for testing.
+-- 
+-- AuthMethod: 'AuthOAuthPetstoreAuth'
+-- 
+findPetsByTags 
+  :: Accept accept -- ^ request accept ('MimeType')
+  -> Tags -- ^ "tags" -  Tags to filter by
+  -> OpenAPIPetstoreRequest FindPetsByTags MimeNoContent [Pet] accept
+findPetsByTags  _ (Tags tags) =
+  _mkRequest "GET" ["/pet/findByTags"]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
+    `setQuery` toQueryColl CommaSeparated ("tags", Just tags)
+
+{-# DEPRECATED findPetsByTags "" #-}
+
+data FindPetsByTags  
+
+-- | @application/xml@
+instance Produces FindPetsByTags MimeXML
+-- | @application/json@
+instance Produces FindPetsByTags MimeJSON
+
 
-
--- *** getPetById
-
--- | @GET \/pet\/{petId}@
--- 
--- Find pet by ID
--- 
--- Returns a single pet
--- 
--- AuthMethod: 'AuthApiKeyApiKey'
--- 
-getPetById 
-  :: Accept accept -- ^ request accept ('MimeType')
-  -> PetId -- ^ "petId" -  ID of pet to return
-  -> SwaggerPetstoreRequest GetPetById MimeNoContent Pet accept
-getPetById  _ (PetId petId) =
-  _mkRequest "GET" ["/pet/",toPath petId]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKey)
-
-data GetPetById  
-
--- | @application/xml@
-instance Produces GetPetById MimeXML
--- | @application/json@
-instance Produces GetPetById MimeJSON
+-- *** getPetById
+
+-- | @GET \/pet\/{petId}@
+-- 
+-- Find pet by ID
+-- 
+-- Returns a single pet
+-- 
+-- AuthMethod: 'AuthApiKeyApiKey'
+-- 
+getPetById 
+  :: Accept accept -- ^ request accept ('MimeType')
+  -> PetId -- ^ "petId" -  ID of pet to return
+  -> OpenAPIPetstoreRequest GetPetById MimeNoContent Pet accept
+getPetById  _ (PetId petId) =
+  _mkRequest "GET" ["/pet/",toPath petId]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKey)
+
+data GetPetById  
+
+-- | @application/xml@
+instance Produces GetPetById MimeXML
+-- | @application/json@
+instance Produces GetPetById MimeJSON
+
 
-
--- *** updatePet
-
--- | @PUT \/pet@
--- 
--- Update an existing pet
--- 
--- AuthMethod: 'AuthOAuthPetstoreAuth'
--- 
-updatePet 
-  :: (Consumes UpdatePet contentType, MimeRender contentType Pet)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> Pet -- ^ "pet" -  Pet object that needs to be added to the store
-  -> SwaggerPetstoreRequest UpdatePet contentType NoContent MimeNoContent
-updatePet _ pet =
-  _mkRequest "PUT" ["/pet"]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
-    `setBodyParam` pet
-
-data UpdatePet 
-
--- | /Body Param/ "Pet" - Pet object that needs to be added to the store
-instance HasBodyParam UpdatePet Pet 
-
--- | @application/json@
-instance Consumes UpdatePet MimeJSON
--- | @application/xml@
-instance Consumes UpdatePet MimeXML
-
-instance Produces UpdatePet MimeNoContent
+-- *** updatePet
+
+-- | @PUT \/pet@
+-- 
+-- Update an existing pet
+-- 
+-- AuthMethod: 'AuthOAuthPetstoreAuth'
+-- 
+updatePet 
+  :: (Consumes UpdatePet contentType, MimeRender contentType Pet)
+  => ContentType contentType -- ^ request content-type ('MimeType')
+  -> Pet -- ^ "pet" -  Pet object that needs to be added to the store
+  -> OpenAPIPetstoreRequest UpdatePet contentType NoContent MimeNoContent
+updatePet _ pet =
+  _mkRequest "PUT" ["/pet"]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
+    `setBodyParam` pet
+
+data UpdatePet 
+
+-- | /Body Param/ "Pet" - Pet object that needs to be added to the store
+instance HasBodyParam UpdatePet Pet 
+
+-- | @application/xml@
+instance Consumes UpdatePet MimeXML
+-- | @application/json@
+instance Consumes UpdatePet MimeJSON
+
+instance Produces UpdatePet MimeNoContent
+
 
-
--- *** updatePetWithForm
-
--- | @POST \/pet\/{petId}@
--- 
--- Updates a pet in the store with form data
--- 
--- AuthMethod: 'AuthOAuthPetstoreAuth'
--- 
-updatePetWithForm 
-  :: (Consumes UpdatePetWithForm MimeFormUrlEncoded)
-  => PetId -- ^ "petId" -  ID of pet that needs to be updated
-  -> SwaggerPetstoreRequest UpdatePetWithForm MimeFormUrlEncoded NoContent MimeNoContent
-updatePetWithForm (PetId petId) =
-  _mkRequest "POST" ["/pet/",toPath petId]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
-
-data UpdatePetWithForm  
-
--- | /Optional Param/ "name" - Updated name of the pet
-instance HasOptionalParam UpdatePetWithForm Name2 where
-  applyOptionalParam req (Name2 xs) =
-    req `addForm` toForm ("name", xs)
-
--- | /Optional Param/ "status" - Updated status of the pet
-instance HasOptionalParam UpdatePetWithForm StatusText where
-  applyOptionalParam req (StatusText xs) =
-    req `addForm` toForm ("status", xs)
-
--- | @application/x-www-form-urlencoded@
-instance Consumes UpdatePetWithForm MimeFormUrlEncoded
-
-instance Produces UpdatePetWithForm MimeNoContent
+-- *** updatePetWithForm
+
+-- | @POST \/pet\/{petId}@
+-- 
+-- Updates a pet in the store with form data
+-- 
+-- AuthMethod: 'AuthOAuthPetstoreAuth'
+-- 
+updatePetWithForm 
+  :: (Consumes UpdatePetWithForm MimeFormUrlEncoded)
+  => PetId -- ^ "petId" -  ID of pet that needs to be updated
+  -> OpenAPIPetstoreRequest UpdatePetWithForm MimeFormUrlEncoded NoContent MimeNoContent
+updatePetWithForm (PetId petId) =
+  _mkRequest "POST" ["/pet/",toPath petId]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
+
+data UpdatePetWithForm  
+
+-- | /Optional Param/ "name" - Updated name of the pet
+instance HasOptionalParam UpdatePetWithForm Name2 where
+  applyOptionalParam req (Name2 xs) =
+    req `addForm` toForm ("name", xs)
+
+-- | /Optional Param/ "status" - Updated status of the pet
+instance HasOptionalParam UpdatePetWithForm StatusText where
+  applyOptionalParam req (StatusText xs) =
+    req `addForm` toForm ("status", xs)
+
+-- | @application/x-www-form-urlencoded@
+instance Consumes UpdatePetWithForm MimeFormUrlEncoded
+
+instance Produces UpdatePetWithForm MimeNoContent
+
 
-
--- *** uploadFile
-
--- | @POST \/pet\/{petId}\/uploadImage@
--- 
--- uploads an image
--- 
--- AuthMethod: 'AuthOAuthPetstoreAuth'
--- 
-uploadFile 
-  :: (Consumes UploadFile MimeMultipartFormData)
-  => PetId -- ^ "petId" -  ID of pet to update
-  -> SwaggerPetstoreRequest UploadFile MimeMultipartFormData ApiResponse MimeJSON
-uploadFile (PetId petId) =
-  _mkRequest "POST" ["/pet/",toPath petId,"/uploadImage"]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
-
-data UploadFile  
-
--- | /Optional Param/ "additionalMetadata" - Additional data to pass to server
-instance HasOptionalParam UploadFile AdditionalMetadata where
-  applyOptionalParam req (AdditionalMetadata xs) =
-    req `_addMultiFormPart` NH.partLBS "additionalMetadata" (mimeRender' MimeMultipartFormData xs)
-
--- | /Optional Param/ "file" - file to upload
-instance HasOptionalParam UploadFile File where
-  applyOptionalParam req (File xs) =
-    req `_addMultiFormPart` NH.partFileSource "file" xs
-
--- | @multipart/form-data@
-instance Consumes UploadFile MimeMultipartFormData
-
--- | @application/json@
-instance Produces UploadFile MimeJSON
-
-
    
\ No newline at end of file
+-- *** uploadFile
+
+-- | @POST \/pet\/{petId}\/uploadImage@
+-- 
+-- uploads an image
+-- 
+-- AuthMethod: 'AuthOAuthPetstoreAuth'
+-- 
+uploadFile 
+  :: (Consumes UploadFile MimeMultipartFormData)
+  => PetId -- ^ "petId" -  ID of pet to update
+  -> OpenAPIPetstoreRequest UploadFile MimeMultipartFormData ApiResponse MimeJSON
+uploadFile (PetId petId) =
+  _mkRequest "POST" ["/pet/",toPath petId,"/uploadImage"]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
+
+data UploadFile  
+
+-- | /Optional Param/ "additionalMetadata" - Additional data to pass to server
+instance HasOptionalParam UploadFile AdditionalMetadata where
+  applyOptionalParam req (AdditionalMetadata xs) =
+    req `_addMultiFormPart` NH.partLBS "additionalMetadata" (mimeRender' MimeMultipartFormData xs)
+
+-- | /Optional Param/ "file" - file to upload
+instance HasOptionalParam UploadFile File where
+  applyOptionalParam req (File xs) =
+    req `_addMultiFormPart` NH.partFileSource "file" xs
+
+-- | @multipart/form-data@
+instance Consumes UploadFile MimeMultipartFormData
+
+-- | @application/json@
+instance Produces UploadFile MimeJSON
+
+
    
\ No newline at end of file
diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.Store.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.Store.html
similarity index 63%
rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.Store.html
rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.Store.html
index 7e85315a4b1..4cc5c98f926 100644
--- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.Store.html
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.Store.html
@@ -1,151 +1,152 @@
 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.API.Store
+
+{-|
+Module : OpenAPIPetstore.API.Store
 -}
-
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE MonoLocalBinds #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
-
-module SwaggerPetstore.API.Store where
-
-import SwaggerPetstore.Core
-import SwaggerPetstore.MimeTypes
-import SwaggerPetstore.Model as M
-
-import qualified Data.Aeson as A
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
-import qualified Data.Foldable as P
-import qualified Data.Map as Map
-import qualified Data.Maybe as P
-import qualified Data.Proxy as P (Proxy(..))
-import qualified Data.Set as Set
-import qualified Data.String as P
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as T
-import qualified Data.Text.Lazy as TL
-import qualified Data.Text.Lazy.Encoding as TL
-import qualified Data.Time as TI
-import qualified Network.HTTP.Client.MultipartFormData as NH
-import qualified Network.HTTP.Media as ME
-import qualified Network.HTTP.Types as NH
-import qualified Web.FormUrlEncoded as WH
-import qualified Web.HttpApiData as WH
-
-import Data.Text (Text)
-import GHC.Base ((<|>))
-
-import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
-import qualified Prelude as P
-
--- * Operations
+
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE MonoLocalBinds #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module OpenAPIPetstore.API.Store where
+
+import OpenAPIPetstore.Core
+import OpenAPIPetstore.MimeTypes
+import OpenAPIPetstore.Model as M
+
+import qualified Data.Aeson as A
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
+import qualified Data.Foldable as P
+import qualified Data.Map as Map
+import qualified Data.Maybe as P
+import qualified Data.Proxy as P (Proxy(..))
+import qualified Data.Set as Set
+import qualified Data.String as P
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import qualified Data.Text.Lazy as TL
+import qualified Data.Text.Lazy.Encoding as TL
+import qualified Data.Time as TI
+import qualified Network.HTTP.Client.MultipartFormData as NH
+import qualified Network.HTTP.Media as ME
+import qualified Network.HTTP.Types as NH
+import qualified Web.FormUrlEncoded as WH
+import qualified Web.HttpApiData as WH
+
+import Data.Text (Text)
+import GHC.Base ((<|>))
+
+import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
+import qualified Prelude as P
+
+-- * Operations
+
 
-
--- ** Store
-
--- *** deleteOrder
-
--- | @DELETE \/store\/order\/{order_id}@
--- 
--- Delete purchase order by ID
--- 
--- For valid response try integer IDs with value < 1000. Anything above 1000 or nonintegers will generate API errors
--- 
-deleteOrder 
-  :: OrderIdText -- ^ "orderId" -  ID of the order that needs to be deleted
-  -> SwaggerPetstoreRequest DeleteOrder MimeNoContent NoContent MimeNoContent
-deleteOrder (OrderIdText orderId) =
-  _mkRequest "DELETE" ["/store/order/",toPath orderId]
-
-data DeleteOrder  
-
-instance Produces DeleteOrder MimeNoContent
+-- ** Store
+
+-- *** deleteOrder
+
+-- | @DELETE \/store\/order\/{order_id}@
+-- 
+-- Delete purchase order by ID
+-- 
+-- For valid response try integer IDs with value < 1000. Anything above 1000 or nonintegers will generate API errors
+-- 
+deleteOrder 
+  :: OrderIdText -- ^ "orderId" -  ID of the order that needs to be deleted
+  -> OpenAPIPetstoreRequest DeleteOrder MimeNoContent NoContent MimeNoContent
+deleteOrder (OrderIdText orderId) =
+  _mkRequest "DELETE" ["/store/order/",toPath orderId]
+
+data DeleteOrder  
+
+instance Produces DeleteOrder MimeNoContent
+
 
-
--- *** getInventory
-
--- | @GET \/store\/inventory@
--- 
--- Returns pet inventories by status
--- 
--- Returns a map of status codes to quantities
--- 
--- AuthMethod: 'AuthApiKeyApiKey'
--- 
-getInventory 
-  :: SwaggerPetstoreRequest GetInventory MimeNoContent ((Map.Map String Int)) MimeJSON
-getInventory =
-  _mkRequest "GET" ["/store/inventory"]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKey)
-
-data GetInventory  
-
--- | @application/json@
-instance Produces GetInventory MimeJSON
+-- *** getInventory
+
+-- | @GET \/store\/inventory@
+-- 
+-- Returns pet inventories by status
+-- 
+-- Returns a map of status codes to quantities
+-- 
+-- AuthMethod: 'AuthApiKeyApiKey'
+-- 
+getInventory 
+  :: OpenAPIPetstoreRequest GetInventory MimeNoContent ((Map.Map String Int)) MimeJSON
+getInventory =
+  _mkRequest "GET" ["/store/inventory"]
+    `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKey)
+
+data GetInventory  
+
+-- | @application/json@
+instance Produces GetInventory MimeJSON
+
 
-
--- *** getOrderById
-
--- | @GET \/store\/order\/{order_id}@
--- 
--- Find purchase order by ID
--- 
--- For valid response try integer IDs with value <= 5 or > 10. Other values will generated exceptions
--- 
-getOrderById 
-  :: Accept accept -- ^ request accept ('MimeType')
-  -> OrderId -- ^ "orderId" -  ID of pet that needs to be fetched
-  -> SwaggerPetstoreRequest GetOrderById MimeNoContent Order accept
-getOrderById  _ (OrderId orderId) =
-  _mkRequest "GET" ["/store/order/",toPath orderId]
-
-data GetOrderById  
-
--- | @application/xml@
-instance Produces GetOrderById MimeXML
--- | @application/json@
-instance Produces GetOrderById MimeJSON
+-- *** getOrderById
+
+-- | @GET \/store\/order\/{order_id}@
+-- 
+-- Find purchase order by ID
+-- 
+-- For valid response try integer IDs with value <= 5 or > 10. Other values will generated exceptions
+-- 
+getOrderById 
+  :: Accept accept -- ^ request accept ('MimeType')
+  -> OrderId -- ^ "orderId" -  ID of pet that needs to be fetched
+  -> OpenAPIPetstoreRequest GetOrderById MimeNoContent Order accept
+getOrderById  _ (OrderId orderId) =
+  _mkRequest "GET" ["/store/order/",toPath orderId]
+
+data GetOrderById  
+
+-- | @application/xml@
+instance Produces GetOrderById MimeXML
+-- | @application/json@
+instance Produces GetOrderById MimeJSON
+
 
-
--- *** placeOrder
-
--- | @POST \/store\/order@
--- 
--- Place an order for a pet
--- 
-placeOrder 
-  :: (Consumes PlaceOrder contentType, MimeRender contentType Order)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> Accept accept -- ^ request accept ('MimeType')
-  -> Order -- ^ "order" -  order placed for purchasing the pet
-  -> SwaggerPetstoreRequest PlaceOrder contentType Order accept
-placeOrder _  _ order =
-  _mkRequest "POST" ["/store/order"]
-    `setBodyParam` order
+-- *** placeOrder
+
+-- | @POST \/store\/order@
+-- 
+-- Place an order for a pet
+-- 
+placeOrder 
+  :: (Consumes PlaceOrder MimeJSON, MimeRender MimeJSON Order)
+  => Accept accept -- ^ request accept ('MimeType')
+  -> Order -- ^ "order" -  order placed for purchasing the pet
+  -> OpenAPIPetstoreRequest PlaceOrder MimeJSON Order accept
+placeOrder  _ order =
+  _mkRequest "POST" ["/store/order"]
+    `setBodyParam` order
+
+data PlaceOrder 
 
-data PlaceOrder 
-
--- | /Body Param/ "Order" - order placed for purchasing the pet
-instance HasBodyParam PlaceOrder Order 
-
--- | @application/xml@
-instance Produces PlaceOrder MimeXML
--- | @application/json@
-instance Produces PlaceOrder MimeJSON
-
-
    
\ No newline at end of file
+-- | /Body Param/ "Order" - order placed for purchasing the pet
+instance HasBodyParam PlaceOrder Order 
+
+-- | @application/json@
+instance Consumes PlaceOrder MimeJSON
+
+-- | @application/xml@
+instance Produces PlaceOrder MimeXML
+-- | @application/json@
+instance Produces PlaceOrder MimeJSON
+
+
    
\ No newline at end of file
diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.User.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.User.html
similarity index 52%
rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.User.html
rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.User.html
index 4eb9e9cde38..8bab6ebfdae 100644
--- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.User.html
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.User.html
@@ -1,237 +1,244 @@
 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.API.User
+
+{-|
+Module : OpenAPIPetstore.API.User
 -}
-
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE MonoLocalBinds #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
-
-module SwaggerPetstore.API.User where
-
-import SwaggerPetstore.Core
-import SwaggerPetstore.MimeTypes
-import SwaggerPetstore.Model as M
-
-import qualified Data.Aeson as A
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
-import qualified Data.Foldable as P
-import qualified Data.Map as Map
-import qualified Data.Maybe as P
-import qualified Data.Proxy as P (Proxy(..))
-import qualified Data.Set as Set
-import qualified Data.String as P
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as T
-import qualified Data.Text.Lazy as TL
-import qualified Data.Text.Lazy.Encoding as TL
-import qualified Data.Time as TI
-import qualified Network.HTTP.Client.MultipartFormData as NH
-import qualified Network.HTTP.Media as ME
-import qualified Network.HTTP.Types as NH
-import qualified Web.FormUrlEncoded as WH
-import qualified Web.HttpApiData as WH
-
-import Data.Text (Text)
-import GHC.Base ((<|>))
-
-import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
-import qualified Prelude as P
-
--- * Operations
+
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE MonoLocalBinds #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module OpenAPIPetstore.API.User where
+
+import OpenAPIPetstore.Core
+import OpenAPIPetstore.MimeTypes
+import OpenAPIPetstore.Model as M
+
+import qualified Data.Aeson as A
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
+import qualified Data.Foldable as P
+import qualified Data.Map as Map
+import qualified Data.Maybe as P
+import qualified Data.Proxy as P (Proxy(..))
+import qualified Data.Set as Set
+import qualified Data.String as P
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import qualified Data.Text.Lazy as TL
+import qualified Data.Text.Lazy.Encoding as TL
+import qualified Data.Time as TI
+import qualified Network.HTTP.Client.MultipartFormData as NH
+import qualified Network.HTTP.Media as ME
+import qualified Network.HTTP.Types as NH
+import qualified Web.FormUrlEncoded as WH
+import qualified Web.HttpApiData as WH
+
+import Data.Text (Text)
+import GHC.Base ((<|>))
+
+import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
+import qualified Prelude as P
+
+-- * Operations
+
 
-
--- ** User
-
--- *** createUser
-
--- | @POST \/user@
--- 
--- Create user
--- 
--- This can only be done by the logged in user.
--- 
-createUser 
-  :: (Consumes CreateUser contentType, MimeRender contentType User)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> User -- ^ "user" -  Created user object
-  -> SwaggerPetstoreRequest CreateUser contentType NoContent MimeNoContent
-createUser _ user =
-  _mkRequest "POST" ["/user"]
-    `setBodyParam` user
+-- ** User
+
+-- *** createUser
+
+-- | @POST \/user@
+-- 
+-- Create user
+-- 
+-- This can only be done by the logged in user.
+-- 
+createUser 
+  :: (Consumes CreateUser MimeJSON, MimeRender MimeJSON User)
+  => User -- ^ "user" -  Created user object
+  -> OpenAPIPetstoreRequest CreateUser MimeJSON NoContent MimeNoContent
+createUser user =
+  _mkRequest "POST" ["/user"]
+    `setBodyParam` user
+
+data CreateUser 
 
-data CreateUser 
-
--- | /Body Param/ "User" - Created user object
-instance HasBodyParam CreateUser User 
-
-instance Produces CreateUser MimeNoContent
-
+-- | /Body Param/ "User" - Created user object
+instance HasBodyParam CreateUser User 
+
+-- | @application/json@
+instance Consumes CreateUser MimeJSON
+
+instance Produces CreateUser MimeNoContent
 
--- *** createUsersWithArrayInput
-
--- | @POST \/user\/createWithArray@
--- 
--- Creates list of users with given input array
--- 
-createUsersWithArrayInput 
-  :: (Consumes CreateUsersWithArrayInput contentType, MimeRender contentType User2)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> User2 -- ^ "user" -  List of user object
-  -> SwaggerPetstoreRequest CreateUsersWithArrayInput contentType NoContent MimeNoContent
-createUsersWithArrayInput _ user =
-  _mkRequest "POST" ["/user/createWithArray"]
-    `setBodyParam` user
+
+-- *** createUsersWithArrayInput
+
+-- | @POST \/user\/createWithArray@
+-- 
+-- Creates list of users with given input array
+-- 
+createUsersWithArrayInput 
+  :: (Consumes CreateUsersWithArrayInput MimeJSON, MimeRender MimeJSON User2)
+  => User2 -- ^ "user" -  List of user object
+  -> OpenAPIPetstoreRequest CreateUsersWithArrayInput MimeJSON NoContent MimeNoContent
+createUsersWithArrayInput user =
+  _mkRequest "POST" ["/user/createWithArray"]
+    `setBodyParam` user
 
-data CreateUsersWithArrayInput 
+data CreateUsersWithArrayInput 
 
 -- | /Body Param/ "User" - List of user object
-instance HasBodyParam CreateUsersWithArrayInput User2 
+instance HasBodyParam CreateUsersWithArrayInput User2 
 
-instance Produces CreateUsersWithArrayInput MimeNoContent
-
+-- | @application/json@
+instance Consumes CreateUsersWithArrayInput MimeJSON
 
--- *** createUsersWithListInput
+instance Produces CreateUsersWithArrayInput MimeNoContent
 
--- | @POST \/user\/createWithList@
--- 
--- Creates list of users with given input array
--- 
-createUsersWithListInput 
-  :: (Consumes CreateUsersWithListInput contentType, MimeRender contentType User2)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> User2 -- ^ "user" -  List of user object
-  -> SwaggerPetstoreRequest CreateUsersWithListInput contentType NoContent MimeNoContent
-createUsersWithListInput _ user =
-  _mkRequest "POST" ["/user/createWithList"]
-    `setBodyParam` user
-
-data CreateUsersWithListInput 
+
+-- *** createUsersWithListInput
+
+-- | @POST \/user\/createWithList@
+-- 
+-- Creates list of users with given input array
+-- 
+createUsersWithListInput 
+  :: (Consumes CreateUsersWithListInput MimeJSON, MimeRender MimeJSON User2)
+  => User2 -- ^ "user" -  List of user object
+  -> OpenAPIPetstoreRequest CreateUsersWithListInput MimeJSON NoContent MimeNoContent
+createUsersWithListInput user =
+  _mkRequest "POST" ["/user/createWithList"]
+    `setBodyParam` user
 
--- | /Body Param/ "User" - List of user object
-instance HasBodyParam CreateUsersWithListInput User2 
-
-instance Produces CreateUsersWithListInput MimeNoContent
+data CreateUsersWithListInput 
+
+-- | /Body Param/ "User" - List of user object
+instance HasBodyParam CreateUsersWithListInput User2 
 
-
--- *** deleteUser
+-- | @application/json@
+instance Consumes CreateUsersWithListInput MimeJSON
 
--- | @DELETE \/user\/{username}@
--- 
--- Delete user
--- 
--- This can only be done by the logged in user.
--- 
-deleteUser 
-  :: Username -- ^ "username" -  The name that needs to be deleted
-  -> SwaggerPetstoreRequest DeleteUser MimeNoContent NoContent MimeNoContent
-deleteUser (Username username) =
-  _mkRequest "DELETE" ["/user/",toPath username]
-
-data DeleteUser  
-
-instance Produces DeleteUser MimeNoContent
-
+instance Produces CreateUsersWithListInput MimeNoContent
+
+
+-- *** deleteUser
+
+-- | @DELETE \/user\/{username}@
+-- 
+-- Delete user
+-- 
+-- This can only be done by the logged in user.
+-- 
+deleteUser 
+  :: Username -- ^ "username" -  The name that needs to be deleted
+  -> OpenAPIPetstoreRequest DeleteUser MimeNoContent NoContent MimeNoContent
+deleteUser (Username username) =
+  _mkRequest "DELETE" ["/user/",toPath username]
 
--- *** getUserByName
+data DeleteUser  
 
--- | @GET \/user\/{username}@
--- 
--- Get user by user name
--- 
-getUserByName 
-  :: Accept accept -- ^ request accept ('MimeType')
-  -> Username -- ^ "username" -  The name that needs to be fetched. Use user1 for testing.
-  -> SwaggerPetstoreRequest GetUserByName MimeNoContent User accept
-getUserByName  _ (Username username) =
-  _mkRequest "GET" ["/user/",toPath username]
-
-data GetUserByName  
-
--- | @application/xml@
-instance Produces GetUserByName MimeXML
--- | @application/json@
-instance Produces GetUserByName MimeJSON
+instance Produces DeleteUser MimeNoContent
+
+
+-- *** getUserByName
+
+-- | @GET \/user\/{username}@
+-- 
+-- Get user by user name
+-- 
+getUserByName 
+  :: Accept accept -- ^ request accept ('MimeType')
+  -> Username -- ^ "username" -  The name that needs to be fetched. Use user1 for testing.
+  -> OpenAPIPetstoreRequest GetUserByName MimeNoContent User accept
+getUserByName  _ (Username username) =
+  _mkRequest "GET" ["/user/",toPath username]
+
+data GetUserByName  
 
-
--- *** loginUser
-
--- | @GET \/user\/login@
--- 
--- Logs user into the system
--- 
-loginUser 
-  :: Accept accept -- ^ request accept ('MimeType')
-  -> Username -- ^ "username" -  The user name for login
-  -> Password -- ^ "password" -  The password for login in clear text
-  -> SwaggerPetstoreRequest LoginUser MimeNoContent Text accept
-loginUser  _ (Username username) (Password password) =
-  _mkRequest "GET" ["/user/login"]
-    `setQuery` toQuery ("username", Just username)
-    `setQuery` toQuery ("password", Just password)
-
-data LoginUser  
-
--- | @application/xml@
-instance Produces LoginUser MimeXML
--- | @application/json@
-instance Produces LoginUser MimeJSON
+-- | @application/xml@
+instance Produces GetUserByName MimeXML
+-- | @application/json@
+instance Produces GetUserByName MimeJSON
+
+
+-- *** loginUser
+
+-- | @GET \/user\/login@
+-- 
+-- Logs user into the system
+-- 
+loginUser 
+  :: Accept accept -- ^ request accept ('MimeType')
+  -> Username -- ^ "username" -  The user name for login
+  -> Password -- ^ "password" -  The password for login in clear text
+  -> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
+loginUser  _ (Username username) (Password password) =
+  _mkRequest "GET" ["/user/login"]
+    `setQuery` toQuery ("username", Just username)
+    `setQuery` toQuery ("password", Just password)
+
+data LoginUser  
 
-
--- *** logoutUser
-
--- | @GET \/user\/logout@
--- 
--- Logs out current logged in user session
--- 
-logoutUser 
-  :: SwaggerPetstoreRequest LogoutUser MimeNoContent NoContent MimeNoContent
-logoutUser =
-  _mkRequest "GET" ["/user/logout"]
-
-data LogoutUser  
-
-instance Produces LogoutUser MimeNoContent
-
+-- | @application/xml@
+instance Produces LoginUser MimeXML
+-- | @application/json@
+instance Produces LoginUser MimeJSON
+
+
+-- *** logoutUser
+
+-- | @GET \/user\/logout@
+-- 
+-- Logs out current logged in user session
+-- 
+logoutUser 
+  :: OpenAPIPetstoreRequest LogoutUser MimeNoContent NoContent MimeNoContent
+logoutUser =
+  _mkRequest "GET" ["/user/logout"]
 
--- *** updateUser
+data LogoutUser  
 
--- | @PUT \/user\/{username}@
--- 
--- Updated user
--- 
--- This can only be done by the logged in user.
--- 
-updateUser 
-  :: (Consumes UpdateUser contentType, MimeRender contentType User)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> User -- ^ "user" -  Updated user object
-  -> Username -- ^ "username" -  name that need to be deleted
-  -> SwaggerPetstoreRequest UpdateUser contentType NoContent MimeNoContent
-updateUser _ user (Username username) =
-  _mkRequest "PUT" ["/user/",toPath username]
-    `setBodyParam` user
-
-data UpdateUser 
-
--- | /Body Param/ "User" - Updated user object
-instance HasBodyParam UpdateUser User 
-
-instance Produces UpdateUser MimeNoContent
-
-
    
\ No newline at end of file
+instance Produces LogoutUser MimeNoContent
+
+
+-- *** updateUser
+
+-- | @PUT \/user\/{username}@
+-- 
+-- Updated user
+-- 
+-- This can only be done by the logged in user.
+-- 
+updateUser 
+  :: (Consumes UpdateUser MimeJSON, MimeRender MimeJSON User)
+  => User -- ^ "user" -  Updated user object
+  -> Username -- ^ "username" -  name that need to be deleted
+  -> OpenAPIPetstoreRequest UpdateUser MimeJSON NoContent MimeNoContent
+updateUser user (Username username) =
+  _mkRequest "PUT" ["/user/",toPath username]
+    `setBodyParam` user
+
+data UpdateUser 
+
+-- | /Body Param/ "User" - Updated user object
+instance HasBodyParam UpdateUser User 
+
+-- | @application/json@
+instance Consumes UpdateUser MimeJSON
+
+instance Produces UpdateUser MimeNoContent
+
+
    
\ No newline at end of file
diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.html
similarity index 66%
rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.html
rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.html
index 6c879769ba4..ba6fbde31fd 100644
--- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.html
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.API.html
@@ -1,30 +1,29 @@
 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.API
+
+{-|
+Module : OpenAPIPetstore.API
 -}
-
-module SwaggerPetstore.API
-  ( module SwaggerPetstore.API.AnotherFake
-  , module SwaggerPetstore.API.Fake
-  , module SwaggerPetstore.API.FakeClassnameTags123
-  , module SwaggerPetstore.API.Pet
-  , module SwaggerPetstore.API.Store
-  , module SwaggerPetstore.API.User
-  ) where
-
-import SwaggerPetstore.API.AnotherFake
-import SwaggerPetstore.API.Fake
-import SwaggerPetstore.API.FakeClassnameTags123
-import SwaggerPetstore.API.Pet
-import SwaggerPetstore.API.Store
-import SwaggerPetstore.API.User
    
\ No newline at end of file
+
+module OpenAPIPetstore.API
+  ( module OpenAPIPetstore.API.AnotherFake
+  , module OpenAPIPetstore.API.Fake
+  , module OpenAPIPetstore.API.FakeClassnameTags123
+  , module OpenAPIPetstore.API.Pet
+  , module OpenAPIPetstore.API.Store
+  , module OpenAPIPetstore.API.User
+  ) where
+
+import OpenAPIPetstore.API.AnotherFake
+import OpenAPIPetstore.API.Fake
+import OpenAPIPetstore.API.FakeClassnameTags123
+import OpenAPIPetstore.API.Pet
+import OpenAPIPetstore.API.Store
+import OpenAPIPetstore.API.User
    
\ No newline at end of file
diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Client.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Client.html
similarity index 62%
rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Client.html
rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Client.html
index 2797b5d9d00..2591242c2e7 100644
--- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Client.html
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Client.html
@@ -1,219 +1,218 @@
 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.Client
+
+{-|
+Module : OpenAPIPetstore.Client
 -}
-
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RankNTypes #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE DeriveFunctor #-}
-{-# LANGUAGE DeriveFoldable #-}
-{-# LANGUAGE DeriveTraversable #-}
-{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}
-
-module SwaggerPetstore.Client where
-
-import SwaggerPetstore.Core
-import SwaggerPetstore.Logging
-import SwaggerPetstore.MimeTypes
-
-import qualified Control.Exception.Safe as E
-import qualified Control.Monad.IO.Class as P
-import qualified Control.Monad as P
-import qualified Data.Aeson.Types as A
-import qualified Data.ByteString.Char8 as BC
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.ByteString.Lazy.Char8 as BCL
-import qualified Data.Proxy as P (Proxy(..))
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as T
-import qualified Network.HTTP.Client as NH
-import qualified Network.HTTP.Client.MultipartFormData as NH
-import qualified Network.HTTP.Types as NH
-import qualified Web.FormUrlEncoded as WH
-import qualified Web.HttpApiData as WH
-
-import Data.Function ((&))
-import Data.Monoid ((<>))
-import Data.Text (Text)
-import GHC.Exts (IsString(..))
-
--- * Dispatch
-
--- ** Lbs
-
--- | send a request returning the raw http response
-dispatchLbs
-  :: (Produces req accept, MimeType contentType)
-  => NH.Manager -- ^ http-client Connection manager
-  -> SwaggerPetstoreConfig -- ^ config
-  -> SwaggerPetstoreRequest req contentType res accept -- ^ request
-  -> IO (NH.Response BCL.ByteString) -- ^ response
-dispatchLbs manager config request  = do
-  initReq <- _toInitRequest config request
-  dispatchInitUnsafe manager config initReq
-
--- ** Mime
-
--- | pair of decoded http body and http response
-data MimeResult res =
-  MimeResult { mimeResult :: Either MimeError res -- ^ decoded http body
-             , mimeResultResponse :: NH.Response BCL.ByteString -- ^ http response 
-             }
-  deriving (Show, Functor, Foldable, Traversable)
-
--- | pair of unrender/parser error and http response
-data MimeError =
-  MimeError {
-    mimeError :: String -- ^ unrender/parser error
-  , mimeErrorResponse :: NH.Response BCL.ByteString -- ^ http response 
-  } deriving (Eq, Show)
-
--- | send a request returning the 'MimeResult'
-dispatchMime
-  :: forall req contentType res accept. (Produces req accept, MimeUnrender accept res, MimeType contentType)
-  => NH.Manager -- ^ http-client Connection manager
-  -> SwaggerPetstoreConfig -- ^ config
-  -> SwaggerPetstoreRequest req contentType res accept -- ^ request
-  -> IO (MimeResult res) -- ^ response
-dispatchMime manager config request = do
-  httpResponse <- dispatchLbs manager config request
-  let statusCode = NH.statusCode . NH.responseStatus $ httpResponse
-  parsedResult <-
-    runConfigLogWithExceptions "Client" config $
-    do if (statusCode >= 400 && statusCode < 600)
-         then do
-           let s = "error statusCode: " ++ show statusCode
-           _log "Client" levelError (T.pack s)
-           pure (Left (MimeError s httpResponse))
-         else case mimeUnrender (P.Proxy :: P.Proxy accept) (NH.responseBody httpResponse) of
-           Left s -> do
-             _log "Client" levelError (T.pack s)
-             pure (Left (MimeError s httpResponse))
-           Right r -> pure (Right r)
-  return (MimeResult parsedResult httpResponse)
-
--- | like 'dispatchMime', but only returns the decoded http body
-dispatchMime'
-  :: (Produces req accept, MimeUnrender accept res, MimeType contentType)
-  => NH.Manager -- ^ http-client Connection manager
-  -> SwaggerPetstoreConfig -- ^ config
-  -> SwaggerPetstoreRequest req contentType res accept -- ^ request
-  -> IO (Either MimeError res) -- ^ response
-dispatchMime' manager config request  = do
-    MimeResult parsedResult _ <- dispatchMime manager config request
-    return parsedResult
-
--- ** Unsafe
-
--- | like 'dispatchReqLbs', but does not validate the operation is a 'Producer' of the "accept" 'MimeType'.  (Useful if the server's response is undocumented)
-dispatchLbsUnsafe
-  :: (MimeType accept, MimeType contentType)
-  => NH.Manager -- ^ http-client Connection manager
-  -> SwaggerPetstoreConfig -- ^ config
-  -> SwaggerPetstoreRequest req contentType res accept -- ^ request
-  -> IO (NH.Response BCL.ByteString) -- ^ response
-dispatchLbsUnsafe manager config request  = do
-  initReq <- _toInitRequest config request
-  dispatchInitUnsafe manager config initReq
-
--- | dispatch an InitRequest
-dispatchInitUnsafe
-  :: NH.Manager -- ^ http-client Connection manager
-  -> SwaggerPetstoreConfig -- ^ config
-  -> InitRequest req contentType res accept -- ^ init request
-  -> IO (NH.Response BCL.ByteString) -- ^ response
-dispatchInitUnsafe manager config (InitRequest req) = do
-  runConfigLogWithExceptions src config $
-    do _log src levelInfo requestLogMsg
-       _log src levelDebug requestDbgLogMsg
-       res <- P.liftIO $ NH.httpLbs req manager
-       _log src levelInfo (responseLogMsg res)
-       _log src levelDebug ((T.pack . show) res)
-       return res
-  where
-    src = "Client"
-    endpoint =
-      T.pack $
-      BC.unpack $
-      NH.method req <> " " <> NH.host req <> NH.path req <> NH.queryString req
-    requestLogMsg = "REQ:" <> endpoint
-    requestDbgLogMsg =
-      "Headers=" <> (T.pack . show) (NH.requestHeaders req) <> " Body=" <>
-      (case NH.requestBody req of
-         NH.RequestBodyLBS xs -> T.decodeUtf8 (BL.toStrict xs)
-         _ -> "<RequestBody>")
-    responseStatusCode = (T.pack . show) . NH.statusCode . NH.responseStatus
-    responseLogMsg res =
-      "RES:statusCode=" <> responseStatusCode res <> " (" <> endpoint <> ")"
-
--- * InitRequest
-
--- | wraps an http-client 'Request' with request/response type parameters
-newtype InitRequest req contentType res accept = InitRequest
-  { unInitRequest :: NH.Request
-  } deriving (Show)
-
--- |  Build an http-client 'Request' record from the supplied config and request
-_toInitRequest
-  :: (MimeType accept, MimeType contentType)
-  => SwaggerPetstoreConfig -- ^ config
-  -> SwaggerPetstoreRequest req contentType res accept -- ^ request
-  -> IO (InitRequest req contentType res accept) -- ^ initialized request
-_toInitRequest config req0  = 
-  runConfigLogWithExceptions "Client" config $ do
-    parsedReq <- P.liftIO $ NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (rUrlPath req0))
-    req1 <- P.liftIO $ _applyAuthMethods req0 config
-    P.when
-        (configValidateAuthMethods config && (not . null . rAuthTypes) req1)
-        (E.throw $ AuthMethodException $ "AuthMethod not configured: " <> (show . head . rAuthTypes) req1)
-    let req2 = req1 & _setContentTypeHeader & _setAcceptHeader
-        reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (rParams req2)
-        reqQuery = NH.renderQuery True (paramsQuery (rParams req2))
-        pReq = parsedReq { NH.method = (rMethod req2)
-                        , NH.requestHeaders = reqHeaders
-                        , NH.queryString = reqQuery
-                        }
-    outReq <- case paramsBody (rParams req2) of
-        ParamBodyNone -> pure (pReq { NH.requestBody = mempty })
-        ParamBodyB bs -> pure (pReq { NH.requestBody = NH.RequestBodyBS bs })
-        ParamBodyBL bl -> pure (pReq { NH.requestBody = NH.RequestBodyLBS bl })
-        ParamBodyFormUrlEncoded form -> pure (pReq { NH.requestBody = NH.RequestBodyLBS (WH.urlEncodeForm form) })
-        ParamBodyMultipartFormData parts -> NH.formDataBody parts pReq
-
-    pure (InitRequest outReq)
-
--- | modify the underlying Request
-modifyInitRequest :: InitRequest req contentType res accept -> (NH.Request -> NH.Request) -> InitRequest req contentType res accept
-modifyInitRequest (InitRequest req) f = InitRequest (f req)
-
--- | modify the underlying Request (monadic)
-modifyInitRequestM :: Monad m => InitRequest req contentType res accept -> (NH.Request -> m NH.Request) -> m (InitRequest req contentType res accept)
-modifyInitRequestM (InitRequest req) f = fmap InitRequest (f req)
-
--- ** Logging 
-
--- | Run a block using the configured logger instance
-runConfigLog
-  :: P.MonadIO m
-  => SwaggerPetstoreConfig -> LogExec m
-runConfigLog config = configLogExecWithContext config (configLogContext config)
-
--- | Run a block using the configured logger instance (logs exceptions)
-runConfigLogWithExceptions
-  :: (E.MonadCatch m, P.MonadIO m)
-  => T.Text -> SwaggerPetstoreConfig -> LogExec m
-runConfigLogWithExceptions src config = runConfigLog config . logExceptions src
-
    
\ No newline at end of file
+
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE DeriveFunctor #-}
+{-# LANGUAGE DeriveFoldable #-}
+{-# LANGUAGE DeriveTraversable #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module OpenAPIPetstore.Client where
+
+import OpenAPIPetstore.Core
+import OpenAPIPetstore.Logging
+import OpenAPIPetstore.MimeTypes
+
+import qualified Control.Exception.Safe as E
+import qualified Control.Monad.IO.Class as P
+import qualified Control.Monad as P
+import qualified Data.Aeson.Types as A
+import qualified Data.ByteString.Char8 as BC
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.ByteString.Lazy.Char8 as BCL
+import qualified Data.Proxy as P (Proxy(..))
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import qualified Network.HTTP.Client as NH
+import qualified Network.HTTP.Client.MultipartFormData as NH
+import qualified Network.HTTP.Types as NH
+import qualified Web.FormUrlEncoded as WH
+import qualified Web.HttpApiData as WH
+
+import Data.Function ((&))
+import Data.Monoid ((<>))
+import Data.Text (Text)
+import GHC.Exts (IsString(..))
+
+-- * Dispatch
+
+-- ** Lbs
+
+-- | send a request returning the raw http response
+dispatchLbs
+  :: (Produces req accept, MimeType contentType)
+  => NH.Manager -- ^ http-client Connection manager
+  -> OpenAPIPetstoreConfig -- ^ config
+  -> OpenAPIPetstoreRequest req contentType res accept -- ^ request
+  -> IO (NH.Response BCL.ByteString) -- ^ response
+dispatchLbs manager config request  = do
+  initReq <- _toInitRequest config request
+  dispatchInitUnsafe manager config initReq
+
+-- ** Mime
+
+-- | pair of decoded http body and http response
+data MimeResult res =
+  MimeResult { mimeResult :: Either MimeError res -- ^ decoded http body
+             , mimeResultResponse :: NH.Response BCL.ByteString -- ^ http response 
+             }
+  deriving (Show, Functor, Foldable, Traversable)
+
+-- | pair of unrender/parser error and http response
+data MimeError =
+  MimeError {
+    mimeError :: String -- ^ unrender/parser error
+  , mimeErrorResponse :: NH.Response BCL.ByteString -- ^ http response 
+  } deriving (Eq, Show)
+
+-- | send a request returning the 'MimeResult'
+dispatchMime
+  :: forall req contentType res accept. (Produces req accept, MimeUnrender accept res, MimeType contentType)
+  => NH.Manager -- ^ http-client Connection manager
+  -> OpenAPIPetstoreConfig -- ^ config
+  -> OpenAPIPetstoreRequest req contentType res accept -- ^ request
+  -> IO (MimeResult res) -- ^ response
+dispatchMime manager config request = do
+  httpResponse <- dispatchLbs manager config request
+  let statusCode = NH.statusCode . NH.responseStatus $ httpResponse
+  parsedResult <-
+    runConfigLogWithExceptions "Client" config $
+    do if (statusCode >= 400 && statusCode < 600)
+         then do
+           let s = "error statusCode: " ++ show statusCode
+           _log "Client" levelError (T.pack s)
+           pure (Left (MimeError s httpResponse))
+         else case mimeUnrender (P.Proxy :: P.Proxy accept) (NH.responseBody httpResponse) of
+           Left s -> do
+             _log "Client" levelError (T.pack s)
+             pure (Left (MimeError s httpResponse))
+           Right r -> pure (Right r)
+  return (MimeResult parsedResult httpResponse)
+
+-- | like 'dispatchMime', but only returns the decoded http body
+dispatchMime'
+  :: (Produces req accept, MimeUnrender accept res, MimeType contentType)
+  => NH.Manager -- ^ http-client Connection manager
+  -> OpenAPIPetstoreConfig -- ^ config
+  -> OpenAPIPetstoreRequest req contentType res accept -- ^ request
+  -> IO (Either MimeError res) -- ^ response
+dispatchMime' manager config request  = do
+    MimeResult parsedResult _ <- dispatchMime manager config request
+    return parsedResult
+
+-- ** Unsafe
+
+-- | like 'dispatchReqLbs', but does not validate the operation is a 'Producer' of the "accept" 'MimeType'.  (Useful if the server's response is undocumented)
+dispatchLbsUnsafe
+  :: (MimeType accept, MimeType contentType)
+  => NH.Manager -- ^ http-client Connection manager
+  -> OpenAPIPetstoreConfig -- ^ config
+  -> OpenAPIPetstoreRequest req contentType res accept -- ^ request
+  -> IO (NH.Response BCL.ByteString) -- ^ response
+dispatchLbsUnsafe manager config request  = do
+  initReq <- _toInitRequest config request
+  dispatchInitUnsafe manager config initReq
+
+-- | dispatch an InitRequest
+dispatchInitUnsafe
+  :: NH.Manager -- ^ http-client Connection manager
+  -> OpenAPIPetstoreConfig -- ^ config
+  -> InitRequest req contentType res accept -- ^ init request
+  -> IO (NH.Response BCL.ByteString) -- ^ response
+dispatchInitUnsafe manager config (InitRequest req) = do
+  runConfigLogWithExceptions src config $
+    do _log src levelInfo requestLogMsg
+       _log src levelDebug requestDbgLogMsg
+       res <- P.liftIO $ NH.httpLbs req manager
+       _log src levelInfo (responseLogMsg res)
+       _log src levelDebug ((T.pack . show) res)
+       return res
+  where
+    src = "Client"
+    endpoint =
+      T.pack $
+      BC.unpack $
+      NH.method req <> " " <> NH.host req <> NH.path req <> NH.queryString req
+    requestLogMsg = "REQ:" <> endpoint
+    requestDbgLogMsg =
+      "Headers=" <> (T.pack . show) (NH.requestHeaders req) <> " Body=" <>
+      (case NH.requestBody req of
+         NH.RequestBodyLBS xs -> T.decodeUtf8 (BL.toStrict xs)
+         _ -> "<RequestBody>")
+    responseStatusCode = (T.pack . show) . NH.statusCode . NH.responseStatus
+    responseLogMsg res =
+      "RES:statusCode=" <> responseStatusCode res <> " (" <> endpoint <> ")"
+
+-- * InitRequest
+
+-- | wraps an http-client 'Request' with request/response type parameters
+newtype InitRequest req contentType res accept = InitRequest
+  { unInitRequest :: NH.Request
+  } deriving (Show)
+
+-- |  Build an http-client 'Request' record from the supplied config and request
+_toInitRequest
+  :: (MimeType accept, MimeType contentType)
+  => OpenAPIPetstoreConfig -- ^ config
+  -> OpenAPIPetstoreRequest req contentType res accept -- ^ request
+  -> IO (InitRequest req contentType res accept) -- ^ initialized request
+_toInitRequest config req0  = 
+  runConfigLogWithExceptions "Client" config $ do
+    parsedReq <- P.liftIO $ NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (rUrlPath req0))
+    req1 <- P.liftIO $ _applyAuthMethods req0 config
+    P.when
+        (configValidateAuthMethods config && (not . null . rAuthTypes) req1)
+        (E.throw $ AuthMethodException $ "AuthMethod not configured: " <> (show . head . rAuthTypes) req1)
+    let req2 = req1 & _setContentTypeHeader & _setAcceptHeader
+        reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (rParams req2)
+        reqQuery = NH.renderQuery True (paramsQuery (rParams req2))
+        pReq = parsedReq { NH.method = (rMethod req2)
+                        , NH.requestHeaders = reqHeaders
+                        , NH.queryString = reqQuery
+                        }
+    outReq <- case paramsBody (rParams req2) of
+        ParamBodyNone -> pure (pReq { NH.requestBody = mempty })
+        ParamBodyB bs -> pure (pReq { NH.requestBody = NH.RequestBodyBS bs })
+        ParamBodyBL bl -> pure (pReq { NH.requestBody = NH.RequestBodyLBS bl })
+        ParamBodyFormUrlEncoded form -> pure (pReq { NH.requestBody = NH.RequestBodyLBS (WH.urlEncodeForm form) })
+        ParamBodyMultipartFormData parts -> NH.formDataBody parts pReq
+
+    pure (InitRequest outReq)
+
+-- | modify the underlying Request
+modifyInitRequest :: InitRequest req contentType res accept -> (NH.Request -> NH.Request) -> InitRequest req contentType res accept
+modifyInitRequest (InitRequest req) f = InitRequest (f req)
+
+-- | modify the underlying Request (monadic)
+modifyInitRequestM :: Monad m => InitRequest req contentType res accept -> (NH.Request -> m NH.Request) -> m (InitRequest req contentType res accept)
+modifyInitRequestM (InitRequest req) f = fmap InitRequest (f req)
+
+-- ** Logging 
+
+-- | Run a block using the configured logger instance
+runConfigLog
+  :: P.MonadIO m
+  => OpenAPIPetstoreConfig -> LogExec m
+runConfigLog config = configLogExecWithContext config (configLogContext config)
+
+-- | Run a block using the configured logger instance (logs exceptions)
+runConfigLogWithExceptions
+  :: (E.MonadCatch m, P.MonadIO m)
+  => T.Text -> OpenAPIPetstoreConfig -> LogExec m
+runConfigLogWithExceptions src config = runConfigLog config . logExceptions src
+
    
\ No newline at end of file
diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Core.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Core.html
similarity index 60%
rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Core.html
rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Core.html
index 06ac92ca051..e74c90bc4c1 100644
--- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Core.html
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Core.html
@@ -1,546 +1,545 @@
 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.Core
+
+{-|
+Module : OpenAPIPetstore.Core
 -}
-
-{-# LANGUAGE DeriveDataTypeable #-}
-{-# LANGUAGE ExistentialQuantification #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE NamedFieldPuns #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RankNTypes #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE TupleSections #-}
-{-# LANGUAGE TypeFamilies #-}
-{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds #-}
-
-module SwaggerPetstore.Core where
-
-import SwaggerPetstore.MimeTypes
-import SwaggerPetstore.Logging
-
-import qualified Control.Arrow as P (left)
-import qualified Control.DeepSeq as NF
-import qualified Control.Exception.Safe as E
-import qualified Data.Aeson as A
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Base64.Lazy as BL64
-import qualified Data.ByteString.Builder as BB
-import qualified Data.ByteString.Char8 as BC
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.ByteString.Lazy.Char8 as BCL
-import qualified Data.CaseInsensitive as CI
-import qualified Data.Data as P (Data, Typeable, TypeRep, typeRep)
-import qualified Data.Foldable as P
-import qualified Data.Ix as P
-import qualified Data.Maybe as P
-import qualified Data.Proxy as P (Proxy(..))
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as T
-import qualified Data.Time as TI
-import qualified Data.Time.ISO8601 as TI
-import qualified GHC.Base as P (Alternative)
-import qualified Lens.Micro as L
-import qualified Network.HTTP.Client.MultipartFormData as NH
-import qualified Network.HTTP.Types as NH
-import qualified Prelude as P
-import qualified Web.FormUrlEncoded as WH
-import qualified Web.HttpApiData as WH
-import qualified Text.Printf as T
-
-import Control.Applicative ((<|>))
-import Control.Applicative (Alternative)
-import Data.Function ((&))
-import Data.Foldable(foldlM)
-import Data.Monoid ((<>))
-import Data.Text (Text)
-import Prelude (($), (.), (<$>), (<*>), Maybe(..), Bool(..), Char, String, fmap, mempty, pure, return, show, IO, Monad, Functor)
-
--- * SwaggerPetstoreConfig
-
--- | 
-data SwaggerPetstoreConfig = SwaggerPetstoreConfig
-  { configHost  :: BCL.ByteString -- ^ host supplied in the Request
-  , configUserAgent :: Text -- ^ user-agent supplied in the Request
-  , configLogExecWithContext :: LogExecWithContext -- ^ Run a block using a Logger instance
-  , configLogContext :: LogContext -- ^ Configures the logger
-  , configAuthMethods :: [AnyAuthMethod] -- ^ List of configured auth methods
-  , configValidateAuthMethods :: Bool -- ^ throw exceptions if auth methods are not configured
-  }
-
--- | display the config
-instance P.Show SwaggerPetstoreConfig where
-  show c =
-    T.printf
-      "{ configHost = %v, configUserAgent = %v, ..}"
-      (show (configHost c))
-      (show (configUserAgent c))
-
--- | constructs a default SwaggerPetstoreConfig
---
--- configHost:
---
--- @http://petstore.swagger.io:80/v2@
---
--- configUserAgent:
---
--- @"swagger-petstore/0.1.0.0"@
---
-newConfig :: IO SwaggerPetstoreConfig
-newConfig = do
-    logCxt <- initLogContext
-    return $ SwaggerPetstoreConfig
-        { configHost = "http://petstore.swagger.io:80/v2"
-        , configUserAgent = "swagger-petstore/0.1.0.0"
-        , configLogExecWithContext = runDefaultLogExecWithContext
-        , configLogContext = logCxt
-        , configAuthMethods = []
-        , configValidateAuthMethods = True
-        }  
-
--- | updates config use AuthMethod on matching requests
-addAuthMethod :: AuthMethod auth => SwaggerPetstoreConfig -> auth -> SwaggerPetstoreConfig
-addAuthMethod config@SwaggerPetstoreConfig {configAuthMethods = as} a =
-  config { configAuthMethods = AnyAuthMethod a : as}
-
--- | updates the config to use stdout logging
-withStdoutLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig
-withStdoutLogging p = do
-    logCxt <- stdoutLoggingContext (configLogContext p)
-    return $ p { configLogExecWithContext = stdoutLoggingExec, configLogContext = logCxt }
-
--- | updates the config to use stderr logging
-withStderrLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig
-withStderrLogging p = do
-    logCxt <- stderrLoggingContext (configLogContext p)
-    return $ p { configLogExecWithContext = stderrLoggingExec, configLogContext = logCxt }
-
--- | updates the config to disable logging
-withNoLogging :: SwaggerPetstoreConfig -> SwaggerPetstoreConfig
-withNoLogging p = p { configLogExecWithContext =  runNullLogExec}
- 
--- * SwaggerPetstoreRequest
-
--- | Represents a request.
---
---   Type Variables:
---
---   * req - request operation
---   * contentType - 'MimeType' associated with request body
---   * res - response model
---   * accept - 'MimeType' associated with response body
-data SwaggerPetstoreRequest req contentType res accept = SwaggerPetstoreRequest
-  { rMethod  :: NH.Method   -- ^ Method of SwaggerPetstoreRequest
-  , rUrlPath :: [BCL.ByteString] -- ^ Endpoint of SwaggerPetstoreRequest
-  , rParams   :: Params -- ^ params of SwaggerPetstoreRequest
-  , rAuthTypes :: [P.TypeRep] -- ^ types of auth methods
-  }
-  deriving (P.Show)
-
--- | 'rMethod' Lens
-rMethodL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) NH.Method
-rMethodL f SwaggerPetstoreRequest{..} = (\rMethod -> SwaggerPetstoreRequest { rMethod, ..} ) <$> f rMethod
-{-# INLINE rMethodL #-}
-
--- | 'rUrlPath' Lens
-rUrlPathL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) [BCL.ByteString]
-rUrlPathL f SwaggerPetstoreRequest{..} = (\rUrlPath -> SwaggerPetstoreRequest { rUrlPath, ..} ) <$> f rUrlPath
-{-# INLINE rUrlPathL #-}
-
--- | 'rParams' Lens
-rParamsL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) Params
-rParamsL f SwaggerPetstoreRequest{..} = (\rParams -> SwaggerPetstoreRequest { rParams, ..} ) <$> f rParams
-{-# INLINE rParamsL #-}
-
--- | 'rParams' Lens
-rAuthTypesL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) [P.TypeRep]
-rAuthTypesL f SwaggerPetstoreRequest{..} = (\rAuthTypes -> SwaggerPetstoreRequest { rAuthTypes, ..} ) <$> f rAuthTypes
-{-# INLINE rAuthTypesL #-}
-
--- * HasBodyParam
-
--- | Designates the body parameter of a request
-class HasBodyParam req param where
-  setBodyParam :: forall contentType res accept. (Consumes req contentType, MimeRender contentType param) => SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept
-  setBodyParam req xs =
-    req `_setBodyLBS` mimeRender (P.Proxy :: P.Proxy contentType) xs & _setContentTypeHeader
-
--- * HasOptionalParam
-
--- | Designates the optional parameters of a request
-class HasOptionalParam req param where
-  {-# MINIMAL applyOptionalParam | (-&-) #-}
-
-  -- | Apply an optional parameter to a request
-  applyOptionalParam :: SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept
-  applyOptionalParam = (-&-)
-  {-# INLINE applyOptionalParam #-}
-
-  -- | infix operator \/ alias for 'addOptionalParam'
-  (-&-) :: SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept
-  (-&-) = applyOptionalParam
-  {-# INLINE (-&-) #-}
-
-infixl 2 -&-
-
--- | Request Params
-data Params = Params
-  { paramsQuery :: NH.Query
-  , paramsHeaders :: NH.RequestHeaders
-  , paramsBody :: ParamBody
-  }
-  deriving (P.Show)
-
--- | 'paramsQuery' Lens
-paramsQueryL :: Lens_' Params NH.Query
-paramsQueryL f Params{..} = (\paramsQuery -> Params { paramsQuery, ..} ) <$> f paramsQuery
-{-# INLINE paramsQueryL #-}
-
--- | 'paramsHeaders' Lens
-paramsHeadersL :: Lens_' Params NH.RequestHeaders
-paramsHeadersL f Params{..} = (\paramsHeaders -> Params { paramsHeaders, ..} ) <$> f paramsHeaders
-{-# INLINE paramsHeadersL #-}
-
--- | 'paramsBody' Lens
-paramsBodyL :: Lens_' Params ParamBody
-paramsBodyL f Params{..} = (\paramsBody -> Params { paramsBody, ..} ) <$> f paramsBody
-{-# INLINE paramsBodyL #-}
-
--- | Request Body
-data ParamBody
-  = ParamBodyNone
-  | ParamBodyB B.ByteString
-  | ParamBodyBL BL.ByteString
-  | ParamBodyFormUrlEncoded WH.Form
-  | ParamBodyMultipartFormData [NH.Part]
-  deriving (P.Show)
-
--- ** SwaggerPetstoreRequest Utils
-
-_mkRequest :: NH.Method -- ^ Method 
-          -> [BCL.ByteString] -- ^ Endpoint
-          -> SwaggerPetstoreRequest req contentType res accept -- ^ req: Request Type, res: Response Type
-_mkRequest m u = SwaggerPetstoreRequest m u _mkParams []
-
-_mkParams :: Params
-_mkParams = Params [] [] ParamBodyNone
-
-setHeader :: SwaggerPetstoreRequest req contentType res accept -> [NH.Header] -> SwaggerPetstoreRequest req contentType res accept
-setHeader req header =
-  req `removeHeader` P.fmap P.fst header &
-  L.over (rParamsL . paramsHeadersL) (header P.++)
-
-removeHeader :: SwaggerPetstoreRequest req contentType res accept -> [NH.HeaderName] -> SwaggerPetstoreRequest req contentType res accept
-removeHeader req header =
-  req &
-  L.over
-    (rParamsL . paramsHeadersL)
-    (P.filter (\h -> cifst h `P.notElem` P.fmap CI.mk header))
-  where
-    cifst = CI.mk . P.fst
+
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE ExistentialQuantification #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TupleSections #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds #-}
+
+module OpenAPIPetstore.Core where
+
+import OpenAPIPetstore.MimeTypes
+import OpenAPIPetstore.Logging
+
+import qualified Control.Arrow as P (left)
+import qualified Control.DeepSeq as NF
+import qualified Control.Exception.Safe as E
+import qualified Data.Aeson as A
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Base64.Lazy as BL64
+import qualified Data.ByteString.Builder as BB
+import qualified Data.ByteString.Char8 as BC
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.ByteString.Lazy.Char8 as BCL
+import qualified Data.CaseInsensitive as CI
+import qualified Data.Data as P (Data, Typeable, TypeRep, typeRep)
+import qualified Data.Foldable as P
+import qualified Data.Ix as P
+import qualified Data.Maybe as P
+import qualified Data.Proxy as P (Proxy(..))
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import qualified Data.Time as TI
+import qualified Data.Time.ISO8601 as TI
+import qualified GHC.Base as P (Alternative)
+import qualified Lens.Micro as L
+import qualified Network.HTTP.Client.MultipartFormData as NH
+import qualified Network.HTTP.Types as NH
+import qualified Prelude as P
+import qualified Web.FormUrlEncoded as WH
+import qualified Web.HttpApiData as WH
+import qualified Text.Printf as T
+
+import Control.Applicative ((<|>))
+import Control.Applicative (Alternative)
+import Data.Function ((&))
+import Data.Foldable(foldlM)
+import Data.Monoid ((<>))
+import Data.Text (Text)
+import Prelude (($), (.), (<$>), (<*>), Maybe(..), Bool(..), Char, String, fmap, mempty, pure, return, show, IO, Monad, Functor)
+
+-- * OpenAPIPetstoreConfig
+
+-- | 
+data OpenAPIPetstoreConfig = OpenAPIPetstoreConfig
+  { configHost  :: BCL.ByteString -- ^ host supplied in the Request
+  , configUserAgent :: Text -- ^ user-agent supplied in the Request
+  , configLogExecWithContext :: LogExecWithContext -- ^ Run a block using a Logger instance
+  , configLogContext :: LogContext -- ^ Configures the logger
+  , configAuthMethods :: [AnyAuthMethod] -- ^ List of configured auth methods
+  , configValidateAuthMethods :: Bool -- ^ throw exceptions if auth methods are not configured
+  }
+
+-- | display the config
+instance P.Show OpenAPIPetstoreConfig where
+  show c =
+    T.printf
+      "{ configHost = %v, configUserAgent = %v, ..}"
+      (show (configHost c))
+      (show (configUserAgent c))
+
+-- | constructs a default OpenAPIPetstoreConfig
+--
+-- configHost:
+--
+-- @http://petstore.swagger.io:80/v2@
+--
+-- configUserAgent:
+--
+-- @"openapi-petstore/0.1.0.0"@
+--
+newConfig :: IO OpenAPIPetstoreConfig
+newConfig = do
+    logCxt <- initLogContext
+    return $ OpenAPIPetstoreConfig
+        { configHost = "http://petstore.swagger.io:80/v2"
+        , configUserAgent = "openapi-petstore/0.1.0.0"
+        , configLogExecWithContext = runDefaultLogExecWithContext
+        , configLogContext = logCxt
+        , configAuthMethods = []
+        , configValidateAuthMethods = True
+        }  
+
+-- | updates config use AuthMethod on matching requests
+addAuthMethod :: AuthMethod auth => OpenAPIPetstoreConfig -> auth -> OpenAPIPetstoreConfig
+addAuthMethod config@OpenAPIPetstoreConfig {configAuthMethods = as} a =
+  config { configAuthMethods = AnyAuthMethod a : as}
+
+-- | updates the config to use stdout logging
+withStdoutLogging :: OpenAPIPetstoreConfig -> IO OpenAPIPetstoreConfig
+withStdoutLogging p = do
+    logCxt <- stdoutLoggingContext (configLogContext p)
+    return $ p { configLogExecWithContext = stdoutLoggingExec, configLogContext = logCxt }
+
+-- | updates the config to use stderr logging
+withStderrLogging :: OpenAPIPetstoreConfig -> IO OpenAPIPetstoreConfig
+withStderrLogging p = do
+    logCxt <- stderrLoggingContext (configLogContext p)
+    return $ p { configLogExecWithContext = stderrLoggingExec, configLogContext = logCxt }
+
+-- | updates the config to disable logging
+withNoLogging :: OpenAPIPetstoreConfig -> OpenAPIPetstoreConfig
+withNoLogging p = p { configLogExecWithContext =  runNullLogExec}
+ 
+-- * OpenAPIPetstoreRequest
+
+-- | Represents a request.
+--
+--   Type Variables:
+--
+--   * req - request operation
+--   * contentType - 'MimeType' associated with request body
+--   * res - response model
+--   * accept - 'MimeType' associated with response body
+data OpenAPIPetstoreRequest req contentType res accept = OpenAPIPetstoreRequest
+  { rMethod  :: NH.Method   -- ^ Method of OpenAPIPetstoreRequest
+  , rUrlPath :: [BCL.ByteString] -- ^ Endpoint of OpenAPIPetstoreRequest
+  , rParams   :: Params -- ^ params of OpenAPIPetstoreRequest
+  , rAuthTypes :: [P.TypeRep] -- ^ types of auth methods
+  }
+  deriving (P.Show)
+
+-- | 'rMethod' Lens
+rMethodL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) NH.Method
+rMethodL f OpenAPIPetstoreRequest{..} = (\rMethod -> OpenAPIPetstoreRequest { rMethod, ..} ) <$> f rMethod
+{-# INLINE rMethodL #-}
+
+-- | 'rUrlPath' Lens
+rUrlPathL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) [BCL.ByteString]
+rUrlPathL f OpenAPIPetstoreRequest{..} = (\rUrlPath -> OpenAPIPetstoreRequest { rUrlPath, ..} ) <$> f rUrlPath
+{-# INLINE rUrlPathL #-}
+
+-- | 'rParams' Lens
+rParamsL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) Params
+rParamsL f OpenAPIPetstoreRequest{..} = (\rParams -> OpenAPIPetstoreRequest { rParams, ..} ) <$> f rParams
+{-# INLINE rParamsL #-}
+
+-- | 'rParams' Lens
+rAuthTypesL :: Lens_' (OpenAPIPetstoreRequest req contentType res accept) [P.TypeRep]
+rAuthTypesL f OpenAPIPetstoreRequest{..} = (\rAuthTypes -> OpenAPIPetstoreRequest { rAuthTypes, ..} ) <$> f rAuthTypes
+{-# INLINE rAuthTypesL #-}
+
+-- * HasBodyParam
+
+-- | Designates the body parameter of a request
+class HasBodyParam req param where
+  setBodyParam :: forall contentType res accept. (Consumes req contentType, MimeRender contentType param) => OpenAPIPetstoreRequest req contentType res accept -> param -> OpenAPIPetstoreRequest req contentType res accept
+  setBodyParam req xs =
+    req `_setBodyLBS` mimeRender (P.Proxy :: P.Proxy contentType) xs & _setContentTypeHeader
+
+-- * HasOptionalParam
+
+-- | Designates the optional parameters of a request
+class HasOptionalParam req param where
+  {-# MINIMAL applyOptionalParam | (-&-) #-}
+
+  -- | Apply an optional parameter to a request
+  applyOptionalParam :: OpenAPIPetstoreRequest req contentType res accept -> param -> OpenAPIPetstoreRequest req contentType res accept
+  applyOptionalParam = (-&-)
+  {-# INLINE applyOptionalParam #-}
+
+  -- | infix operator \/ alias for 'addOptionalParam'
+  (-&-) :: OpenAPIPetstoreRequest req contentType res accept -> param -> OpenAPIPetstoreRequest req contentType res accept
+  (-&-) = applyOptionalParam
+  {-# INLINE (-&-) #-}
+
+infixl 2 -&-
+
+-- | Request Params
+data Params = Params
+  { paramsQuery :: NH.Query
+  , paramsHeaders :: NH.RequestHeaders
+  , paramsBody :: ParamBody
+  }
+  deriving (P.Show)
+
+-- | 'paramsQuery' Lens
+paramsQueryL :: Lens_' Params NH.Query
+paramsQueryL f Params{..} = (\paramsQuery -> Params { paramsQuery, ..} ) <$> f paramsQuery
+{-# INLINE paramsQueryL #-}
+
+-- | 'paramsHeaders' Lens
+paramsHeadersL :: Lens_' Params NH.RequestHeaders
+paramsHeadersL f Params{..} = (\paramsHeaders -> Params { paramsHeaders, ..} ) <$> f paramsHeaders
+{-# INLINE paramsHeadersL #-}
+
+-- | 'paramsBody' Lens
+paramsBodyL :: Lens_' Params ParamBody
+paramsBodyL f Params{..} = (\paramsBody -> Params { paramsBody, ..} ) <$> f paramsBody
+{-# INLINE paramsBodyL #-}
+
+-- | Request Body
+data ParamBody
+  = ParamBodyNone
+  | ParamBodyB B.ByteString
+  | ParamBodyBL BL.ByteString
+  | ParamBodyFormUrlEncoded WH.Form
+  | ParamBodyMultipartFormData [NH.Part]
+  deriving (P.Show)
+
+-- ** OpenAPIPetstoreRequest Utils
+
+_mkRequest :: NH.Method -- ^ Method 
+          -> [BCL.ByteString] -- ^ Endpoint
+          -> OpenAPIPetstoreRequest req contentType res accept -- ^ req: Request Type, res: Response Type
+_mkRequest m u = OpenAPIPetstoreRequest m u _mkParams []
+
+_mkParams :: Params
+_mkParams = Params [] [] ParamBodyNone
+
+setHeader :: OpenAPIPetstoreRequest req contentType res accept -> [NH.Header] -> OpenAPIPetstoreRequest req contentType res accept
+setHeader req header =
+  req `removeHeader` P.fmap P.fst header &
+  L.over (rParamsL . paramsHeadersL) (header P.++)
+
+removeHeader :: OpenAPIPetstoreRequest req contentType res accept -> [NH.HeaderName] -> OpenAPIPetstoreRequest req contentType res accept
+removeHeader req header =
+  req &
+  L.over
+    (rParamsL . paramsHeadersL)
+    (P.filter (\h -> cifst h `P.notElem` P.fmap CI.mk header))
+  where
+    cifst = CI.mk . P.fst
+
 
-
-_setContentTypeHeader :: forall req contentType res accept. MimeType contentType => SwaggerPetstoreRequest req contentType res accept -> SwaggerPetstoreRequest req contentType res accept
-_setContentTypeHeader req =
-    case mimeType (P.Proxy :: P.Proxy contentType) of 
-        Just m -> req `setHeader` [("content-type", BC.pack $ P.show m)]
-        Nothing -> req `removeHeader` ["content-type"]
-
-_setAcceptHeader :: forall req contentType res accept. MimeType accept => SwaggerPetstoreRequest req contentType res accept -> SwaggerPetstoreRequest req contentType res accept
-_setAcceptHeader req =
-    case mimeType (P.Proxy :: P.Proxy accept) of 
-        Just m -> req `setHeader` [("accept", BC.pack $ P.show m)]
-        Nothing -> req `removeHeader` ["accept"]
-
-setQuery :: SwaggerPetstoreRequest req contentType res accept -> [NH.QueryItem] -> SwaggerPetstoreRequest req contentType res accept
-setQuery req query = 
-  req &
-  L.over
-    (rParamsL . paramsQueryL)
-    ((query P.++) . P.filter (\q -> cifst q `P.notElem` P.fmap cifst query))
-  where
-    cifst = CI.mk . P.fst
-
-addForm :: SwaggerPetstoreRequest req contentType res accept -> WH.Form -> SwaggerPetstoreRequest req contentType res accept
-addForm req newform = 
-    let form = case paramsBody (rParams req) of
-            ParamBodyFormUrlEncoded _form -> _form
-            _ -> mempty
-    in req & L.set (rParamsL . paramsBodyL) (ParamBodyFormUrlEncoded (newform <> form))
-
-_addMultiFormPart :: SwaggerPetstoreRequest req contentType res accept -> NH.Part -> SwaggerPetstoreRequest req contentType res accept
-_addMultiFormPart req newpart = 
-    let parts = case paramsBody (rParams req) of
-            ParamBodyMultipartFormData _parts -> _parts
-            _ -> []
-    in req & L.set (rParamsL . paramsBodyL) (ParamBodyMultipartFormData (newpart : parts))
-
-_setBodyBS :: SwaggerPetstoreRequest req contentType res accept -> B.ByteString -> SwaggerPetstoreRequest req contentType res accept
-_setBodyBS req body = 
-    req & L.set (rParamsL . paramsBodyL) (ParamBodyB body)
-
-_setBodyLBS :: SwaggerPetstoreRequest req contentType res accept -> BL.ByteString -> SwaggerPetstoreRequest req contentType res accept
-_setBodyLBS req body = 
-    req & L.set (rParamsL . paramsBodyL) (ParamBodyBL body)
-
-_hasAuthType :: AuthMethod authMethod => SwaggerPetstoreRequest req contentType res accept -> P.Proxy authMethod -> SwaggerPetstoreRequest req contentType res accept
-_hasAuthType req proxy =
-  req & L.over rAuthTypesL (P.typeRep proxy :)
-
--- ** Params Utils
-
-toPath
-  :: WH.ToHttpApiData a
-  => a -> BCL.ByteString
-toPath = BB.toLazyByteString . WH.toEncodedUrlPiece
-
-toHeader :: WH.ToHttpApiData a => (NH.HeaderName, a) -> [NH.Header]
-toHeader x = [fmap WH.toHeader x]
-
-toForm :: WH.ToHttpApiData v => (BC.ByteString, v) -> WH.Form
-toForm (k,v) = WH.toForm [(BC.unpack k,v)]
-
-toQuery :: WH.ToHttpApiData a => (BC.ByteString, Maybe a) -> [NH.QueryItem]
-toQuery x = [(fmap . fmap) toQueryParam x]
-  where toQueryParam = T.encodeUtf8 . WH.toQueryParam
-
--- *** Swagger `CollectionFormat` Utils
-
--- | Determines the format of the array if type array is used.
-data CollectionFormat
-  = CommaSeparated -- ^ CSV format for multiple parameters.
-  | SpaceSeparated -- ^ Also called "SSV"
-  | TabSeparated -- ^ Also called "TSV"
-  | PipeSeparated -- ^ `value1|value2|value2`
-  | MultiParamArray -- ^ Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('WH.Form')
-
-toHeaderColl :: WH.ToHttpApiData a => CollectionFormat -> (NH.HeaderName, [a]) -> [NH.Header]
-toHeaderColl c xs = _toColl c toHeader xs
-
-toFormColl :: WH.ToHttpApiData v => CollectionFormat -> (BC.ByteString, [v]) -> WH.Form
-toFormColl c xs = WH.toForm $ fmap unpack $ _toColl c toHeader $ pack xs
-  where
-    pack (k,v) = (CI.mk k, v)
-    unpack (k,v) = (BC.unpack (CI.original k), BC.unpack v)
-
-toQueryColl :: WH.ToHttpApiData a => CollectionFormat -> (BC.ByteString, Maybe [a]) -> NH.Query
-toQueryColl c xs = _toCollA c toQuery xs
-
-_toColl :: P.Traversable f => CollectionFormat -> (f a -> [(b, BC.ByteString)]) -> f [a] -> [(b, BC.ByteString)]
-_toColl c encode xs = fmap (fmap P.fromJust) (_toCollA' c fencode BC.singleton (fmap Just xs))
-  where fencode = fmap (fmap Just) . encode . fmap P.fromJust
-        {-# INLINE fencode #-}
-
-_toCollA :: (P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t BC.ByteString)]) -> f (t [a]) -> [(b, t BC.ByteString)]
-_toCollA c encode xs = _toCollA' c encode BC.singleton xs
-
-_toCollA' :: (P.Monoid c, P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t c)]) -> (Char -> c) -> f (t [a]) -> [(b, t c)]
-_toCollA' c encode one xs = case c of
-  CommaSeparated -> go (one ',')
-  SpaceSeparated -> go (one ' ')
-  TabSeparated -> go (one '\t')
-  PipeSeparated -> go (one '|')
-  MultiParamArray -> expandList
-  where
-    go sep =
-      [P.foldl1 (\(sk, sv) (_, v) -> (sk, (combine sep <$> sv <*> v) <|> sv <|> v)) expandList]
-    combine sep x y = x <> sep <> y
-    expandList = (P.concatMap encode . (P.traverse . P.traverse) P.toList) xs
-    {-# INLINE go #-}
-    {-# INLINE expandList #-}
-    {-# INLINE combine #-}
-  
--- * AuthMethods
-
--- | Provides a method to apply auth methods to requests
-class P.Typeable a =>
-      AuthMethod a  where
-  applyAuthMethod
-    :: SwaggerPetstoreConfig
-    -> a
-    -> SwaggerPetstoreRequest req contentType res accept
-    -> IO (SwaggerPetstoreRequest req contentType res accept)
-
--- | An existential wrapper for any AuthMethod
-data AnyAuthMethod = forall a. AuthMethod a => AnyAuthMethod a deriving (P.Typeable)
-
-instance AuthMethod AnyAuthMethod where applyAuthMethod config (AnyAuthMethod a) req = applyAuthMethod config a req
-
--- | indicates exceptions related to AuthMethods
-data AuthMethodException = AuthMethodException String deriving (P.Show, P.Typeable)
-
-instance E.Exception AuthMethodException
-
--- | apply all matching AuthMethods in config to request
-_applyAuthMethods
-  :: SwaggerPetstoreRequest req contentType res accept
-  -> SwaggerPetstoreConfig
-  -> IO (SwaggerPetstoreRequest req contentType res accept)
-_applyAuthMethods req config@(SwaggerPetstoreConfig {configAuthMethods = as}) =
-  foldlM go req as
-  where
-    go r (AnyAuthMethod a) = applyAuthMethod config a r
-  
--- * Utils
-
--- | Removes Null fields.  (OpenAPI-Specification 2.0 does not allow Null in JSON)
-_omitNulls :: [(Text, A.Value)] -> A.Value
-_omitNulls = A.object . P.filter notNull
-  where
-    notNull (_, A.Null) = False
-    notNull _ = True
-
--- | Encodes fields using WH.toQueryParam
-_toFormItem :: (WH.ToHttpApiData a, Functor f) => t -> f a -> f (t, [Text])
-_toFormItem name x = (name,) . (:[]) . WH.toQueryParam <$> x
-
--- | Collapse (Just "") to Nothing
-_emptyToNothing :: Maybe String -> Maybe String
-_emptyToNothing (Just "") = Nothing
-_emptyToNothing x = x
-{-# INLINE _emptyToNothing #-}
-
--- | Collapse (Just mempty) to Nothing
-_memptyToNothing :: (P.Monoid a, P.Eq a) => Maybe a -> Maybe a
-_memptyToNothing (Just x) | x P.== P.mempty = Nothing
-_memptyToNothing x = x
-{-# INLINE _memptyToNothing #-}
-
--- * DateTime Formatting
-
-newtype DateTime = DateTime { unDateTime :: TI.UTCTime }
-  deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData,TI.ParseTime,TI.FormatTime)
-instance A.FromJSON DateTime where
-  parseJSON = A.withText "DateTime" (_readDateTime . T.unpack)
-instance A.ToJSON DateTime where
-  toJSON (DateTime t) = A.toJSON (_showDateTime t)
-instance WH.FromHttpApiData DateTime where
-  parseUrlPiece = P.left T.pack . _readDateTime . T.unpack
-instance WH.ToHttpApiData DateTime where
-  toUrlPiece (DateTime t) = T.pack (_showDateTime t)
-instance P.Show DateTime where
-  show (DateTime t) = _showDateTime t
-instance MimeRender MimeMultipartFormData DateTime where
-  mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | @_parseISO8601@
-_readDateTime :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
-_readDateTime =
-  _parseISO8601
-{-# INLINE _readDateTime #-}
-
--- | @TI.formatISO8601Millis@
-_showDateTime :: (t ~ TI.UTCTime, TI.FormatTime t) => t -> String
-_showDateTime =
-  TI.formatISO8601Millis
-{-# INLINE _showDateTime #-}
-
--- | parse an ISO8601 date-time string
-_parseISO8601 :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
-_parseISO8601 t =
-  P.asum $
-  P.flip (TI.parseTimeM True TI.defaultTimeLocale) t <$>
-  ["%FT%T%QZ", "%FT%T%Q%z", "%FT%T%Q%Z"]
-{-# INLINE _parseISO8601 #-}
-
--- * Date Formatting
-
-newtype Date = Date { unDate :: TI.Day }
-  deriving (P.Enum,P.Eq,P.Data,P.Ord,P.Ix,NF.NFData,TI.ParseTime,TI.FormatTime)
-instance A.FromJSON Date where
-  parseJSON = A.withText "Date" (_readDate . T.unpack)
-instance A.ToJSON Date where
-  toJSON (Date t) = A.toJSON (_showDate t)
-instance WH.FromHttpApiData Date where
-  parseUrlPiece = P.left T.pack . _readDate . T.unpack
-instance WH.ToHttpApiData Date where
-  toUrlPiece (Date t) = T.pack (_showDate t)
-instance P.Show Date where
-  show (Date t) = _showDate t
-instance MimeRender MimeMultipartFormData Date where
-  mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@
-_readDate :: (TI.ParseTime t, Monad m) => String -> m t
-_readDate =
-  TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"
-{-# INLINE _readDate #-}
-
--- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@
-_showDate :: TI.FormatTime t => t -> String
-_showDate =
-  TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"
-{-# INLINE _showDate #-}
-
--- * Byte/Binary Formatting
-
-  
--- | base64 encoded characters
-newtype ByteArray = ByteArray { unByteArray :: BL.ByteString }
-  deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
-
-instance A.FromJSON ByteArray where
-  parseJSON = A.withText "ByteArray" _readByteArray
-instance A.ToJSON ByteArray where
-  toJSON = A.toJSON . _showByteArray
-instance WH.FromHttpApiData ByteArray where
-  parseUrlPiece = P.left T.pack . _readByteArray
-instance WH.ToHttpApiData ByteArray where
-  toUrlPiece = _showByteArray
-instance P.Show ByteArray where
-  show = T.unpack . _showByteArray
-instance MimeRender MimeMultipartFormData ByteArray where
-  mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | read base64 encoded characters
-_readByteArray :: Monad m => Text -> m ByteArray
-_readByteArray = P.either P.fail (pure . ByteArray) . BL64.decode . BL.fromStrict . T.encodeUtf8
-{-# INLINE _readByteArray #-}
-
--- | show base64 encoded characters
-_showByteArray :: ByteArray -> Text
-_showByteArray = T.decodeUtf8 . BL.toStrict . BL64.encode . unByteArray
-{-# INLINE _showByteArray #-}
-
--- | any sequence of octets
-newtype Binary = Binary { unBinary :: BL.ByteString }
-  deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
-
-instance A.FromJSON Binary where
-  parseJSON = A.withText "Binary" _readBinaryBase64
-instance A.ToJSON Binary where
-  toJSON = A.toJSON . _showBinaryBase64
-instance WH.FromHttpApiData Binary where
-  parseUrlPiece = P.left T.pack . _readBinaryBase64
-instance WH.ToHttpApiData Binary where
-  toUrlPiece = _showBinaryBase64
-instance P.Show Binary where
-  show = T.unpack . _showBinaryBase64
-instance MimeRender MimeMultipartFormData Binary where
-  mimeRender _ = unBinary
-
-_readBinaryBase64 :: Monad m => Text -> m Binary
-_readBinaryBase64 = P.either P.fail (pure . Binary) . BL64.decode . BL.fromStrict . T.encodeUtf8
-{-# INLINE _readBinaryBase64 #-}
-
-_showBinaryBase64 :: Binary -> Text
-_showBinaryBase64 = T.decodeUtf8 . BL.toStrict . BL64.encode . unBinary
-{-# INLINE _showBinaryBase64 #-}
-
--- * Lens Type Aliases
-
-type Lens_' s a = Lens_ s s a a
-type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t
-
    
\ No newline at end of file
+_setContentTypeHeader :: forall req contentType res accept. MimeType contentType => OpenAPIPetstoreRequest req contentType res accept -> OpenAPIPetstoreRequest req contentType res accept
+_setContentTypeHeader req =
+    case mimeType (P.Proxy :: P.Proxy contentType) of 
+        Just m -> req `setHeader` [("content-type", BC.pack $ P.show m)]
+        Nothing -> req `removeHeader` ["content-type"]
+
+_setAcceptHeader :: forall req contentType res accept. MimeType accept => OpenAPIPetstoreRequest req contentType res accept -> OpenAPIPetstoreRequest req contentType res accept
+_setAcceptHeader req =
+    case mimeType (P.Proxy :: P.Proxy accept) of 
+        Just m -> req `setHeader` [("accept", BC.pack $ P.show m)]
+        Nothing -> req `removeHeader` ["accept"]
+
+setQuery :: OpenAPIPetstoreRequest req contentType res accept -> [NH.QueryItem] -> OpenAPIPetstoreRequest req contentType res accept
+setQuery req query = 
+  req &
+  L.over
+    (rParamsL . paramsQueryL)
+    ((query P.++) . P.filter (\q -> cifst q `P.notElem` P.fmap cifst query))
+  where
+    cifst = CI.mk . P.fst
+
+addForm :: OpenAPIPetstoreRequest req contentType res accept -> WH.Form -> OpenAPIPetstoreRequest req contentType res accept
+addForm req newform = 
+    let form = case paramsBody (rParams req) of
+            ParamBodyFormUrlEncoded _form -> _form
+            _ -> mempty
+    in req & L.set (rParamsL . paramsBodyL) (ParamBodyFormUrlEncoded (newform <> form))
+
+_addMultiFormPart :: OpenAPIPetstoreRequest req contentType res accept -> NH.Part -> OpenAPIPetstoreRequest req contentType res accept
+_addMultiFormPart req newpart = 
+    let parts = case paramsBody (rParams req) of
+            ParamBodyMultipartFormData _parts -> _parts
+            _ -> []
+    in req & L.set (rParamsL . paramsBodyL) (ParamBodyMultipartFormData (newpart : parts))
+
+_setBodyBS :: OpenAPIPetstoreRequest req contentType res accept -> B.ByteString -> OpenAPIPetstoreRequest req contentType res accept
+_setBodyBS req body = 
+    req & L.set (rParamsL . paramsBodyL) (ParamBodyB body)
+
+_setBodyLBS :: OpenAPIPetstoreRequest req contentType res accept -> BL.ByteString -> OpenAPIPetstoreRequest req contentType res accept
+_setBodyLBS req body = 
+    req & L.set (rParamsL . paramsBodyL) (ParamBodyBL body)
+
+_hasAuthType :: AuthMethod authMethod => OpenAPIPetstoreRequest req contentType res accept -> P.Proxy authMethod -> OpenAPIPetstoreRequest req contentType res accept
+_hasAuthType req proxy =
+  req & L.over rAuthTypesL (P.typeRep proxy :)
+
+-- ** Params Utils
+
+toPath
+  :: WH.ToHttpApiData a
+  => a -> BCL.ByteString
+toPath = BB.toLazyByteString . WH.toEncodedUrlPiece
+
+toHeader :: WH.ToHttpApiData a => (NH.HeaderName, a) -> [NH.Header]
+toHeader x = [fmap WH.toHeader x]
+
+toForm :: WH.ToHttpApiData v => (BC.ByteString, v) -> WH.Form
+toForm (k,v) = WH.toForm [(BC.unpack k,v)]
+
+toQuery :: WH.ToHttpApiData a => (BC.ByteString, Maybe a) -> [NH.QueryItem]
+toQuery x = [(fmap . fmap) toQueryParam x]
+  where toQueryParam = T.encodeUtf8 . WH.toQueryParam
+
+-- *** OpenAPI `CollectionFormat` Utils
+
+-- | Determines the format of the array if type array is used.
+data CollectionFormat
+  = CommaSeparated -- ^ CSV format for multiple parameters.
+  | SpaceSeparated -- ^ Also called "SSV"
+  | TabSeparated -- ^ Also called "TSV"
+  | PipeSeparated -- ^ `value1|value2|value2`
+  | MultiParamArray -- ^ Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('WH.Form')
+
+toHeaderColl :: WH.ToHttpApiData a => CollectionFormat -> (NH.HeaderName, [a]) -> [NH.Header]
+toHeaderColl c xs = _toColl c toHeader xs
+
+toFormColl :: WH.ToHttpApiData v => CollectionFormat -> (BC.ByteString, [v]) -> WH.Form
+toFormColl c xs = WH.toForm $ fmap unpack $ _toColl c toHeader $ pack xs
+  where
+    pack (k,v) = (CI.mk k, v)
+    unpack (k,v) = (BC.unpack (CI.original k), BC.unpack v)
+
+toQueryColl :: WH.ToHttpApiData a => CollectionFormat -> (BC.ByteString, Maybe [a]) -> NH.Query
+toQueryColl c xs = _toCollA c toQuery xs
+
+_toColl :: P.Traversable f => CollectionFormat -> (f a -> [(b, BC.ByteString)]) -> f [a] -> [(b, BC.ByteString)]
+_toColl c encode xs = fmap (fmap P.fromJust) (_toCollA' c fencode BC.singleton (fmap Just xs))
+  where fencode = fmap (fmap Just) . encode . fmap P.fromJust
+        {-# INLINE fencode #-}
+
+_toCollA :: (P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t BC.ByteString)]) -> f (t [a]) -> [(b, t BC.ByteString)]
+_toCollA c encode xs = _toCollA' c encode BC.singleton xs
+
+_toCollA' :: (P.Monoid c, P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t c)]) -> (Char -> c) -> f (t [a]) -> [(b, t c)]
+_toCollA' c encode one xs = case c of
+  CommaSeparated -> go (one ',')
+  SpaceSeparated -> go (one ' ')
+  TabSeparated -> go (one '\t')
+  PipeSeparated -> go (one '|')
+  MultiParamArray -> expandList
+  where
+    go sep =
+      [P.foldl1 (\(sk, sv) (_, v) -> (sk, (combine sep <$> sv <*> v) <|> sv <|> v)) expandList]
+    combine sep x y = x <> sep <> y
+    expandList = (P.concatMap encode . (P.traverse . P.traverse) P.toList) xs
+    {-# INLINE go #-}
+    {-# INLINE expandList #-}
+    {-# INLINE combine #-}
+  
+-- * AuthMethods
+
+-- | Provides a method to apply auth methods to requests
+class P.Typeable a =>
+      AuthMethod a  where
+  applyAuthMethod
+    :: OpenAPIPetstoreConfig
+    -> a
+    -> OpenAPIPetstoreRequest req contentType res accept
+    -> IO (OpenAPIPetstoreRequest req contentType res accept)
+
+-- | An existential wrapper for any AuthMethod
+data AnyAuthMethod = forall a. AuthMethod a => AnyAuthMethod a deriving (P.Typeable)
+
+instance AuthMethod AnyAuthMethod where applyAuthMethod config (AnyAuthMethod a) req = applyAuthMethod config a req
+
+-- | indicates exceptions related to AuthMethods
+data AuthMethodException = AuthMethodException String deriving (P.Show, P.Typeable)
+
+instance E.Exception AuthMethodException
+
+-- | apply all matching AuthMethods in config to request
+_applyAuthMethods
+  :: OpenAPIPetstoreRequest req contentType res accept
+  -> OpenAPIPetstoreConfig
+  -> IO (OpenAPIPetstoreRequest req contentType res accept)
+_applyAuthMethods req config@(OpenAPIPetstoreConfig {configAuthMethods = as}) =
+  foldlM go req as
+  where
+    go r (AnyAuthMethod a) = applyAuthMethod config a r
+  
+-- * Utils
+
+-- | Removes Null fields.  (OpenAPI-Specification 2.0 does not allow Null in JSON)
+_omitNulls :: [(Text, A.Value)] -> A.Value
+_omitNulls = A.object . P.filter notNull
+  where
+    notNull (_, A.Null) = False
+    notNull _ = True
+
+-- | Encodes fields using WH.toQueryParam
+_toFormItem :: (WH.ToHttpApiData a, Functor f) => t -> f a -> f (t, [Text])
+_toFormItem name x = (name,) . (:[]) . WH.toQueryParam <$> x
+
+-- | Collapse (Just "") to Nothing
+_emptyToNothing :: Maybe String -> Maybe String
+_emptyToNothing (Just "") = Nothing
+_emptyToNothing x = x
+{-# INLINE _emptyToNothing #-}
+
+-- | Collapse (Just mempty) to Nothing
+_memptyToNothing :: (P.Monoid a, P.Eq a) => Maybe a -> Maybe a
+_memptyToNothing (Just x) | x P.== P.mempty = Nothing
+_memptyToNothing x = x
+{-# INLINE _memptyToNothing #-}
+
+-- * DateTime Formatting
+
+newtype DateTime = DateTime { unDateTime :: TI.UTCTime }
+  deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData,TI.ParseTime,TI.FormatTime)
+instance A.FromJSON DateTime where
+  parseJSON = A.withText "DateTime" (_readDateTime . T.unpack)
+instance A.ToJSON DateTime where
+  toJSON (DateTime t) = A.toJSON (_showDateTime t)
+instance WH.FromHttpApiData DateTime where
+  parseUrlPiece = P.left T.pack . _readDateTime . T.unpack
+instance WH.ToHttpApiData DateTime where
+  toUrlPiece (DateTime t) = T.pack (_showDateTime t)
+instance P.Show DateTime where
+  show (DateTime t) = _showDateTime t
+instance MimeRender MimeMultipartFormData DateTime where
+  mimeRender _ = mimeRenderDefaultMultipartFormData
+
+-- | @_parseISO8601@
+_readDateTime :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
+_readDateTime =
+  _parseISO8601
+{-# INLINE _readDateTime #-}
+
+-- | @TI.formatISO8601Millis@
+_showDateTime :: (t ~ TI.UTCTime, TI.FormatTime t) => t -> String
+_showDateTime =
+  TI.formatISO8601Millis
+{-# INLINE _showDateTime #-}
+
+-- | parse an ISO8601 date-time string
+_parseISO8601 :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
+_parseISO8601 t =
+  P.asum $
+  P.flip (TI.parseTimeM True TI.defaultTimeLocale) t <$>
+  ["%FT%T%QZ", "%FT%T%Q%z", "%FT%T%Q%Z"]
+{-# INLINE _parseISO8601 #-}
+
+-- * Date Formatting
+
+newtype Date = Date { unDate :: TI.Day }
+  deriving (P.Enum,P.Eq,P.Data,P.Ord,P.Ix,NF.NFData,TI.ParseTime,TI.FormatTime)
+instance A.FromJSON Date where
+  parseJSON = A.withText "Date" (_readDate . T.unpack)
+instance A.ToJSON Date where
+  toJSON (Date t) = A.toJSON (_showDate t)
+instance WH.FromHttpApiData Date where
+  parseUrlPiece = P.left T.pack . _readDate . T.unpack
+instance WH.ToHttpApiData Date where
+  toUrlPiece (Date t) = T.pack (_showDate t)
+instance P.Show Date where
+  show (Date t) = _showDate t
+instance MimeRender MimeMultipartFormData Date where
+  mimeRender _ = mimeRenderDefaultMultipartFormData
+
+-- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@
+_readDate :: (TI.ParseTime t, Monad m) => String -> m t
+_readDate =
+  TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"
+{-# INLINE _readDate #-}
+
+-- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@
+_showDate :: TI.FormatTime t => t -> String
+_showDate =
+  TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"
+{-# INLINE _showDate #-}
+
+-- * Byte/Binary Formatting
+
+  
+-- | base64 encoded characters
+newtype ByteArray = ByteArray { unByteArray :: BL.ByteString }
+  deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
+
+instance A.FromJSON ByteArray where
+  parseJSON = A.withText "ByteArray" _readByteArray
+instance A.ToJSON ByteArray where
+  toJSON = A.toJSON . _showByteArray
+instance WH.FromHttpApiData ByteArray where
+  parseUrlPiece = P.left T.pack . _readByteArray
+instance WH.ToHttpApiData ByteArray where
+  toUrlPiece = _showByteArray
+instance P.Show ByteArray where
+  show = T.unpack . _showByteArray
+instance MimeRender MimeMultipartFormData ByteArray where
+  mimeRender _ = mimeRenderDefaultMultipartFormData
+
+-- | read base64 encoded characters
+_readByteArray :: Monad m => Text -> m ByteArray
+_readByteArray = P.either P.fail (pure . ByteArray) . BL64.decode . BL.fromStrict . T.encodeUtf8
+{-# INLINE _readByteArray #-}
+
+-- | show base64 encoded characters
+_showByteArray :: ByteArray -> Text
+_showByteArray = T.decodeUtf8 . BL.toStrict . BL64.encode . unByteArray
+{-# INLINE _showByteArray #-}
+
+-- | any sequence of octets
+newtype Binary = Binary { unBinary :: BL.ByteString }
+  deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData)
+
+instance A.FromJSON Binary where
+  parseJSON = A.withText "Binary" _readBinaryBase64
+instance A.ToJSON Binary where
+  toJSON = A.toJSON . _showBinaryBase64
+instance WH.FromHttpApiData Binary where
+  parseUrlPiece = P.left T.pack . _readBinaryBase64
+instance WH.ToHttpApiData Binary where
+  toUrlPiece = _showBinaryBase64
+instance P.Show Binary where
+  show = T.unpack . _showBinaryBase64
+instance MimeRender MimeMultipartFormData Binary where
+  mimeRender _ = unBinary
+
+_readBinaryBase64 :: Monad m => Text -> m Binary
+_readBinaryBase64 = P.either P.fail (pure . Binary) . BL64.decode . BL.fromStrict . T.encodeUtf8
+{-# INLINE _readBinaryBase64 #-}
+
+_showBinaryBase64 :: Binary -> Text
+_showBinaryBase64 = T.decodeUtf8 . BL.toStrict . BL64.encode . unBinary
+{-# INLINE _showBinaryBase64 #-}
+
+-- * Lens Type Aliases
+
+type Lens_' s a = Lens_ s s a a
+type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t
+
    
\ No newline at end of file
diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Logging.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Logging.html
similarity index 61%
rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Logging.html
rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Logging.html
index 03821a25847..96524949f8c 100644
--- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Logging.html
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Logging.html
@@ -1,120 +1,119 @@
 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.Logging
+
+{-|
+Module : OpenAPIPetstore.Logging
 Katip Logging functions
 -}
-
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RankNTypes #-}
-{-# LANGUAGE ScopedTypeVariables #-}
-
-module SwaggerPetstore.Logging where
-
-import qualified Control.Exception.Safe as E
-import qualified Control.Monad.IO.Class as P
-import qualified Control.Monad.Trans.Reader as P
-import qualified Data.Text as T
-import qualified Lens.Micro as L
-import qualified System.IO as IO
-
-import Data.Text (Text)
-import GHC.Exts (IsString(..))
-
-import qualified Katip as LG
-
--- * Type Aliases (for compatibility)
-
--- | Runs a Katip logging block with the Log environment
-type LogExecWithContext = forall m. P.MonadIO m =>
-                                    LogContext -> LogExec m
-
--- | A Katip logging block
-type LogExec m = forall a. LG.KatipT m a -> m a
-
--- | A Katip Log environment
-type LogContext = LG.LogEnv
-
--- | A Katip Log severity
-type LogLevel = LG.Severity
-
--- * default logger
-
--- | the default log environment
-initLogContext :: IO LogContext
-initLogContext = LG.initLogEnv "SwaggerPetstore" "dev"
-
--- | Runs a Katip logging block with the Log environment
-runDefaultLogExecWithContext :: LogExecWithContext
-runDefaultLogExecWithContext = LG.runKatipT
-
--- * stdout logger
-
--- | Runs a Katip logging block with the Log environment
-stdoutLoggingExec :: LogExecWithContext
-stdoutLoggingExec = runDefaultLogExecWithContext
-
--- | A Katip Log environment which targets stdout
-stdoutLoggingContext :: LogContext -> IO LogContext
-stdoutLoggingContext cxt = do
-    handleScribe <- LG.mkHandleScribe LG.ColorIfTerminal IO.stdout LG.InfoS LG.V2
-    LG.registerScribe "stdout" handleScribe LG.defaultScribeSettings cxt
-
--- * stderr logger
-
--- | Runs a Katip logging block with the Log environment
-stderrLoggingExec :: LogExecWithContext
-stderrLoggingExec = runDefaultLogExecWithContext
-
--- | A Katip Log environment which targets stderr
-stderrLoggingContext :: LogContext -> IO LogContext
-stderrLoggingContext cxt = do
-    handleScribe <- LG.mkHandleScribe LG.ColorIfTerminal IO.stderr LG.InfoS LG.V2
-    LG.registerScribe "stderr" handleScribe LG.defaultScribeSettings cxt
-
--- * Null logger
-
--- | Disables Katip logging
-runNullLogExec :: LogExecWithContext
-runNullLogExec le (LG.KatipT f) = P.runReaderT f (L.set LG.logEnvScribes mempty le)
-
--- * Log Msg
-
--- | Log a katip message
-_log :: (Applicative m, LG.Katip m) => Text -> LogLevel -> Text -> m ()
-_log src level msg = do
-  LG.logMsg (fromString $ T.unpack src) level (LG.logStr msg)
-
--- * Log Exceptions
-
--- | re-throws exceptions after logging them
-logExceptions
-  :: (LG.Katip m, E.MonadCatch m, Applicative m)
-  => Text -> m a -> m a
-logExceptions src =
-  E.handle
-    (\(e :: E.SomeException) -> do
-       _log src LG.ErrorS ((T.pack . show) e)
-       E.throw e)
-
--- * Log Level
-
-levelInfo :: LogLevel
-levelInfo = LG.InfoS
-
-levelError :: LogLevel
-levelError = LG.ErrorS
-
-levelDebug :: LogLevel
-levelDebug = LG.DebugS
-
-
    
\ No newline at end of file
+
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module OpenAPIPetstore.Logging where
+
+import qualified Control.Exception.Safe as E
+import qualified Control.Monad.IO.Class as P
+import qualified Control.Monad.Trans.Reader as P
+import qualified Data.Text as T
+import qualified Lens.Micro as L
+import qualified System.IO as IO
+
+import Data.Text (Text)
+import GHC.Exts (IsString(..))
+
+import qualified Katip as LG
+
+-- * Type Aliases (for compatibility)
+
+-- | Runs a Katip logging block with the Log environment
+type LogExecWithContext = forall m. P.MonadIO m =>
+                                    LogContext -> LogExec m
+
+-- | A Katip logging block
+type LogExec m = forall a. LG.KatipT m a -> m a
+
+-- | A Katip Log environment
+type LogContext = LG.LogEnv
+
+-- | A Katip Log severity
+type LogLevel = LG.Severity
+
+-- * default logger
+
+-- | the default log environment
+initLogContext :: IO LogContext
+initLogContext = LG.initLogEnv "OpenAPIPetstore" "dev"
+
+-- | Runs a Katip logging block with the Log environment
+runDefaultLogExecWithContext :: LogExecWithContext
+runDefaultLogExecWithContext = LG.runKatipT
+
+-- * stdout logger
+
+-- | Runs a Katip logging block with the Log environment
+stdoutLoggingExec :: LogExecWithContext
+stdoutLoggingExec = runDefaultLogExecWithContext
+
+-- | A Katip Log environment which targets stdout
+stdoutLoggingContext :: LogContext -> IO LogContext
+stdoutLoggingContext cxt = do
+    handleScribe <- LG.mkHandleScribe LG.ColorIfTerminal IO.stdout LG.InfoS LG.V2
+    LG.registerScribe "stdout" handleScribe LG.defaultScribeSettings cxt
+
+-- * stderr logger
+
+-- | Runs a Katip logging block with the Log environment
+stderrLoggingExec :: LogExecWithContext
+stderrLoggingExec = runDefaultLogExecWithContext
+
+-- | A Katip Log environment which targets stderr
+stderrLoggingContext :: LogContext -> IO LogContext
+stderrLoggingContext cxt = do
+    handleScribe <- LG.mkHandleScribe LG.ColorIfTerminal IO.stderr LG.InfoS LG.V2
+    LG.registerScribe "stderr" handleScribe LG.defaultScribeSettings cxt
+
+-- * Null logger
+
+-- | Disables Katip logging
+runNullLogExec :: LogExecWithContext
+runNullLogExec le (LG.KatipT f) = P.runReaderT f (L.set LG.logEnvScribes mempty le)
+
+-- * Log Msg
+
+-- | Log a katip message
+_log :: (Applicative m, LG.Katip m) => Text -> LogLevel -> Text -> m ()
+_log src level msg = do
+  LG.logMsg (fromString $ T.unpack src) level (LG.logStr msg)
+
+-- * Log Exceptions
+
+-- | re-throws exceptions after logging them
+logExceptions
+  :: (LG.Katip m, E.MonadCatch m, Applicative m)
+  => Text -> m a -> m a
+logExceptions src =
+  E.handle
+    (\(e :: E.SomeException) -> do
+       _log src LG.ErrorS ((T.pack . show) e)
+       E.throw e)
+
+-- * Log Level
+
+levelInfo :: LogLevel
+levelInfo = LG.InfoS
+
+levelError :: LogLevel
+levelError = LG.ErrorS
+
+levelDebug :: LogLevel
+levelDebug = LG.DebugS
+
+
    
\ No newline at end of file
diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.MimeTypes.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.MimeTypes.html
similarity index 68%
rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.MimeTypes.html
rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.MimeTypes.html
index 101065c5522..f9d9530f947 100644
--- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.MimeTypes.html
+++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.MimeTypes.html
@@ -1,205 +1,204 @@
 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.MimeTypes
+
+{-|
+Module : OpenAPIPetstore.MimeTypes
 -}
-
-{-# LANGUAGE ConstraintKinds #-}
-{-# LANGUAGE ExistentialQuantification #-}
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE ScopedTypeVariables #-}
-{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}
-
-module SwaggerPetstore.MimeTypes where
-
-import qualified Control.Arrow as P (left)
-import qualified Data.Aeson as A
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Builder as BB
-import qualified Data.ByteString.Char8 as BC
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.ByteString.Lazy.Char8 as BCL
-import qualified Data.Data as P (Typeable)
-import qualified Data.Proxy as P (Proxy(..))
-import qualified Data.String as P
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as T
-import qualified Network.HTTP.Media as ME
-import qualified Web.FormUrlEncoded as WH
-import qualified Web.HttpApiData as WH
-
-import Prelude (($), (.),(<$>),(<*>),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty)
-import qualified Prelude as P
-
--- * ContentType MimeType
-
-data ContentType a = MimeType a => ContentType { unContentType :: a }
-
--- * Accept MimeType
-
-data Accept a = MimeType a => Accept { unAccept :: a }
-
--- * Consumes Class
-
-class MimeType mtype => Consumes req mtype where
-
--- * Produces Class
-
-class MimeType mtype => Produces req mtype where
-
--- * Default Mime Types
-
-data MimeJSON = MimeJSON deriving (P.Typeable)
-data MimeXML = MimeXML deriving (P.Typeable)
-data MimePlainText = MimePlainText deriving (P.Typeable)
-data MimeFormUrlEncoded = MimeFormUrlEncoded deriving (P.Typeable)
-data MimeMultipartFormData = MimeMultipartFormData deriving (P.Typeable)
-data MimeOctetStream = MimeOctetStream deriving (P.Typeable)
-data MimeNoContent = MimeNoContent deriving (P.Typeable)
-data MimeAny = MimeAny deriving (P.Typeable)
-
--- | A type for responses without content-body.
-data NoContent = NoContent
-  deriving (P.Show, P.Eq, P.Typeable)
+
+{-# LANGUAGE ConstraintKinds #-}
+{-# LANGUAGE ExistentialQuantification #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module OpenAPIPetstore.MimeTypes where
+
+import qualified Control.Arrow as P (left)
+import qualified Data.Aeson as A
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Builder as BB
+import qualified Data.ByteString.Char8 as BC
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.ByteString.Lazy.Char8 as BCL
+import qualified Data.Data as P (Typeable)
+import qualified Data.Proxy as P (Proxy(..))
+import qualified Data.String as P
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import qualified Network.HTTP.Media as ME
+import qualified Web.FormUrlEncoded as WH
+import qualified Web.HttpApiData as WH
+
+import Prelude (($), (.),(<$>),(<*>),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty)
+import qualified Prelude as P
+
+-- * ContentType MimeType
+
+data ContentType a = MimeType a => ContentType { unContentType :: a }
+
+-- * Accept MimeType
+
+data Accept a = MimeType a => Accept { unAccept :: a }
+
+-- * Consumes Class
+
+class MimeType mtype => Consumes req mtype where
+
+-- * Produces Class
+
+class MimeType mtype => Produces req mtype where
+
+-- * Default Mime Types
+
+data MimeJSON = MimeJSON deriving (P.Typeable)
+data MimeXML = MimeXML deriving (P.Typeable)
+data MimePlainText = MimePlainText deriving (P.Typeable)
+data MimeFormUrlEncoded = MimeFormUrlEncoded deriving (P.Typeable)
+data MimeMultipartFormData = MimeMultipartFormData deriving (P.Typeable)
+data MimeOctetStream = MimeOctetStream deriving (P.Typeable)
+data MimeNoContent = MimeNoContent deriving (P.Typeable)
+data MimeAny = MimeAny deriving (P.Typeable)
+
+-- | A type for responses without content-body.
+data NoContent = NoContent
+  deriving (P.Show, P.Eq, P.Typeable)
+
 
-
--- * MimeType Class
-
-class P.Typeable mtype => MimeType mtype  where
-  {-# MINIMAL mimeType | mimeTypes #-}
-
-  mimeTypes :: P.Proxy mtype -> [ME.MediaType]
-  mimeTypes p =
-    case mimeType p of
-      Just x -> [x]
-      Nothing -> []
-
-  mimeType :: P.Proxy mtype -> Maybe ME.MediaType
-  mimeType p =
-    case mimeTypes p of
-      [] -> Nothing
-      (x:_) -> Just x
-
-  mimeType' :: mtype -> Maybe ME.MediaType
-  mimeType' _ = mimeType (P.Proxy :: P.Proxy mtype)
-  mimeTypes' :: mtype -> [ME.MediaType]
-  mimeTypes' _ = mimeTypes (P.Proxy :: P.Proxy mtype)
-
--- Default MimeType Instances
-
--- | @application/json; charset=utf-8@
-instance MimeType MimeJSON where
-  mimeType _ = Just $ P.fromString "application/json"
--- | @application/xml; charset=utf-8@
-instance MimeType MimeXML where
-  mimeType _ = Just $ P.fromString "application/xml"
--- | @application/x-www-form-urlencoded@
-instance MimeType MimeFormUrlEncoded where
-  mimeType _ = Just $ P.fromString "application/x-www-form-urlencoded"
--- | @multipart/form-data@
-instance MimeType MimeMultipartFormData where
-  mimeType _ = Just $ P.fromString "multipart/form-data"
--- | @text/plain; charset=utf-8@
-instance MimeType MimePlainText where
-  mimeType _ = Just $ P.fromString "text/plain"
--- | @application/octet-stream@
-instance MimeType MimeOctetStream where
-  mimeType _ = Just $ P.fromString "application/octet-stream"
--- | @"*/*"@
-instance MimeType MimeAny where
-  mimeType _ = Just $ P.fromString "*/*"
-instance MimeType MimeNoContent where
-  mimeType _ = Nothing
-
--- * MimeRender Class
-
-class MimeType mtype => MimeRender mtype x where
-    mimeRender  :: P.Proxy mtype -> x -> BL.ByteString
-    mimeRender' :: mtype -> x -> BL.ByteString
-    mimeRender' _ x = mimeRender (P.Proxy :: P.Proxy mtype) x
+-- * MimeType Class
+
+class P.Typeable mtype => MimeType mtype  where
+  {-# MINIMAL mimeType | mimeTypes #-}
+
+  mimeTypes :: P.Proxy mtype -> [ME.MediaType]
+  mimeTypes p =
+    case mimeType p of
+      Just x -> [x]
+      Nothing -> []
+
+  mimeType :: P.Proxy mtype -> Maybe ME.MediaType
+  mimeType p =
+    case mimeTypes p of
+      [] -> Nothing
+      (x:_) -> Just x
+
+  mimeType' :: mtype -> Maybe ME.MediaType
+  mimeType' _ = mimeType (P.Proxy :: P.Proxy mtype)
+  mimeTypes' :: mtype -> [ME.MediaType]
+  mimeTypes' _ = mimeTypes (P.Proxy :: P.Proxy mtype)
+
+-- Default MimeType Instances
+
+-- | @application/json; charset=utf-8@
+instance MimeType MimeJSON where
+  mimeType _ = Just $ P.fromString "application/json"
+-- | @application/xml; charset=utf-8@
+instance MimeType MimeXML where
+  mimeType _ = Just $ P.fromString "application/xml"
+-- | @application/x-www-form-urlencoded@
+instance MimeType MimeFormUrlEncoded where
+  mimeType _ = Just $ P.fromString "application/x-www-form-urlencoded"
+-- | @multipart/form-data@
+instance MimeType MimeMultipartFormData where
+  mimeType _ = Just $ P.fromString "multipart/form-data"
+-- | @text/plain; charset=utf-8@
+instance MimeType MimePlainText where
+  mimeType _ = Just $ P.fromString "text/plain"
+-- | @application/octet-stream@
+instance MimeType MimeOctetStream where
+  mimeType _ = Just $ P.fromString "application/octet-stream"
+-- | @"*/*"@
+instance MimeType MimeAny where
+  mimeType _ = Just $ P.fromString "*/*"
+instance MimeType MimeNoContent where
+  mimeType _ = Nothing
+
+-- * MimeRender Class
+
+class MimeType mtype => MimeRender mtype x where
+    mimeRender  :: P.Proxy mtype -> x -> BL.ByteString
+    mimeRender' :: mtype -> x -> BL.ByteString
+    mimeRender' _ x = mimeRender (P.Proxy :: P.Proxy mtype) x
+
 
-
-mimeRenderDefaultMultipartFormData :: WH.ToHttpApiData a => a -> BL.ByteString
-mimeRenderDefaultMultipartFormData = BL.fromStrict . T.encodeUtf8 . WH.toQueryParam
-
--- Default MimeRender Instances
-
--- | `A.encode`
-instance A.ToJSON a => MimeRender MimeJSON a where mimeRender _ = A.encode
--- | @WH.urlEncodeAsForm@
-instance WH.ToForm a => MimeRender MimeFormUrlEncoded a where mimeRender _ = WH.urlEncodeAsForm
-
--- | @P.id@
-instance MimeRender MimePlainText BL.ByteString where mimeRender _ = P.id
--- | @BL.fromStrict . T.encodeUtf8@
-instance MimeRender MimePlainText T.Text where mimeRender _ = BL.fromStrict . T.encodeUtf8
--- | @BCL.pack@
-instance MimeRender MimePlainText String where mimeRender _ = BCL.pack
-
--- | @P.id@
-instance MimeRender MimeOctetStream BL.ByteString where mimeRender _ = P.id
--- | @BL.fromStrict . T.encodeUtf8@
-instance MimeRender MimeOctetStream T.Text where mimeRender _ = BL.fromStrict . T.encodeUtf8
--- | @BCL.pack@
-instance MimeRender MimeOctetStream String where mimeRender _ = BCL.pack
-
-instance MimeRender MimeMultipartFormData BL.ByteString where mimeRender _ = P.id
-
-instance MimeRender MimeMultipartFormData Bool where mimeRender _ = mimeRenderDefaultMultipartFormData
-instance MimeRender MimeMultipartFormData Char where mimeRender _ = mimeRenderDefaultMultipartFormData
-instance MimeRender MimeMultipartFormData Double where mimeRender _ = mimeRenderDefaultMultipartFormData
-instance MimeRender MimeMultipartFormData Float where mimeRender _ = mimeRenderDefaultMultipartFormData
-instance MimeRender MimeMultipartFormData Int where mimeRender _ = mimeRenderDefaultMultipartFormData
-instance MimeRender MimeMultipartFormData Integer where mimeRender _ = mimeRenderDefaultMultipartFormData
-instance MimeRender MimeMultipartFormData String where mimeRender _ = mimeRenderDefaultMultipartFormData
-instance MimeRender MimeMultipartFormData T.Text where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | @P.Right . P.const NoContent@
-instance MimeRender MimeNoContent NoContent where mimeRender _ = P.const BCL.empty
+mimeRenderDefaultMultipartFormData :: WH.ToHttpApiData a => a -> BL.ByteString
+mimeRenderDefaultMultipartFormData = BL.fromStrict . T.encodeUtf8 . WH.toQueryParam
+
+-- Default MimeRender Instances
+
+-- | `A.encode`
+instance A.ToJSON a => MimeRender MimeJSON a where mimeRender _ = A.encode
+-- | @WH.urlEncodeAsForm@
+instance WH.ToForm a => MimeRender MimeFormUrlEncoded a where mimeRender _ = WH.urlEncodeAsForm
+
+-- | @P.id@
+instance MimeRender MimePlainText BL.ByteString where mimeRender _ = P.id
+-- | @BL.fromStrict . T.encodeUtf8@
+instance MimeRender MimePlainText T.Text where mimeRender _ = BL.fromStrict . T.encodeUtf8
+-- | @BCL.pack@
+instance MimeRender MimePlainText String where mimeRender _ = BCL.pack
+
+-- | @P.id@
+instance MimeRender MimeOctetStream BL.ByteString where mimeRender _ = P.id
+-- | @BL.fromStrict . T.encodeUtf8@
+instance MimeRender MimeOctetStream T.Text where mimeRender _ = BL.fromStrict . T.encodeUtf8
+-- | @BCL.pack@
+instance MimeRender MimeOctetStream String where mimeRender _ = BCL.pack
+
+instance MimeRender MimeMultipartFormData BL.ByteString where mimeRender _ = P.id
+
+instance MimeRender MimeMultipartFormData Bool where mimeRender _ = mimeRenderDefaultMultipartFormData
+instance MimeRender MimeMultipartFormData Char where mimeRender _ = mimeRenderDefaultMultipartFormData
+instance MimeRender MimeMultipartFormData Double where mimeRender _ = mimeRenderDefaultMultipartFormData
+instance MimeRender MimeMultipartFormData Float where mimeRender _ = mimeRenderDefaultMultipartFormData
+instance MimeRender MimeMultipartFormData Int where mimeRender _ = mimeRenderDefaultMultipartFormData
+instance MimeRender MimeMultipartFormData Integer where mimeRender _ = mimeRenderDefaultMultipartFormData
+instance MimeRender MimeMultipartFormData String where mimeRender _ = mimeRenderDefaultMultipartFormData
+instance MimeRender MimeMultipartFormData T.Text where mimeRender _ = mimeRenderDefaultMultipartFormData
+
+-- | @P.Right . P.const NoContent@
+instance MimeRender MimeNoContent NoContent where mimeRender _ = P.const BCL.empty
+
 
-
--- * MimeUnrender Class
-
-class MimeType mtype => MimeUnrender mtype o where
-    mimeUnrender :: P.Proxy mtype -> BL.ByteString -> P.Either String o
-    mimeUnrender' :: mtype -> BL.ByteString -> P.Either String o
-    mimeUnrender' _ x = mimeUnrender (P.Proxy :: P.Proxy mtype) x
-
--- Default MimeUnrender Instances
-
--- | @A.eitherDecode@
-instance A.FromJSON a => MimeUnrender MimeJSON a where mimeUnrender _ = A.eitherDecode
--- | @P.left T.unpack . WH.urlDecodeAsForm@
-instance WH.FromForm a => MimeUnrender MimeFormUrlEncoded a where mimeUnrender _ = P.left T.unpack . WH.urlDecodeAsForm
--- | @P.Right . P.id@
-
-instance MimeUnrender MimePlainText BL.ByteString where mimeUnrender _ = P.Right . P.id
--- | @P.left P.show . TL.decodeUtf8'@
-instance MimeUnrender MimePlainText T.Text where mimeUnrender _ = P.left P.show . T.decodeUtf8' . BL.toStrict
--- | @P.Right . BCL.unpack@
-instance MimeUnrender MimePlainText String where mimeUnrender _ = P.Right . BCL.unpack
-
--- | @P.Right . P.id@
-instance MimeUnrender MimeOctetStream BL.ByteString where mimeUnrender _ = P.Right . P.id
--- | @P.left P.show . T.decodeUtf8' . BL.toStrict@
-instance MimeUnrender MimeOctetStream T.Text where mimeUnrender _ = P.left P.show . T.decodeUtf8' . BL.toStrict
--- | @P.Right . BCL.unpack@
-instance MimeUnrender MimeOctetStream String where mimeUnrender _ = P.Right . BCL.unpack
-
--- | @P.Right . P.const NoContent@
-instance MimeUnrender MimeNoContent NoContent where mimeUnrender _ = P.Right . P.const NoContent
+-- * MimeUnrender Class
+
+class MimeType mtype => MimeUnrender mtype o where
+    mimeUnrender :: P.Proxy mtype -> BL.ByteString -> P.Either String o
+    mimeUnrender' :: mtype -> BL.ByteString -> P.Either String o
+    mimeUnrender' _ x = mimeUnrender (P.Proxy :: P.Proxy mtype) x
+
+-- Default MimeUnrender Instances
+
+-- | @A.eitherDecode@
+instance A.FromJSON a => MimeUnrender MimeJSON a where mimeUnrender _ = A.eitherDecode
+-- | @P.left T.unpack . WH.urlDecodeAsForm@
+instance WH.FromForm a => MimeUnrender MimeFormUrlEncoded a where mimeUnrender _ = P.left T.unpack . WH.urlDecodeAsForm
+-- | @P.Right . P.id@
+
+instance MimeUnrender MimePlainText BL.ByteString where mimeUnrender _ = P.Right . P.id
+-- | @P.left P.show . TL.decodeUtf8'@
+instance MimeUnrender MimePlainText T.Text where mimeUnrender _ = P.left P.show . T.decodeUtf8' . BL.toStrict
+-- | @P.Right . BCL.unpack@
+instance MimeUnrender MimePlainText String where mimeUnrender _ = P.Right . BCL.unpack
+
+-- | @P.Right . P.id@
+instance MimeUnrender MimeOctetStream BL.ByteString where mimeUnrender _ = P.Right . P.id
+-- | @P.left P.show . T.decodeUtf8' . BL.toStrict@
+instance MimeUnrender MimeOctetStream T.Text where mimeUnrender _ = P.left P.show . T.decodeUtf8' . BL.toStrict
+-- | @P.Right . BCL.unpack@
+instance MimeUnrender MimeOctetStream String where mimeUnrender _ = P.Right . BCL.unpack
+
+-- | @P.Right . P.const NoContent@
+instance MimeUnrender MimeNoContent NoContent where mimeUnrender _ = P.Right . P.const NoContent
+
 
-
-
    
\ No newline at end of file
+
    \ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Model.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Model.html similarity index 66% rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Model.html rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Model.html index 55ae9209e29..95e776370f5 100644 --- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Model.html +++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.Model.html @@ -1,1771 +1,1767 @@ 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.Model
+
+{-|
+Module : OpenAPIPetstore.Model
 -}
-
-{-# LANGUAGE DeriveDataTypeable #-}
-{-# LANGUAGE DeriveFoldable #-}
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE DeriveTraversable #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE LambdaCase #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE NamedFieldPuns #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE TupleSections #-}
-{-# LANGUAGE TypeFamilies #-}
-{-# OPTIONS_GHC -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}
-
-module SwaggerPetstore.Model where
-
-import SwaggerPetstore.Core
-import SwaggerPetstore.MimeTypes
-
-import Data.Aeson ((.:),(.:!),(.:?),(.=))
-
-import qualified Control.Arrow as P (left)
-import qualified Data.Aeson as A
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Base64 as B64
-import qualified Data.ByteString.Char8 as BC
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
-import qualified Data.Foldable as P
-import qualified Data.HashMap.Lazy as HM
-import qualified Data.Map as Map
-import qualified Data.Maybe as P
-import qualified Data.Set as Set
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as T
-import qualified Data.Time as TI
-import qualified Lens.Micro as L
-import qualified Web.FormUrlEncoded as WH
-import qualified Web.HttpApiData as WH
-
-import Control.Applicative ((<|>))
-import Control.Applicative (Alternative)
-import Data.Function ((&))
-import Data.Monoid ((<>))
-import Data.Text (Text)
-import Prelude (($),(/=),(.),(<$>),(<*>),(>>=),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
-
-import qualified Prelude as P
+
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveFoldable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveTraversable #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TupleSections #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module OpenAPIPetstore.Model where
+
+import OpenAPIPetstore.Core
+import OpenAPIPetstore.MimeTypes
+
+import Data.Aeson ((.:),(.:!),(.:?),(.=))
+
+import qualified Control.Arrow as P (left)
+import qualified Data.Aeson as A
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Base64 as B64
+import qualified Data.ByteString.Char8 as BC
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
+import qualified Data.Foldable as P
+import qualified Data.HashMap.Lazy as HM
+import qualified Data.Map as Map
+import qualified Data.Maybe as P
+import qualified Data.Set as Set
+import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
+import qualified Data.Time as TI
+import qualified Lens.Micro as L
+import qualified Web.FormUrlEncoded as WH
+import qualified Web.HttpApiData as WH
+
+import Control.Applicative ((<|>))
+import Control.Applicative (Alternative)
+import Data.Function ((&))
+import Data.Monoid ((<>))
+import Data.Text (Text)
+import Prelude (($),(/=),(.),(<$>),(<*>),(>>=),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
+
+import qualified Prelude as P
+
 
 
-
--- * Parameter newtypes
+-- * Parameter newtypes
+
 
-
--- ** AdditionalMetadata
-newtype AdditionalMetadata = AdditionalMetadata { unAdditionalMetadata :: Text } deriving (P.Eq, P.Show)
-
--- ** ApiKey
-newtype ApiKey = ApiKey { unApiKey :: Text } deriving (P.Eq, P.Show)
-
--- ** Body
-newtype Body = Body { unBody :: Double } deriving (P.Eq, P.Show, A.ToJSON)
-
--- ** BodyText
-newtype BodyText = BodyText { unBodyText :: Text } deriving (P.Eq, P.Show, A.ToJSON)
-
--- ** BooleanPostBody
-newtype BooleanPostBody = BooleanPostBody { unBooleanPostBody :: Bool } deriving (P.Eq, P.Show, A.ToJSON)
-
--- ** Byte
-newtype Byte = Byte { unByte :: ByteArray } deriving (P.Eq, P.Show)
-
--- ** Callback
-newtype Callback = Callback { unCallback :: Text } deriving (P.Eq, P.Show)
-
--- ** EnumFormString
-newtype EnumFormString = EnumFormString { unEnumFormString :: E'EnumFormString } deriving (P.Eq, P.Show)
-
--- ** EnumFormStringArray
-newtype EnumFormStringArray = EnumFormStringArray { unEnumFormStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show)
-
--- ** EnumHeaderString
-newtype EnumHeaderString = EnumHeaderString { unEnumHeaderString :: E'EnumFormString } deriving (P.Eq, P.Show)
-
--- ** EnumHeaderStringArray
-newtype EnumHeaderStringArray = EnumHeaderStringArray { unEnumHeaderStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show)
-
--- ** EnumQueryDouble
-newtype EnumQueryDouble = EnumQueryDouble { unEnumQueryDouble :: E'EnumNumber } deriving (P.Eq, P.Show)
-
--- ** EnumQueryInteger
-newtype EnumQueryInteger = EnumQueryInteger { unEnumQueryInteger :: E'EnumQueryInteger } deriving (P.Eq, P.Show)
-
--- ** EnumQueryString
-newtype EnumQueryString = EnumQueryString { unEnumQueryString :: E'EnumFormString } deriving (P.Eq, P.Show)
-
--- ** EnumQueryStringArray
-newtype EnumQueryStringArray = EnumQueryStringArray { unEnumQueryStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show)
-
--- ** File
-newtype File = File { unFile :: FilePath } deriving (P.Eq, P.Show)
-
--- ** Int32
-newtype Int32 = Int32 { unInt32 :: Int } deriving (P.Eq, P.Show)
-
--- ** Int64
-newtype Int64 = Int64 { unInt64 :: Integer } deriving (P.Eq, P.Show)
-
--- ** Name2
-newtype Name2 = Name2 { unName2 :: Text } deriving (P.Eq, P.Show)
-
--- ** Number
-newtype Number = Number { unNumber :: Double } deriving (P.Eq, P.Show)
-
--- ** OrderId
-newtype OrderId = OrderId { unOrderId :: Integer } deriving (P.Eq, P.Show)
-
--- ** OrderIdText
-newtype OrderIdText = OrderIdText { unOrderIdText :: Text } deriving (P.Eq, P.Show)
-
--- ** Param
-newtype Param = Param { unParam :: Text } deriving (P.Eq, P.Show)
-
--- ** Param2
-newtype Param2 = Param2 { unParam2 :: Text } deriving (P.Eq, P.Show)
-
--- ** ParamBinary
-newtype ParamBinary = ParamBinary { unParamBinary :: FilePath } deriving (P.Eq, P.Show)
-
--- ** ParamDate
-newtype ParamDate = ParamDate { unParamDate :: Date } deriving (P.Eq, P.Show)
-
--- ** ParamDateTime
-newtype ParamDateTime = ParamDateTime { unParamDateTime :: DateTime } deriving (P.Eq, P.Show)
-
--- ** ParamDouble
-newtype ParamDouble = ParamDouble { unParamDouble :: Double } deriving (P.Eq, P.Show)
-
--- ** ParamFloat
-newtype ParamFloat = ParamFloat { unParamFloat :: Float } deriving (P.Eq, P.Show)
-
--- ** ParamInteger
-newtype ParamInteger = ParamInteger { unParamInteger :: Int } deriving (P.Eq, P.Show)
-
--- ** ParamString
-newtype ParamString = ParamString { unParamString :: Text } deriving (P.Eq, P.Show)
-
--- ** Password
-newtype Password = Password { unPassword :: Text } deriving (P.Eq, P.Show)
-
--- ** PatternWithoutDelimiter
-newtype PatternWithoutDelimiter = PatternWithoutDelimiter { unPatternWithoutDelimiter :: Text } deriving (P.Eq, P.Show)
-
--- ** PetId
-newtype PetId = PetId { unPetId :: Integer } deriving (P.Eq, P.Show)
-
--- ** Query
-newtype Query = Query { unQuery :: Text } deriving (P.Eq, P.Show)
-
--- ** RequestBody
-newtype RequestBody = RequestBody { unRequestBody :: Text } deriving (P.Eq, P.Show, A.ToJSON)
-
--- ** Status
-newtype Status = Status { unStatus :: [E'Status2] } deriving (P.Eq, P.Show)
-
--- ** StatusText
-newtype StatusText = StatusText { unStatusText :: Text } deriving (P.Eq, P.Show)
-
--- ** Tags
-newtype Tags = Tags { unTags :: [Text] } deriving (P.Eq, P.Show)
-
--- ** User2
-newtype User2 = User2 { unUser2 :: [User] } deriving (P.Eq, P.Show, A.ToJSON)
-
--- ** Username
-newtype Username = Username { unUsername :: Text } deriving (P.Eq, P.Show)
-
--- * Models
-
-
--- ** AdditionalPropertiesClass
--- | AdditionalPropertiesClass
-data AdditionalPropertiesClass = AdditionalPropertiesClass
-  { additionalPropertiesClassMapProperty :: !(Maybe (Map.Map String Text)) -- ^ "map_property"
-  , additionalPropertiesClassMapOfMapProperty :: !(Maybe (Map.Map String (Map.Map String Text))) -- ^ "map_of_map_property"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON AdditionalPropertiesClass
-instance A.FromJSON AdditionalPropertiesClass where
-  parseJSON = A.withObject "AdditionalPropertiesClass" $ \o ->
-    AdditionalPropertiesClass
-      <$> (o .:? "map_property")
-      <*> (o .:? "map_of_map_property")
-
--- | ToJSON AdditionalPropertiesClass
-instance A.ToJSON AdditionalPropertiesClass where
-  toJSON AdditionalPropertiesClass {..} =
-   _omitNulls
-      [ "map_property" .= additionalPropertiesClassMapProperty
-      , "map_of_map_property" .= additionalPropertiesClassMapOfMapProperty
-      ]
-
-
--- | Construct a value of type 'AdditionalPropertiesClass' (by applying it's required fields, if any)
-mkAdditionalPropertiesClass
-  :: AdditionalPropertiesClass
-mkAdditionalPropertiesClass =
-  AdditionalPropertiesClass
-  { additionalPropertiesClassMapProperty = Nothing
-  , additionalPropertiesClassMapOfMapProperty = Nothing
-  }
-
--- ** Animal
--- | Animal
-data Animal = Animal
-  { animalClassName :: !(Text) -- ^ /Required/ "className"
-  , animalColor :: !(Maybe Text) -- ^ "color"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Animal
-instance A.FromJSON Animal where
-  parseJSON = A.withObject "Animal" $ \o ->
-    Animal
-      <$> (o .:  "className")
-      <*> (o .:? "color")
-
--- | ToJSON Animal
-instance A.ToJSON Animal where
-  toJSON Animal {..} =
-   _omitNulls
-      [ "className" .= animalClassName
-      , "color" .= animalColor
-      ]
-
-
--- | Construct a value of type 'Animal' (by applying it's required fields, if any)
-mkAnimal
-  :: Text -- ^ 'animalClassName' 
-  -> Animal
-mkAnimal animalClassName =
-  Animal
-  { animalClassName
-  , animalColor = Nothing
-  }
-
--- ** AnimalFarm
--- | AnimalFarm
-newtype AnimalFarm = AnimalFarm
-  { unAnimalFarm :: [Animal]
-  } deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON)
-
-
--- ** ApiResponse
--- | ApiResponse
-data ApiResponse = ApiResponse
-  { apiResponseCode :: !(Maybe Int) -- ^ "code"
-  , apiResponseType :: !(Maybe Text) -- ^ "type"
-  , apiResponseMessage :: !(Maybe Text) -- ^ "message"
-  } deriving (P.Show, P.Eq, P.Typeable)
+-- ** AdditionalMetadata
+newtype AdditionalMetadata = AdditionalMetadata { unAdditionalMetadata :: Text } deriving (P.Eq, P.Show)
+
+-- ** ApiKey
+newtype ApiKey = ApiKey { unApiKey :: Text } deriving (P.Eq, P.Show)
+
+-- ** Body
+newtype Body = Body { unBody :: Double } deriving (P.Eq, P.Show, A.ToJSON)
+
+-- ** BodyBool
+newtype BodyBool = BodyBool { unBodyBool :: Bool } deriving (P.Eq, P.Show, A.ToJSON)
+
+-- ** BodyText
+newtype BodyText = BodyText { unBodyText :: Text } deriving (P.Eq, P.Show, A.ToJSON)
+
+-- ** Byte
+newtype Byte = Byte { unByte :: ByteArray } deriving (P.Eq, P.Show)
+
+-- ** Callback
+newtype Callback = Callback { unCallback :: Text } deriving (P.Eq, P.Show)
+
+-- ** EnumFormString
+newtype EnumFormString = EnumFormString { unEnumFormString :: E'EnumFormString } deriving (P.Eq, P.Show)
+
+-- ** EnumFormStringArray
+newtype EnumFormStringArray = EnumFormStringArray { unEnumFormStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show)
+
+-- ** EnumHeaderString
+newtype EnumHeaderString = EnumHeaderString { unEnumHeaderString :: E'EnumFormString } deriving (P.Eq, P.Show)
+
+-- ** EnumHeaderStringArray
+newtype EnumHeaderStringArray = EnumHeaderStringArray { unEnumHeaderStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show)
+
+-- ** EnumQueryDouble
+newtype EnumQueryDouble = EnumQueryDouble { unEnumQueryDouble :: E'EnumNumber } deriving (P.Eq, P.Show)
+
+-- ** EnumQueryInteger
+newtype EnumQueryInteger = EnumQueryInteger { unEnumQueryInteger :: E'EnumQueryInteger } deriving (P.Eq, P.Show)
+
+-- ** EnumQueryString
+newtype EnumQueryString = EnumQueryString { unEnumQueryString :: E'EnumFormString } deriving (P.Eq, P.Show)
+
+-- ** EnumQueryStringArray
+newtype EnumQueryStringArray = EnumQueryStringArray { unEnumQueryStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show)
+
+-- ** File
+newtype File = File { unFile :: FilePath } deriving (P.Eq, P.Show)
+
+-- ** Int32
+newtype Int32 = Int32 { unInt32 :: Int } deriving (P.Eq, P.Show)
+
+-- ** Int64
+newtype Int64 = Int64 { unInt64 :: Integer } deriving (P.Eq, P.Show)
+
+-- ** Name2
+newtype Name2 = Name2 { unName2 :: Text } deriving (P.Eq, P.Show)
+
+-- ** Number
+newtype Number = Number { unNumber :: Double } deriving (P.Eq, P.Show)
+
+-- ** OrderId
+newtype OrderId = OrderId { unOrderId :: Integer } deriving (P.Eq, P.Show)
+
+-- ** OrderIdText
+newtype OrderIdText = OrderIdText { unOrderIdText :: Text } deriving (P.Eq, P.Show)
+
+-- ** Param
+newtype Param = Param { unParam :: Text } deriving (P.Eq, P.Show)
+
+-- ** Param2
+newtype Param2 = Param2 { unParam2 :: Text } deriving (P.Eq, P.Show)
+
+-- ** ParamBinary
+newtype ParamBinary = ParamBinary { unParamBinary :: FilePath } deriving (P.Eq, P.Show)
+
+-- ** ParamDate
+newtype ParamDate = ParamDate { unParamDate :: Date } deriving (P.Eq, P.Show)
+
+-- ** ParamDateTime
+newtype ParamDateTime = ParamDateTime { unParamDateTime :: DateTime } deriving (P.Eq, P.Show)
+
+-- ** ParamDouble
+newtype ParamDouble = ParamDouble { unParamDouble :: Double } deriving (P.Eq, P.Show)
+
+-- ** ParamFloat
+newtype ParamFloat = ParamFloat { unParamFloat :: Float } deriving (P.Eq, P.Show)
+
+-- ** ParamInteger
+newtype ParamInteger = ParamInteger { unParamInteger :: Int } deriving (P.Eq, P.Show)
+
+-- ** ParamString
+newtype ParamString = ParamString { unParamString :: Text } deriving (P.Eq, P.Show)
+
+-- ** Password
+newtype Password = Password { unPassword :: Text } deriving (P.Eq, P.Show)
+
+-- ** PatternWithoutDelimiter
+newtype PatternWithoutDelimiter = PatternWithoutDelimiter { unPatternWithoutDelimiter :: Text } deriving (P.Eq, P.Show)
+
+-- ** PetId
+newtype PetId = PetId { unPetId :: Integer } deriving (P.Eq, P.Show)
+
+-- ** RequestBody
+newtype RequestBody = RequestBody { unRequestBody :: (Map.Map String Text) } deriving (P.Eq, P.Show, A.ToJSON)
+
+-- ** Status
+newtype Status = Status { unStatus :: [E'Status2] } deriving (P.Eq, P.Show)
+
+-- ** StatusText
+newtype StatusText = StatusText { unStatusText :: Text } deriving (P.Eq, P.Show)
+
+-- ** Tags
+newtype Tags = Tags { unTags :: [Text] } deriving (P.Eq, P.Show)
+
+-- ** User2
+newtype User2 = User2 { unUser2 :: [User] } deriving (P.Eq, P.Show, A.ToJSON)
+
+-- ** Username
+newtype Username = Username { unUsername :: Text } deriving (P.Eq, P.Show)
+
+-- * Models
+
+
+-- ** AdditionalPropertiesClass
+-- | AdditionalPropertiesClass
+data AdditionalPropertiesClass = AdditionalPropertiesClass
+  { additionalPropertiesClassMapProperty :: !(Maybe (Map.Map String Text)) -- ^ "map_property"
+  , additionalPropertiesClassMapOfMapProperty :: !(Maybe (Map.Map String (Map.Map String Text))) -- ^ "map_of_map_property"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON AdditionalPropertiesClass
+instance A.FromJSON AdditionalPropertiesClass where
+  parseJSON = A.withObject "AdditionalPropertiesClass" $ \o ->
+    AdditionalPropertiesClass
+      <$> (o .:? "map_property")
+      <*> (o .:? "map_of_map_property")
+
+-- | ToJSON AdditionalPropertiesClass
+instance A.ToJSON AdditionalPropertiesClass where
+  toJSON AdditionalPropertiesClass {..} =
+   _omitNulls
+      [ "map_property" .= additionalPropertiesClassMapProperty
+      , "map_of_map_property" .= additionalPropertiesClassMapOfMapProperty
+      ]
+
+
+-- | Construct a value of type 'AdditionalPropertiesClass' (by applying it's required fields, if any)
+mkAdditionalPropertiesClass
+  :: AdditionalPropertiesClass
+mkAdditionalPropertiesClass =
+  AdditionalPropertiesClass
+  { additionalPropertiesClassMapProperty = Nothing
+  , additionalPropertiesClassMapOfMapProperty = Nothing
+  }
+
+-- ** Animal
+-- | Animal
+data Animal = Animal
+  { animalClassName :: !(Text) -- ^ /Required/ "className"
+  , animalColor :: !(Maybe Text) -- ^ "color"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON Animal
+instance A.FromJSON Animal where
+  parseJSON = A.withObject "Animal" $ \o ->
+    Animal
+      <$> (o .:  "className")
+      <*> (o .:? "color")
+
+-- | ToJSON Animal
+instance A.ToJSON Animal where
+  toJSON Animal {..} =
+   _omitNulls
+      [ "className" .= animalClassName
+      , "color" .= animalColor
+      ]
+
+
+-- | Construct a value of type 'Animal' (by applying it's required fields, if any)
+mkAnimal
+  :: Text -- ^ 'animalClassName' 
+  -> Animal
+mkAnimal animalClassName =
+  Animal
+  { animalClassName
+  , animalColor = Nothing
+  }
+
+-- ** AnimalFarm
+-- | AnimalFarm
+data AnimalFarm = AnimalFarm
+  { 
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON AnimalFarm
+instance A.FromJSON AnimalFarm where
+  parseJSON = A.withObject "AnimalFarm" $ \o ->
+    pure AnimalFarm
+      
+
+-- | ToJSON AnimalFarm
+instance A.ToJSON AnimalFarm where
+  toJSON AnimalFarm  =
+   _omitNulls
+      [ 
+      ]
 
--- | FromJSON ApiResponse
-instance A.FromJSON ApiResponse where
-  parseJSON = A.withObject "ApiResponse" $ \o ->
-    ApiResponse
-      <$> (o .:? "code")
-      <*> (o .:? "type")
-      <*> (o .:? "message")
-
--- | ToJSON ApiResponse
-instance A.ToJSON ApiResponse where
-  toJSON ApiResponse {..} =
-   _omitNulls
-      [ "code" .= apiResponseCode
-      , "type" .= apiResponseType
-      , "message" .= apiResponseMessage
-      ]
+
+-- | Construct a value of type 'AnimalFarm' (by applying it's required fields, if any)
+mkAnimalFarm
+  :: AnimalFarm
+mkAnimalFarm =
+  AnimalFarm
+  { 
+  }
+
+-- ** ApiResponse
+-- | ApiResponse
+data ApiResponse = ApiResponse
+  { apiResponseCode :: !(Maybe Int) -- ^ "code"
+  , apiResponseType :: !(Maybe Text) -- ^ "type"
+  , apiResponseMessage :: !(Maybe Text) -- ^ "message"
+  } deriving (P.Show, P.Eq, P.Typeable)
 
-
--- | Construct a value of type 'ApiResponse' (by applying it's required fields, if any)
-mkApiResponse
-  :: ApiResponse
-mkApiResponse =
-  ApiResponse
-  { apiResponseCode = Nothing
-  , apiResponseType = Nothing
-  , apiResponseMessage = Nothing
-  }
-
--- ** ArrayOfArrayOfNumberOnly
--- | ArrayOfArrayOfNumberOnly
-data ArrayOfArrayOfNumberOnly = ArrayOfArrayOfNumberOnly
-  { arrayOfArrayOfNumberOnlyArrayArrayNumber :: !(Maybe [[Double]]) -- ^ "ArrayArrayNumber"
-  } deriving (P.Show, P.Eq, P.Typeable)
+-- | FromJSON ApiResponse
+instance A.FromJSON ApiResponse where
+  parseJSON = A.withObject "ApiResponse" $ \o ->
+    ApiResponse
+      <$> (o .:? "code")
+      <*> (o .:? "type")
+      <*> (o .:? "message")
+
+-- | ToJSON ApiResponse
+instance A.ToJSON ApiResponse where
+  toJSON ApiResponse {..} =
+   _omitNulls
+      [ "code" .= apiResponseCode
+      , "type" .= apiResponseType
+      , "message" .= apiResponseMessage
+      ]
 
--- | FromJSON ArrayOfArrayOfNumberOnly
-instance A.FromJSON ArrayOfArrayOfNumberOnly where
-  parseJSON = A.withObject "ArrayOfArrayOfNumberOnly" $ \o ->
-    ArrayOfArrayOfNumberOnly
-      <$> (o .:? "ArrayArrayNumber")
-
--- | ToJSON ArrayOfArrayOfNumberOnly
-instance A.ToJSON ArrayOfArrayOfNumberOnly where
-  toJSON ArrayOfArrayOfNumberOnly {..} =
-   _omitNulls
-      [ "ArrayArrayNumber" .= arrayOfArrayOfNumberOnlyArrayArrayNumber
-      ]
-
-
--- | Construct a value of type 'ArrayOfArrayOfNumberOnly' (by applying it's required fields, if any)
-mkArrayOfArrayOfNumberOnly
-  :: ArrayOfArrayOfNumberOnly
-mkArrayOfArrayOfNumberOnly =
-  ArrayOfArrayOfNumberOnly
-  { arrayOfArrayOfNumberOnlyArrayArrayNumber = Nothing
-  }
-
--- ** ArrayOfNumberOnly
--- | ArrayOfNumberOnly
-data ArrayOfNumberOnly = ArrayOfNumberOnly
-  { arrayOfNumberOnlyArrayNumber :: !(Maybe [Double]) -- ^ "ArrayNumber"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON ArrayOfNumberOnly
-instance A.FromJSON ArrayOfNumberOnly where
-  parseJSON = A.withObject "ArrayOfNumberOnly" $ \o ->
-    ArrayOfNumberOnly
-      <$> (o .:? "ArrayNumber")
-
--- | ToJSON ArrayOfNumberOnly
-instance A.ToJSON ArrayOfNumberOnly where
-  toJSON ArrayOfNumberOnly {..} =
-   _omitNulls
-      [ "ArrayNumber" .= arrayOfNumberOnlyArrayNumber
-      ]
-
-
--- | Construct a value of type 'ArrayOfNumberOnly' (by applying it's required fields, if any)
-mkArrayOfNumberOnly
-  :: ArrayOfNumberOnly
-mkArrayOfNumberOnly =
-  ArrayOfNumberOnly
-  { arrayOfNumberOnlyArrayNumber = Nothing
-  }
-
--- ** ArrayTest
--- | ArrayTest
-data ArrayTest = ArrayTest
-  { arrayTestArrayOfString :: !(Maybe [Text]) -- ^ "array_of_string"
-  , arrayTestArrayArrayOfInteger :: !(Maybe [[Integer]]) -- ^ "array_array_of_integer"
-  , arrayTestArrayArrayOfModel :: !(Maybe [[ReadOnlyFirst]]) -- ^ "array_array_of_model"
-  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | Construct a value of type 'ApiResponse' (by applying it's required fields, if any)
+mkApiResponse
+  :: ApiResponse
+mkApiResponse =
+  ApiResponse
+  { apiResponseCode = Nothing
+  , apiResponseType = Nothing
+  , apiResponseMessage = Nothing
+  }
+
+-- ** ArrayOfArrayOfNumberOnly
+-- | ArrayOfArrayOfNumberOnly
+data ArrayOfArrayOfNumberOnly = ArrayOfArrayOfNumberOnly
+  { arrayOfArrayOfNumberOnlyArrayArrayNumber :: !(Maybe [[Double]]) -- ^ "ArrayArrayNumber"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON ArrayOfArrayOfNumberOnly
+instance A.FromJSON ArrayOfArrayOfNumberOnly where
+  parseJSON = A.withObject "ArrayOfArrayOfNumberOnly" $ \o ->
+    ArrayOfArrayOfNumberOnly
+      <$> (o .:? "ArrayArrayNumber")
+
+-- | ToJSON ArrayOfArrayOfNumberOnly
+instance A.ToJSON ArrayOfArrayOfNumberOnly where
+  toJSON ArrayOfArrayOfNumberOnly {..} =
+   _omitNulls
+      [ "ArrayArrayNumber" .= arrayOfArrayOfNumberOnlyArrayArrayNumber
+      ]
+
+
+-- | Construct a value of type 'ArrayOfArrayOfNumberOnly' (by applying it's required fields, if any)
+mkArrayOfArrayOfNumberOnly
+  :: ArrayOfArrayOfNumberOnly
+mkArrayOfArrayOfNumberOnly =
+  ArrayOfArrayOfNumberOnly
+  { arrayOfArrayOfNumberOnlyArrayArrayNumber = Nothing
+  }
+
+-- ** ArrayOfNumberOnly
+-- | ArrayOfNumberOnly
+data ArrayOfNumberOnly = ArrayOfNumberOnly
+  { arrayOfNumberOnlyArrayNumber :: !(Maybe [Double]) -- ^ "ArrayNumber"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON ArrayOfNumberOnly
+instance A.FromJSON ArrayOfNumberOnly where
+  parseJSON = A.withObject "ArrayOfNumberOnly" $ \o ->
+    ArrayOfNumberOnly
+      <$> (o .:? "ArrayNumber")
+
+-- | ToJSON ArrayOfNumberOnly
+instance A.ToJSON ArrayOfNumberOnly where
+  toJSON ArrayOfNumberOnly {..} =
+   _omitNulls
+      [ "ArrayNumber" .= arrayOfNumberOnlyArrayNumber
+      ]
 
--- | FromJSON ArrayTest
-instance A.FromJSON ArrayTest where
-  parseJSON = A.withObject "ArrayTest" $ \o ->
-    ArrayTest
-      <$> (o .:? "array_of_string")
-      <*> (o .:? "array_array_of_integer")
-      <*> (o .:? "array_array_of_model")
-
--- | ToJSON ArrayTest
-instance A.ToJSON ArrayTest where
-  toJSON ArrayTest {..} =
-   _omitNulls
-      [ "array_of_string" .= arrayTestArrayOfString
-      , "array_array_of_integer" .= arrayTestArrayArrayOfInteger
-      , "array_array_of_model" .= arrayTestArrayArrayOfModel
-      ]
+
+-- | Construct a value of type 'ArrayOfNumberOnly' (by applying it's required fields, if any)
+mkArrayOfNumberOnly
+  :: ArrayOfNumberOnly
+mkArrayOfNumberOnly =
+  ArrayOfNumberOnly
+  { arrayOfNumberOnlyArrayNumber = Nothing
+  }
+
+-- ** ArrayTest
+-- | ArrayTest
+data ArrayTest = ArrayTest
+  { arrayTestArrayOfString :: !(Maybe [Text]) -- ^ "array_of_string"
+  , arrayTestArrayArrayOfInteger :: !(Maybe [[Integer]]) -- ^ "array_array_of_integer"
+  , arrayTestArrayArrayOfModel :: !(Maybe [[ReadOnlyFirst]]) -- ^ "array_array_of_model"
+  } deriving (P.Show, P.Eq, P.Typeable)
 
-
--- | Construct a value of type 'ArrayTest' (by applying it's required fields, if any)
-mkArrayTest
-  :: ArrayTest
-mkArrayTest =
-  ArrayTest
-  { arrayTestArrayOfString = Nothing
-  , arrayTestArrayArrayOfInteger = Nothing
-  , arrayTestArrayArrayOfModel = Nothing
-  }
-
--- ** Capitalization
--- | Capitalization
-data Capitalization = Capitalization
-  { capitalizationSmallCamel :: !(Maybe Text) -- ^ "smallCamel"
-  , capitalizationCapitalCamel :: !(Maybe Text) -- ^ "CapitalCamel"
-  , capitalizationSmallSnake :: !(Maybe Text) -- ^ "small_Snake"
-  , capitalizationCapitalSnake :: !(Maybe Text) -- ^ "Capital_Snake"
-  , capitalizationScaEthFlowPoints :: !(Maybe Text) -- ^ "SCA_ETH_Flow_Points"
-  , capitalizationAttName :: !(Maybe Text) -- ^ "ATT_NAME" - Name of the pet 
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Capitalization
-instance A.FromJSON Capitalization where
-  parseJSON = A.withObject "Capitalization" $ \o ->
-    Capitalization
-      <$> (o .:? "smallCamel")
-      <*> (o .:? "CapitalCamel")
-      <*> (o .:? "small_Snake")
-      <*> (o .:? "Capital_Snake")
-      <*> (o .:? "SCA_ETH_Flow_Points")
-      <*> (o .:? "ATT_NAME")
-
--- | ToJSON Capitalization
-instance A.ToJSON Capitalization where
-  toJSON Capitalization {..} =
-   _omitNulls
-      [ "smallCamel" .= capitalizationSmallCamel
-      , "CapitalCamel" .= capitalizationCapitalCamel
-      , "small_Snake" .= capitalizationSmallSnake
-      , "Capital_Snake" .= capitalizationCapitalSnake
-      , "SCA_ETH_Flow_Points" .= capitalizationScaEthFlowPoints
-      , "ATT_NAME" .= capitalizationAttName
-      ]
-
-
--- | Construct a value of type 'Capitalization' (by applying it's required fields, if any)
-mkCapitalization
-  :: Capitalization
-mkCapitalization =
-  Capitalization
-  { capitalizationSmallCamel = Nothing
-  , capitalizationCapitalCamel = Nothing
-  , capitalizationSmallSnake = Nothing
-  , capitalizationCapitalSnake = Nothing
-  , capitalizationScaEthFlowPoints = Nothing
-  , capitalizationAttName = Nothing
-  }
-
--- ** Cat
--- | Cat
-data Cat = Cat
-  { catClassName :: !(Text) -- ^ /Required/ "className"
-  , catColor :: !(Maybe Text) -- ^ "color"
-  , catDeclawed :: !(Maybe Bool) -- ^ "declawed"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Cat
-instance A.FromJSON Cat where
-  parseJSON = A.withObject "Cat" $ \o ->
-    Cat
-      <$> (o .:  "className")
-      <*> (o .:? "color")
-      <*> (o .:? "declawed")
-
--- | ToJSON Cat
-instance A.ToJSON Cat where
-  toJSON Cat {..} =
-   _omitNulls
-      [ "className" .= catClassName
-      , "color" .= catColor
-      , "declawed" .= catDeclawed
-      ]
+-- | FromJSON ArrayTest
+instance A.FromJSON ArrayTest where
+  parseJSON = A.withObject "ArrayTest" $ \o ->
+    ArrayTest
+      <$> (o .:? "array_of_string")
+      <*> (o .:? "array_array_of_integer")
+      <*> (o .:? "array_array_of_model")
+
+-- | ToJSON ArrayTest
+instance A.ToJSON ArrayTest where
+  toJSON ArrayTest {..} =
+   _omitNulls
+      [ "array_of_string" .= arrayTestArrayOfString
+      , "array_array_of_integer" .= arrayTestArrayArrayOfInteger
+      , "array_array_of_model" .= arrayTestArrayArrayOfModel
+      ]
+
+
+-- | Construct a value of type 'ArrayTest' (by applying it's required fields, if any)
+mkArrayTest
+  :: ArrayTest
+mkArrayTest =
+  ArrayTest
+  { arrayTestArrayOfString = Nothing
+  , arrayTestArrayArrayOfInteger = Nothing
+  , arrayTestArrayArrayOfModel = Nothing
+  }
+
+-- ** Capitalization
+-- | Capitalization
+data Capitalization = Capitalization
+  { capitalizationSmallCamel :: !(Maybe Text) -- ^ "smallCamel"
+  , capitalizationCapitalCamel :: !(Maybe Text) -- ^ "CapitalCamel"
+  , capitalizationSmallSnake :: !(Maybe Text) -- ^ "small_Snake"
+  , capitalizationCapitalSnake :: !(Maybe Text) -- ^ "Capital_Snake"
+  , capitalizationScaEthFlowPoints :: !(Maybe Text) -- ^ "SCA_ETH_Flow_Points"
+  , capitalizationAttName :: !(Maybe Text) -- ^ "ATT_NAME" - Name of the pet 
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON Capitalization
+instance A.FromJSON Capitalization where
+  parseJSON = A.withObject "Capitalization" $ \o ->
+    Capitalization
+      <$> (o .:? "smallCamel")
+      <*> (o .:? "CapitalCamel")
+      <*> (o .:? "small_Snake")
+      <*> (o .:? "Capital_Snake")
+      <*> (o .:? "SCA_ETH_Flow_Points")
+      <*> (o .:? "ATT_NAME")
+
+-- | ToJSON Capitalization
+instance A.ToJSON Capitalization where
+  toJSON Capitalization {..} =
+   _omitNulls
+      [ "smallCamel" .= capitalizationSmallCamel
+      , "CapitalCamel" .= capitalizationCapitalCamel
+      , "small_Snake" .= capitalizationSmallSnake
+      , "Capital_Snake" .= capitalizationCapitalSnake
+      , "SCA_ETH_Flow_Points" .= capitalizationScaEthFlowPoints
+      , "ATT_NAME" .= capitalizationAttName
+      ]
+
+
+-- | Construct a value of type 'Capitalization' (by applying it's required fields, if any)
+mkCapitalization
+  :: Capitalization
+mkCapitalization =
+  Capitalization
+  { capitalizationSmallCamel = Nothing
+  , capitalizationCapitalCamel = Nothing
+  , capitalizationSmallSnake = Nothing
+  , capitalizationCapitalSnake = Nothing
+  , capitalizationScaEthFlowPoints = Nothing
+  , capitalizationAttName = Nothing
+  }
+
+-- ** Cat
+-- | Cat
+data Cat = Cat
+  { catClassName :: !(Text) -- ^ /Required/ "className"
+  , catColor :: !(Maybe Text) -- ^ "color"
+  , catDeclawed :: !(Maybe Bool) -- ^ "declawed"
+  } deriving (P.Show, P.Eq, P.Typeable)
 
-
--- | Construct a value of type 'Cat' (by applying it's required fields, if any)
-mkCat
-  :: Text -- ^ 'catClassName' 
-  -> Cat
-mkCat catClassName =
-  Cat
-  { catClassName
-  , catColor = Nothing
-  , catDeclawed = Nothing
-  }
-
--- ** Category
--- | Category
-data Category = Category
-  { categoryId :: !(Maybe Integer) -- ^ "id"
-  , categoryName :: !(Maybe Text) -- ^ "name"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Category
-instance A.FromJSON Category where
-  parseJSON = A.withObject "Category" $ \o ->
-    Category
-      <$> (o .:? "id")
-      <*> (o .:? "name")
-
--- | ToJSON Category
-instance A.ToJSON Category where
-  toJSON Category {..} =
-   _omitNulls
-      [ "id" .= categoryId
-      , "name" .= categoryName
-      ]
-
-
--- | Construct a value of type 'Category' (by applying it's required fields, if any)
-mkCategory
-  :: Category
-mkCategory =
-  Category
-  { categoryId = Nothing
-  , categoryName = Nothing
-  }
-
--- ** ClassModel
--- | ClassModel
--- Model for testing model with \"_class\" property
-data ClassModel = ClassModel
-  { classModelClass :: !(Maybe Text) -- ^ "_class"
-  } deriving (P.Show, P.Eq, P.Typeable)
+-- | FromJSON Cat
+instance A.FromJSON Cat where
+  parseJSON = A.withObject "Cat" $ \o ->
+    Cat
+      <$> (o .:  "className")
+      <*> (o .:? "color")
+      <*> (o .:? "declawed")
+
+-- | ToJSON Cat
+instance A.ToJSON Cat where
+  toJSON Cat {..} =
+   _omitNulls
+      [ "className" .= catClassName
+      , "color" .= catColor
+      , "declawed" .= catDeclawed
+      ]
+
+
+-- | Construct a value of type 'Cat' (by applying it's required fields, if any)
+mkCat
+  :: Text -- ^ 'catClassName' 
+  -> Cat
+mkCat catClassName =
+  Cat
+  { catClassName
+  , catColor = Nothing
+  , catDeclawed = Nothing
+  }
+
+-- ** Category
+-- | Category
+data Category = Category
+  { categoryId :: !(Maybe Integer) -- ^ "id"
+  , categoryName :: !(Maybe Text) -- ^ "name"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON Category
+instance A.FromJSON Category where
+  parseJSON = A.withObject "Category" $ \o ->
+    Category
+      <$> (o .:? "id")
+      <*> (o .:? "name")
+
+-- | ToJSON Category
+instance A.ToJSON Category where
+  toJSON Category {..} =
+   _omitNulls
+      [ "id" .= categoryId
+      , "name" .= categoryName
+      ]
 
--- | FromJSON ClassModel
-instance A.FromJSON ClassModel where
-  parseJSON = A.withObject "ClassModel" $ \o ->
-    ClassModel
-      <$> (o .:? "_class")
-
--- | ToJSON ClassModel
-instance A.ToJSON ClassModel where
-  toJSON ClassModel {..} =
-   _omitNulls
-      [ "_class" .= classModelClass
-      ]
-
-
--- | Construct a value of type 'ClassModel' (by applying it's required fields, if any)
-mkClassModel
-  :: ClassModel
-mkClassModel =
-  ClassModel
-  { classModelClass = Nothing
-  }
-
--- ** Client
--- | Client
-data Client = Client
-  { clientClient :: !(Maybe Text) -- ^ "client"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Client
-instance A.FromJSON Client where
-  parseJSON = A.withObject "Client" $ \o ->
-    Client
-      <$> (o .:? "client")
-
--- | ToJSON Client
-instance A.ToJSON Client where
-  toJSON Client {..} =
-   _omitNulls
-      [ "client" .= clientClient
-      ]
-
-
--- | Construct a value of type 'Client' (by applying it's required fields, if any)
-mkClient
-  :: Client
-mkClient =
-  Client
-  { clientClient = Nothing
-  }
-
--- ** Dog
--- | Dog
-data Dog = Dog
-  { dogClassName :: !(Text) -- ^ /Required/ "className"
-  , dogColor :: !(Maybe Text) -- ^ "color"
-  , dogBreed :: !(Maybe Text) -- ^ "breed"
-  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | Construct a value of type 'Category' (by applying it's required fields, if any)
+mkCategory
+  :: Category
+mkCategory =
+  Category
+  { categoryId = Nothing
+  , categoryName = Nothing
+  }
+
+-- ** ClassModel
+-- | ClassModel
+-- Model for testing model with \"_class\" property
+data ClassModel = ClassModel
+  { classModelClass :: !(Maybe Text) -- ^ "_class"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON ClassModel
+instance A.FromJSON ClassModel where
+  parseJSON = A.withObject "ClassModel" $ \o ->
+    ClassModel
+      <$> (o .:? "_class")
+
+-- | ToJSON ClassModel
+instance A.ToJSON ClassModel where
+  toJSON ClassModel {..} =
+   _omitNulls
+      [ "_class" .= classModelClass
+      ]
+
+
+-- | Construct a value of type 'ClassModel' (by applying it's required fields, if any)
+mkClassModel
+  :: ClassModel
+mkClassModel =
+  ClassModel
+  { classModelClass = Nothing
+  }
+
+-- ** Client
+-- | Client
+data Client = Client
+  { clientClient :: !(Maybe Text) -- ^ "client"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON Client
+instance A.FromJSON Client where
+  parseJSON = A.withObject "Client" $ \o ->
+    Client
+      <$> (o .:? "client")
+
+-- | ToJSON Client
+instance A.ToJSON Client where
+  toJSON Client {..} =
+   _omitNulls
+      [ "client" .= clientClient
+      ]
 
--- | FromJSON Dog
-instance A.FromJSON Dog where
-  parseJSON = A.withObject "Dog" $ \o ->
-    Dog
-      <$> (o .:  "className")
-      <*> (o .:? "color")
-      <*> (o .:? "breed")
-
--- | ToJSON Dog
-instance A.ToJSON Dog where
-  toJSON Dog {..} =
-   _omitNulls
-      [ "className" .= dogClassName
-      , "color" .= dogColor
-      , "breed" .= dogBreed
-      ]
+
+-- | Construct a value of type 'Client' (by applying it's required fields, if any)
+mkClient
+  :: Client
+mkClient =
+  Client
+  { clientClient = Nothing
+  }
+
+-- ** Dog
+-- | Dog
+data Dog = Dog
+  { dogClassName :: !(Text) -- ^ /Required/ "className"
+  , dogColor :: !(Maybe Text) -- ^ "color"
+  , dogBreed :: !(Maybe Text) -- ^ "breed"
+  } deriving (P.Show, P.Eq, P.Typeable)
 
-
--- | Construct a value of type 'Dog' (by applying it's required fields, if any)
-mkDog
-  :: Text -- ^ 'dogClassName' 
-  -> Dog
-mkDog dogClassName =
-  Dog
-  { dogClassName
-  , dogColor = Nothing
-  , dogBreed = Nothing
-  }
-
--- ** EnumArrays
--- | EnumArrays
-data EnumArrays = EnumArrays
-  { enumArraysJustSymbol :: !(Maybe E'JustSymbol) -- ^ "just_symbol"
-  , enumArraysArrayEnum :: !(Maybe [E'ArrayEnum]) -- ^ "array_enum"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON EnumArrays
-instance A.FromJSON EnumArrays where
-  parseJSON = A.withObject "EnumArrays" $ \o ->
-    EnumArrays
-      <$> (o .:? "just_symbol")
-      <*> (o .:? "array_enum")
-
--- | ToJSON EnumArrays
-instance A.ToJSON EnumArrays where
-  toJSON EnumArrays {..} =
-   _omitNulls
-      [ "just_symbol" .= enumArraysJustSymbol
-      , "array_enum" .= enumArraysArrayEnum
-      ]
-
-
--- | Construct a value of type 'EnumArrays' (by applying it's required fields, if any)
-mkEnumArrays
-  :: EnumArrays
-mkEnumArrays =
-  EnumArrays
-  { enumArraysJustSymbol = Nothing
-  , enumArraysArrayEnum = Nothing
-  }
-
--- ** EnumTest
--- | EnumTest
-data EnumTest = EnumTest
-  { enumTestEnumString :: !(Maybe E'EnumString) -- ^ "enum_string"
-  , enumTestEnumStringRequired :: !(E'EnumString) -- ^ /Required/ "enum_string_required"
-  , enumTestEnumInteger :: !(Maybe E'EnumInteger) -- ^ "enum_integer"
-  , enumTestEnumNumber :: !(Maybe E'EnumNumber) -- ^ "enum_number"
-  , enumTestOuterEnum :: !(Maybe OuterEnum) -- ^ "outerEnum"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON EnumTest
-instance A.FromJSON EnumTest where
-  parseJSON = A.withObject "EnumTest" $ \o ->
-    EnumTest
-      <$> (o .:? "enum_string")
-      <*> (o .:  "enum_string_required")
-      <*> (o .:? "enum_integer")
-      <*> (o .:? "enum_number")
-      <*> (o .:? "outerEnum")
-
--- | ToJSON EnumTest
-instance A.ToJSON EnumTest where
-  toJSON EnumTest {..} =
-   _omitNulls
-      [ "enum_string" .= enumTestEnumString
-      , "enum_string_required" .= enumTestEnumStringRequired
-      , "enum_integer" .= enumTestEnumInteger
-      , "enum_number" .= enumTestEnumNumber
-      , "outerEnum" .= enumTestOuterEnum
-      ]
-
-
--- | Construct a value of type 'EnumTest' (by applying it's required fields, if any)
-mkEnumTest
-  :: E'EnumString -- ^ 'enumTestEnumStringRequired' 
-  -> EnumTest
-mkEnumTest enumTestEnumStringRequired =
-  EnumTest
-  { enumTestEnumString = Nothing
-  , enumTestEnumStringRequired
-  , enumTestEnumInteger = Nothing
-  , enumTestEnumNumber = Nothing
-  , enumTestOuterEnum = Nothing
-  }
-
--- ** FormatTest
--- | FormatTest
-data FormatTest = FormatTest
-  { formatTestInteger :: !(Maybe Int) -- ^ "integer"
-  , formatTestInt32 :: !(Maybe Int) -- ^ "int32"
-  , formatTestInt64 :: !(Maybe Integer) -- ^ "int64"
-  , formatTestNumber :: !(Double) -- ^ /Required/ "number"
-  , formatTestFloat :: !(Maybe Float) -- ^ "float"
-  , formatTestDouble :: !(Maybe Double) -- ^ "double"
-  , formatTestString :: !(Maybe Text) -- ^ "string"
-  , formatTestByte :: !(ByteArray) -- ^ /Required/ "byte"
-  , formatTestBinary :: !(Maybe FilePath) -- ^ "binary"
-  , formatTestDate :: !(Date) -- ^ /Required/ "date"
-  , formatTestDateTime :: !(Maybe DateTime) -- ^ "dateTime"
-  , formatTestUuid :: !(Maybe Text) -- ^ "uuid"
-  , formatTestPassword :: !(Text) -- ^ /Required/ "password"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON FormatTest
-instance A.FromJSON FormatTest where
-  parseJSON = A.withObject "FormatTest" $ \o ->
-    FormatTest
-      <$> (o .:? "integer")
-      <*> (o .:? "int32")
-      <*> (o .:? "int64")
-      <*> (o .:  "number")
-      <*> (o .:? "float")
-      <*> (o .:? "double")
-      <*> (o .:? "string")
-      <*> (o .:  "byte")
-      <*> (o .:? "binary")
-      <*> (o .:  "date")
-      <*> (o .:? "dateTime")
-      <*> (o .:? "uuid")
-      <*> (o .:  "password")
-
--- | ToJSON FormatTest
-instance A.ToJSON FormatTest where
-  toJSON FormatTest {..} =
-   _omitNulls
-      [ "integer" .= formatTestInteger
-      , "int32" .= formatTestInt32
-      , "int64" .= formatTestInt64
-      , "number" .= formatTestNumber
-      , "float" .= formatTestFloat
-      , "double" .= formatTestDouble
-      , "string" .= formatTestString
-      , "byte" .= formatTestByte
-      , "binary" .= formatTestBinary
-      , "date" .= formatTestDate
-      , "dateTime" .= formatTestDateTime
-      , "uuid" .= formatTestUuid
-      , "password" .= formatTestPassword
-      ]
-
-
--- | Construct a value of type 'FormatTest' (by applying it's required fields, if any)
-mkFormatTest
-  :: Double -- ^ 'formatTestNumber' 
-  -> ByteArray -- ^ 'formatTestByte' 
-  -> Date -- ^ 'formatTestDate' 
-  -> Text -- ^ 'formatTestPassword' 
-  -> FormatTest
-mkFormatTest formatTestNumber formatTestByte formatTestDate formatTestPassword =
-  FormatTest
-  { formatTestInteger = Nothing
-  , formatTestInt32 = Nothing
-  , formatTestInt64 = Nothing
-  , formatTestNumber
-  , formatTestFloat = Nothing
-  , formatTestDouble = Nothing
-  , formatTestString = Nothing
-  , formatTestByte
-  , formatTestBinary = Nothing
-  , formatTestDate
-  , formatTestDateTime = Nothing
-  , formatTestUuid = Nothing
-  , formatTestPassword
-  }
-
--- ** HasOnlyReadOnly
--- | HasOnlyReadOnly
-data HasOnlyReadOnly = HasOnlyReadOnly
-  { hasOnlyReadOnlyBar :: !(Maybe Text) -- ^ "bar"
-  , hasOnlyReadOnlyFoo :: !(Maybe Text) -- ^ "foo"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON HasOnlyReadOnly
-instance A.FromJSON HasOnlyReadOnly where
-  parseJSON = A.withObject "HasOnlyReadOnly" $ \o ->
-    HasOnlyReadOnly
-      <$> (o .:? "bar")
-      <*> (o .:? "foo")
-
--- | ToJSON HasOnlyReadOnly
-instance A.ToJSON HasOnlyReadOnly where
-  toJSON HasOnlyReadOnly {..} =
-   _omitNulls
-      [ "bar" .= hasOnlyReadOnlyBar
-      , "foo" .= hasOnlyReadOnlyFoo
-      ]
-
-
--- | Construct a value of type 'HasOnlyReadOnly' (by applying it's required fields, if any)
-mkHasOnlyReadOnly
-  :: HasOnlyReadOnly
-mkHasOnlyReadOnly =
-  HasOnlyReadOnly
-  { hasOnlyReadOnlyBar = Nothing
-  , hasOnlyReadOnlyFoo = Nothing
-  }
-
--- ** MapTest
--- | MapTest
-data MapTest = MapTest
-  { mapTestMapMapOfString :: !(Maybe (Map.Map String (Map.Map String Text))) -- ^ "map_map_of_string"
-  , mapTestMapOfEnumString :: !(Maybe (Map.Map String E'Inner)) -- ^ "map_of_enum_string"
-  } deriving (P.Show, P.Eq, P.Typeable)
+-- | FromJSON Dog
+instance A.FromJSON Dog where
+  parseJSON = A.withObject "Dog" $ \o ->
+    Dog
+      <$> (o .:  "className")
+      <*> (o .:? "color")
+      <*> (o .:? "breed")
+
+-- | ToJSON Dog
+instance A.ToJSON Dog where
+  toJSON Dog {..} =
+   _omitNulls
+      [ "className" .= dogClassName
+      , "color" .= dogColor
+      , "breed" .= dogBreed
+      ]
+
+
+-- | Construct a value of type 'Dog' (by applying it's required fields, if any)
+mkDog
+  :: Text -- ^ 'dogClassName' 
+  -> Dog
+mkDog dogClassName =
+  Dog
+  { dogClassName
+  , dogColor = Nothing
+  , dogBreed = Nothing
+  }
+
+-- ** EnumArrays
+-- | EnumArrays
+data EnumArrays = EnumArrays
+  { enumArraysJustSymbol :: !(Maybe E'JustSymbol) -- ^ "just_symbol"
+  , enumArraysArrayEnum :: !(Maybe [E'ArrayEnum]) -- ^ "array_enum"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON EnumArrays
+instance A.FromJSON EnumArrays where
+  parseJSON = A.withObject "EnumArrays" $ \o ->
+    EnumArrays
+      <$> (o .:? "just_symbol")
+      <*> (o .:? "array_enum")
+
+-- | ToJSON EnumArrays
+instance A.ToJSON EnumArrays where
+  toJSON EnumArrays {..} =
+   _omitNulls
+      [ "just_symbol" .= enumArraysJustSymbol
+      , "array_enum" .= enumArraysArrayEnum
+      ]
+
+
+-- | Construct a value of type 'EnumArrays' (by applying it's required fields, if any)
+mkEnumArrays
+  :: EnumArrays
+mkEnumArrays =
+  EnumArrays
+  { enumArraysJustSymbol = Nothing
+  , enumArraysArrayEnum = Nothing
+  }
+
+-- ** EnumTest
+-- | EnumTest
+data EnumTest = EnumTest
+  { enumTestEnumString :: !(Maybe E'EnumString) -- ^ "enum_string"
+  , enumTestEnumStringRequired :: !(E'EnumString) -- ^ /Required/ "enum_string_required"
+  , enumTestEnumInteger :: !(Maybe E'EnumInteger) -- ^ "enum_integer"
+  , enumTestEnumNumber :: !(Maybe E'EnumNumber) -- ^ "enum_number"
+  , enumTestOuterEnum :: !(Maybe OuterEnum) -- ^ "outerEnum"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON EnumTest
+instance A.FromJSON EnumTest where
+  parseJSON = A.withObject "EnumTest" $ \o ->
+    EnumTest
+      <$> (o .:? "enum_string")
+      <*> (o .:  "enum_string_required")
+      <*> (o .:? "enum_integer")
+      <*> (o .:? "enum_number")
+      <*> (o .:? "outerEnum")
+
+-- | ToJSON EnumTest
+instance A.ToJSON EnumTest where
+  toJSON EnumTest {..} =
+   _omitNulls
+      [ "enum_string" .= enumTestEnumString
+      , "enum_string_required" .= enumTestEnumStringRequired
+      , "enum_integer" .= enumTestEnumInteger
+      , "enum_number" .= enumTestEnumNumber
+      , "outerEnum" .= enumTestOuterEnum
+      ]
+
+
+-- | Construct a value of type 'EnumTest' (by applying it's required fields, if any)
+mkEnumTest
+  :: E'EnumString -- ^ 'enumTestEnumStringRequired' 
+  -> EnumTest
+mkEnumTest enumTestEnumStringRequired =
+  EnumTest
+  { enumTestEnumString = Nothing
+  , enumTestEnumStringRequired
+  , enumTestEnumInteger = Nothing
+  , enumTestEnumNumber = Nothing
+  , enumTestOuterEnum = Nothing
+  }
+
+-- ** FormatTest
+-- | FormatTest
+data FormatTest = FormatTest
+  { formatTestInteger :: !(Maybe Int) -- ^ "integer"
+  , formatTestInt32 :: !(Maybe Int) -- ^ "int32"
+  , formatTestInt64 :: !(Maybe Integer) -- ^ "int64"
+  , formatTestNumber :: !(Double) -- ^ /Required/ "number"
+  , formatTestFloat :: !(Maybe Float) -- ^ "float"
+  , formatTestDouble :: !(Maybe Double) -- ^ "double"
+  , formatTestString :: !(Maybe Text) -- ^ "string"
+  , formatTestByte :: !(ByteArray) -- ^ /Required/ "byte"
+  , formatTestBinary :: !(Maybe FilePath) -- ^ "binary"
+  , formatTestDate :: !(Date) -- ^ /Required/ "date"
+  , formatTestDateTime :: !(Maybe DateTime) -- ^ "dateTime"
+  , formatTestUuid :: !(Maybe Text) -- ^ "uuid"
+  , formatTestPassword :: !(Text) -- ^ /Required/ "password"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON FormatTest
+instance A.FromJSON FormatTest where
+  parseJSON = A.withObject "FormatTest" $ \o ->
+    FormatTest
+      <$> (o .:? "integer")
+      <*> (o .:? "int32")
+      <*> (o .:? "int64")
+      <*> (o .:  "number")
+      <*> (o .:? "float")
+      <*> (o .:? "double")
+      <*> (o .:? "string")
+      <*> (o .:  "byte")
+      <*> (o .:? "binary")
+      <*> (o .:  "date")
+      <*> (o .:? "dateTime")
+      <*> (o .:? "uuid")
+      <*> (o .:  "password")
+
+-- | ToJSON FormatTest
+instance A.ToJSON FormatTest where
+  toJSON FormatTest {..} =
+   _omitNulls
+      [ "integer" .= formatTestInteger
+      , "int32" .= formatTestInt32
+      , "int64" .= formatTestInt64
+      , "number" .= formatTestNumber
+      , "float" .= formatTestFloat
+      , "double" .= formatTestDouble
+      , "string" .= formatTestString
+      , "byte" .= formatTestByte
+      , "binary" .= formatTestBinary
+      , "date" .= formatTestDate
+      , "dateTime" .= formatTestDateTime
+      , "uuid" .= formatTestUuid
+      , "password" .= formatTestPassword
+      ]
+
+
+-- | Construct a value of type 'FormatTest' (by applying it's required fields, if any)
+mkFormatTest
+  :: Double -- ^ 'formatTestNumber' 
+  -> ByteArray -- ^ 'formatTestByte' 
+  -> Date -- ^ 'formatTestDate' 
+  -> Text -- ^ 'formatTestPassword' 
+  -> FormatTest
+mkFormatTest formatTestNumber formatTestByte formatTestDate formatTestPassword =
+  FormatTest
+  { formatTestInteger = Nothing
+  , formatTestInt32 = Nothing
+  , formatTestInt64 = Nothing
+  , formatTestNumber
+  , formatTestFloat = Nothing
+  , formatTestDouble = Nothing
+  , formatTestString = Nothing
+  , formatTestByte
+  , formatTestBinary = Nothing
+  , formatTestDate
+  , formatTestDateTime = Nothing
+  , formatTestUuid = Nothing
+  , formatTestPassword
+  }
+
+-- ** HasOnlyReadOnly
+-- | HasOnlyReadOnly
+data HasOnlyReadOnly = HasOnlyReadOnly
+  { hasOnlyReadOnlyBar :: !(Maybe Text) -- ^ "bar"
+  , hasOnlyReadOnlyFoo :: !(Maybe Text) -- ^ "foo"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON HasOnlyReadOnly
+instance A.FromJSON HasOnlyReadOnly where
+  parseJSON = A.withObject "HasOnlyReadOnly" $ \o ->
+    HasOnlyReadOnly
+      <$> (o .:? "bar")
+      <*> (o .:? "foo")
+
+-- | ToJSON HasOnlyReadOnly
+instance A.ToJSON HasOnlyReadOnly where
+  toJSON HasOnlyReadOnly {..} =
+   _omitNulls
+      [ "bar" .= hasOnlyReadOnlyBar
+      , "foo" .= hasOnlyReadOnlyFoo
+      ]
 
--- | FromJSON MapTest
-instance A.FromJSON MapTest where
-  parseJSON = A.withObject "MapTest" $ \o ->
-    MapTest
-      <$> (o .:? "map_map_of_string")
-      <*> (o .:? "map_of_enum_string")
-
--- | ToJSON MapTest
-instance A.ToJSON MapTest where
-  toJSON MapTest {..} =
-   _omitNulls
-      [ "map_map_of_string" .= mapTestMapMapOfString
-      , "map_of_enum_string" .= mapTestMapOfEnumString
-      ]
-
-
--- | Construct a value of type 'MapTest' (by applying it's required fields, if any)
-mkMapTest
-  :: MapTest
-mkMapTest =
-  MapTest
-  { mapTestMapMapOfString = Nothing
-  , mapTestMapOfEnumString = Nothing
-  }
-
--- ** MixedPropertiesAndAdditionalPropertiesClass
--- | MixedPropertiesAndAdditionalPropertiesClass
-data MixedPropertiesAndAdditionalPropertiesClass = MixedPropertiesAndAdditionalPropertiesClass
-  { mixedPropertiesAndAdditionalPropertiesClassUuid :: !(Maybe Text) -- ^ "uuid"
-  , mixedPropertiesAndAdditionalPropertiesClassDateTime :: !(Maybe DateTime) -- ^ "dateTime"
-  , mixedPropertiesAndAdditionalPropertiesClassMap :: !(Maybe (Map.Map String Animal)) -- ^ "map"
-  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | Construct a value of type 'HasOnlyReadOnly' (by applying it's required fields, if any)
+mkHasOnlyReadOnly
+  :: HasOnlyReadOnly
+mkHasOnlyReadOnly =
+  HasOnlyReadOnly
+  { hasOnlyReadOnlyBar = Nothing
+  , hasOnlyReadOnlyFoo = Nothing
+  }
+
+-- ** MapTest
+-- | MapTest
+data MapTest = MapTest
+  { mapTestMapMapOfString :: !(Maybe (Map.Map String (Map.Map String Text))) -- ^ "map_map_of_string"
+  , mapTestMapOfEnumString :: !(Maybe (Map.Map String E'Inner)) -- ^ "map_of_enum_string"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON MapTest
+instance A.FromJSON MapTest where
+  parseJSON = A.withObject "MapTest" $ \o ->
+    MapTest
+      <$> (o .:? "map_map_of_string")
+      <*> (o .:? "map_of_enum_string")
+
+-- | ToJSON MapTest
+instance A.ToJSON MapTest where
+  toJSON MapTest {..} =
+   _omitNulls
+      [ "map_map_of_string" .= mapTestMapMapOfString
+      , "map_of_enum_string" .= mapTestMapOfEnumString
+      ]
+
 
--- | FromJSON MixedPropertiesAndAdditionalPropertiesClass
-instance A.FromJSON MixedPropertiesAndAdditionalPropertiesClass where
-  parseJSON = A.withObject "MixedPropertiesAndAdditionalPropertiesClass" $ \o ->
-    MixedPropertiesAndAdditionalPropertiesClass
-      <$> (o .:? "uuid")
-      <*> (o .:? "dateTime")
-      <*> (o .:? "map")
-
--- | ToJSON MixedPropertiesAndAdditionalPropertiesClass
-instance A.ToJSON MixedPropertiesAndAdditionalPropertiesClass where
-  toJSON MixedPropertiesAndAdditionalPropertiesClass {..} =
-   _omitNulls
-      [ "uuid" .= mixedPropertiesAndAdditionalPropertiesClassUuid
-      , "dateTime" .= mixedPropertiesAndAdditionalPropertiesClassDateTime
-      , "map" .= mixedPropertiesAndAdditionalPropertiesClassMap
-      ]
+-- | Construct a value of type 'MapTest' (by applying it's required fields, if any)
+mkMapTest
+  :: MapTest
+mkMapTest =
+  MapTest
+  { mapTestMapMapOfString = Nothing
+  , mapTestMapOfEnumString = Nothing
+  }
+
+-- ** MixedPropertiesAndAdditionalPropertiesClass
+-- | MixedPropertiesAndAdditionalPropertiesClass
+data MixedPropertiesAndAdditionalPropertiesClass = MixedPropertiesAndAdditionalPropertiesClass
+  { mixedPropertiesAndAdditionalPropertiesClassUuid :: !(Maybe Text) -- ^ "uuid"
+  , mixedPropertiesAndAdditionalPropertiesClassDateTime :: !(Maybe DateTime) -- ^ "dateTime"
+  , mixedPropertiesAndAdditionalPropertiesClassMap :: !(Maybe (Map.Map String Animal)) -- ^ "map"
+  } deriving (P.Show, P.Eq, P.Typeable)
 
-
--- | Construct a value of type 'MixedPropertiesAndAdditionalPropertiesClass' (by applying it's required fields, if any)
-mkMixedPropertiesAndAdditionalPropertiesClass
-  :: MixedPropertiesAndAdditionalPropertiesClass
-mkMixedPropertiesAndAdditionalPropertiesClass =
-  MixedPropertiesAndAdditionalPropertiesClass
-  { mixedPropertiesAndAdditionalPropertiesClassUuid = Nothing
-  , mixedPropertiesAndAdditionalPropertiesClassDateTime = Nothing
-  , mixedPropertiesAndAdditionalPropertiesClassMap = Nothing
-  }
-
--- ** Model200Response
--- | Model200Response
--- Model for testing model name starting with number
-data Model200Response = Model200Response
-  { model200ResponseName :: !(Maybe Int) -- ^ "name"
-  , model200ResponseClass :: !(Maybe Text) -- ^ "class"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Model200Response
-instance A.FromJSON Model200Response where
-  parseJSON = A.withObject "Model200Response" $ \o ->
-    Model200Response
-      <$> (o .:? "name")
-      <*> (o .:? "class")
-
--- | ToJSON Model200Response
-instance A.ToJSON Model200Response where
-  toJSON Model200Response {..} =
-   _omitNulls
-      [ "name" .= model200ResponseName
-      , "class" .= model200ResponseClass
-      ]
-
-
--- | Construct a value of type 'Model200Response' (by applying it's required fields, if any)
-mkModel200Response
-  :: Model200Response
-mkModel200Response =
-  Model200Response
-  { model200ResponseName = Nothing
-  , model200ResponseClass = Nothing
-  }
-
--- ** ModelList
--- | ModelList
-data ModelList = ModelList
-  { modelList123List :: !(Maybe Text) -- ^ "123-list"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON ModelList
-instance A.FromJSON ModelList where
-  parseJSON = A.withObject "ModelList" $ \o ->
-    ModelList
-      <$> (o .:? "123-list")
-
--- | ToJSON ModelList
-instance A.ToJSON ModelList where
-  toJSON ModelList {..} =
-   _omitNulls
-      [ "123-list" .= modelList123List
-      ]
-
-
--- | Construct a value of type 'ModelList' (by applying it's required fields, if any)
-mkModelList
-  :: ModelList
-mkModelList =
-  ModelList
-  { modelList123List = Nothing
-  }
-
--- ** ModelReturn
--- | ModelReturn
--- Model for testing reserved words
-data ModelReturn = ModelReturn
-  { modelReturnReturn :: !(Maybe Int) -- ^ "return"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON ModelReturn
-instance A.FromJSON ModelReturn where
-  parseJSON = A.withObject "ModelReturn" $ \o ->
-    ModelReturn
-      <$> (o .:? "return")
-
--- | ToJSON ModelReturn
-instance A.ToJSON ModelReturn where
-  toJSON ModelReturn {..} =
-   _omitNulls
-      [ "return" .= modelReturnReturn
-      ]
-
-
--- | Construct a value of type 'ModelReturn' (by applying it's required fields, if any)
-mkModelReturn
-  :: ModelReturn
-mkModelReturn =
-  ModelReturn
-  { modelReturnReturn = Nothing
-  }
-
--- ** Name
--- | Name
--- Model for testing model name same as property name
-data Name = Name
-  { nameName :: !(Int) -- ^ /Required/ "name"
-  , nameSnakeCase :: !(Maybe Int) -- ^ "snake_case"
-  , nameProperty :: !(Maybe Text) -- ^ "property"
-  , name123Number :: !(Maybe Int) -- ^ "123Number"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Name
-instance A.FromJSON Name where
-  parseJSON = A.withObject "Name" $ \o ->
-    Name
-      <$> (o .:  "name")
-      <*> (o .:? "snake_case")
-      <*> (o .:? "property")
-      <*> (o .:? "123Number")
-
--- | ToJSON Name
-instance A.ToJSON Name where
-  toJSON Name {..} =
-   _omitNulls
-      [ "name" .= nameName
-      , "snake_case" .= nameSnakeCase
-      , "property" .= nameProperty
-      , "123Number" .= name123Number
-      ]
-
-
--- | Construct a value of type 'Name' (by applying it's required fields, if any)
-mkName
-  :: Int -- ^ 'nameName' 
-  -> Name
-mkName nameName =
-  Name
-  { nameName
-  , nameSnakeCase = Nothing
-  , nameProperty = Nothing
-  , name123Number = Nothing
-  }
-
--- ** NumberOnly
--- | NumberOnly
-data NumberOnly = NumberOnly
-  { numberOnlyJustNumber :: !(Maybe Double) -- ^ "JustNumber"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON NumberOnly
-instance A.FromJSON NumberOnly where
-  parseJSON = A.withObject "NumberOnly" $ \o ->
-    NumberOnly
-      <$> (o .:? "JustNumber")
-
--- | ToJSON NumberOnly
-instance A.ToJSON NumberOnly where
-  toJSON NumberOnly {..} =
-   _omitNulls
-      [ "JustNumber" .= numberOnlyJustNumber
-      ]
-
-
--- | Construct a value of type 'NumberOnly' (by applying it's required fields, if any)
-mkNumberOnly
-  :: NumberOnly
-mkNumberOnly =
-  NumberOnly
-  { numberOnlyJustNumber = Nothing
-  }
-
--- ** Order
--- | Order
-data Order = Order
-  { orderId :: !(Maybe Integer) -- ^ "id"
-  , orderPetId :: !(Maybe Integer) -- ^ "petId"
-  , orderQuantity :: !(Maybe Int) -- ^ "quantity"
-  , orderShipDate :: !(Maybe DateTime) -- ^ "shipDate"
-  , orderStatus :: !(Maybe E'Status) -- ^ "status" - Order Status
-  , orderComplete :: !(Maybe Bool) -- ^ "complete"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Order
-instance A.FromJSON Order where
-  parseJSON = A.withObject "Order" $ \o ->
-    Order
-      <$> (o .:? "id")
-      <*> (o .:? "petId")
-      <*> (o .:? "quantity")
-      <*> (o .:? "shipDate")
-      <*> (o .:? "status")
-      <*> (o .:? "complete")
-
--- | ToJSON Order
-instance A.ToJSON Order where
-  toJSON Order {..} =
-   _omitNulls
-      [ "id" .= orderId
-      , "petId" .= orderPetId
-      , "quantity" .= orderQuantity
-      , "shipDate" .= orderShipDate
-      , "status" .= orderStatus
-      , "complete" .= orderComplete
-      ]
-
-
--- | Construct a value of type 'Order' (by applying it's required fields, if any)
-mkOrder
-  :: Order
-mkOrder =
-  Order
-  { orderId = Nothing
-  , orderPetId = Nothing
-  , orderQuantity = Nothing
-  , orderShipDate = Nothing
-  , orderStatus = Nothing
-  , orderComplete = Nothing
-  }
-
--- ** OuterBoolean
--- | OuterBoolean
-newtype OuterBoolean = OuterBoolean
-  { unOuterBoolean :: Bool
-  } deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON)
-
-
--- ** OuterComposite
--- | OuterComposite
-data OuterComposite = OuterComposite
-  { outerCompositeMyNumber :: !(Maybe OuterNumber) -- ^ "my_number"
-  , outerCompositeMyString :: !(Maybe OuterString) -- ^ "my_string"
-  , outerCompositeMyBoolean :: !(Maybe OuterBoolean) -- ^ "my_boolean"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON OuterComposite
-instance A.FromJSON OuterComposite where
-  parseJSON = A.withObject "OuterComposite" $ \o ->
-    OuterComposite
-      <$> (o .:? "my_number")
-      <*> (o .:? "my_string")
-      <*> (o .:? "my_boolean")
-
--- | ToJSON OuterComposite
-instance A.ToJSON OuterComposite where
-  toJSON OuterComposite {..} =
-   _omitNulls
-      [ "my_number" .= outerCompositeMyNumber
-      , "my_string" .= outerCompositeMyString
-      , "my_boolean" .= outerCompositeMyBoolean
-      ]
-
+-- | FromJSON MixedPropertiesAndAdditionalPropertiesClass
+instance A.FromJSON MixedPropertiesAndAdditionalPropertiesClass where
+  parseJSON = A.withObject "MixedPropertiesAndAdditionalPropertiesClass" $ \o ->
+    MixedPropertiesAndAdditionalPropertiesClass
+      <$> (o .:? "uuid")
+      <*> (o .:? "dateTime")
+      <*> (o .:? "map")
+
+-- | ToJSON MixedPropertiesAndAdditionalPropertiesClass
+instance A.ToJSON MixedPropertiesAndAdditionalPropertiesClass where
+  toJSON MixedPropertiesAndAdditionalPropertiesClass {..} =
+   _omitNulls
+      [ "uuid" .= mixedPropertiesAndAdditionalPropertiesClassUuid
+      , "dateTime" .= mixedPropertiesAndAdditionalPropertiesClassDateTime
+      , "map" .= mixedPropertiesAndAdditionalPropertiesClassMap
+      ]
+
+
+-- | Construct a value of type 'MixedPropertiesAndAdditionalPropertiesClass' (by applying it's required fields, if any)
+mkMixedPropertiesAndAdditionalPropertiesClass
+  :: MixedPropertiesAndAdditionalPropertiesClass
+mkMixedPropertiesAndAdditionalPropertiesClass =
+  MixedPropertiesAndAdditionalPropertiesClass
+  { mixedPropertiesAndAdditionalPropertiesClassUuid = Nothing
+  , mixedPropertiesAndAdditionalPropertiesClassDateTime = Nothing
+  , mixedPropertiesAndAdditionalPropertiesClassMap = Nothing
+  }
+
+-- ** Model200Response
+-- | Model200Response
+-- Model for testing model name starting with number
+data Model200Response = Model200Response
+  { model200ResponseName :: !(Maybe Int) -- ^ "name"
+  , model200ResponseClass :: !(Maybe Text) -- ^ "class"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON Model200Response
+instance A.FromJSON Model200Response where
+  parseJSON = A.withObject "Model200Response" $ \o ->
+    Model200Response
+      <$> (o .:? "name")
+      <*> (o .:? "class")
+
+-- | ToJSON Model200Response
+instance A.ToJSON Model200Response where
+  toJSON Model200Response {..} =
+   _omitNulls
+      [ "name" .= model200ResponseName
+      , "class" .= model200ResponseClass
+      ]
+
+
+-- | Construct a value of type 'Model200Response' (by applying it's required fields, if any)
+mkModel200Response
+  :: Model200Response
+mkModel200Response =
+  Model200Response
+  { model200ResponseName = Nothing
+  , model200ResponseClass = Nothing
+  }
+
+-- ** ModelList
+-- | ModelList
+data ModelList = ModelList
+  { modelList123list :: !(Maybe Text) -- ^ "123-list"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON ModelList
+instance A.FromJSON ModelList where
+  parseJSON = A.withObject "ModelList" $ \o ->
+    ModelList
+      <$> (o .:? "123-list")
+
+-- | ToJSON ModelList
+instance A.ToJSON ModelList where
+  toJSON ModelList {..} =
+   _omitNulls
+      [ "123-list" .= modelList123list
+      ]
+
+
+-- | Construct a value of type 'ModelList' (by applying it's required fields, if any)
+mkModelList
+  :: ModelList
+mkModelList =
+  ModelList
+  { modelList123list = Nothing
+  }
+
+-- ** ModelReturn
+-- | ModelReturn
+-- Model for testing reserved words
+data ModelReturn = ModelReturn
+  { modelReturnReturn :: !(Maybe Int) -- ^ "return"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON ModelReturn
+instance A.FromJSON ModelReturn where
+  parseJSON = A.withObject "ModelReturn" $ \o ->
+    ModelReturn
+      <$> (o .:? "return")
+
+-- | ToJSON ModelReturn
+instance A.ToJSON ModelReturn where
+  toJSON ModelReturn {..} =
+   _omitNulls
+      [ "return" .= modelReturnReturn
+      ]
+
+
+-- | Construct a value of type 'ModelReturn' (by applying it's required fields, if any)
+mkModelReturn
+  :: ModelReturn
+mkModelReturn =
+  ModelReturn
+  { modelReturnReturn = Nothing
+  }
+
+-- ** Name
+-- | Name
+-- Model for testing model name same as property name
+data Name = Name
+  { nameName :: !(Int) -- ^ /Required/ "name"
+  , nameSnakeCase :: !(Maybe Int) -- ^ "snake_case"
+  , nameProperty :: !(Maybe Text) -- ^ "property"
+  , name123number :: !(Maybe Int) -- ^ "123Number"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON Name
+instance A.FromJSON Name where
+  parseJSON = A.withObject "Name" $ \o ->
+    Name
+      <$> (o .:  "name")
+      <*> (o .:? "snake_case")
+      <*> (o .:? "property")
+      <*> (o .:? "123Number")
+
+-- | ToJSON Name
+instance A.ToJSON Name where
+  toJSON Name {..} =
+   _omitNulls
+      [ "name" .= nameName
+      , "snake_case" .= nameSnakeCase
+      , "property" .= nameProperty
+      , "123Number" .= name123number
+      ]
+
+
+-- | Construct a value of type 'Name' (by applying it's required fields, if any)
+mkName
+  :: Int -- ^ 'nameName' 
+  -> Name
+mkName nameName =
+  Name
+  { nameName
+  , nameSnakeCase = Nothing
+  , nameProperty = Nothing
+  , name123number = Nothing
+  }
+
+-- ** NumberOnly
+-- | NumberOnly
+data NumberOnly = NumberOnly
+  { numberOnlyJustNumber :: !(Maybe Double) -- ^ "JustNumber"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON NumberOnly
+instance A.FromJSON NumberOnly where
+  parseJSON = A.withObject "NumberOnly" $ \o ->
+    NumberOnly
+      <$> (o .:? "JustNumber")
+
+-- | ToJSON NumberOnly
+instance A.ToJSON NumberOnly where
+  toJSON NumberOnly {..} =
+   _omitNulls
+      [ "JustNumber" .= numberOnlyJustNumber
+      ]
+
+
+-- | Construct a value of type 'NumberOnly' (by applying it's required fields, if any)
+mkNumberOnly
+  :: NumberOnly
+mkNumberOnly =
+  NumberOnly
+  { numberOnlyJustNumber = Nothing
+  }
+
+-- ** Order
+-- | Order
+data Order = Order
+  { orderId :: !(Maybe Integer) -- ^ "id"
+  , orderPetId :: !(Maybe Integer) -- ^ "petId"
+  , orderQuantity :: !(Maybe Int) -- ^ "quantity"
+  , orderShipDate :: !(Maybe DateTime) -- ^ "shipDate"
+  , orderStatus :: !(Maybe E'Status) -- ^ "status" - Order Status
+  , orderComplete :: !(Maybe Bool) -- ^ "complete"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON Order
+instance A.FromJSON Order where
+  parseJSON = A.withObject "Order" $ \o ->
+    Order
+      <$> (o .:? "id")
+      <*> (o .:? "petId")
+      <*> (o .:? "quantity")
+      <*> (o .:? "shipDate")
+      <*> (o .:? "status")
+      <*> (o .:? "complete")
+
+-- | ToJSON Order
+instance A.ToJSON Order where
+  toJSON Order {..} =
+   _omitNulls
+      [ "id" .= orderId
+      , "petId" .= orderPetId
+      , "quantity" .= orderQuantity
+      , "shipDate" .= orderShipDate
+      , "status" .= orderStatus
+      , "complete" .= orderComplete
+      ]
+
+
+-- | Construct a value of type 'Order' (by applying it's required fields, if any)
+mkOrder
+  :: Order
+mkOrder =
+  Order
+  { orderId = Nothing
+  , orderPetId = Nothing
+  , orderQuantity = Nothing
+  , orderShipDate = Nothing
+  , orderStatus = Nothing
+  , orderComplete = Nothing
+  }
+
+-- ** OuterComposite
+-- | OuterComposite
+data OuterComposite = OuterComposite
+  { outerCompositeMyNumber :: !(Maybe Double) -- ^ "my_number"
+  , outerCompositeMyString :: !(Maybe Text) -- ^ "my_string"
+  , outerCompositeMyBoolean :: !(Maybe Bool) -- ^ "my_boolean"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON OuterComposite
+instance A.FromJSON OuterComposite where
+  parseJSON = A.withObject "OuterComposite" $ \o ->
+    OuterComposite
+      <$> (o .:? "my_number")
+      <*> (o .:? "my_string")
+      <*> (o .:? "my_boolean")
 
--- | Construct a value of type 'OuterComposite' (by applying it's required fields, if any)
-mkOuterComposite
-  :: OuterComposite
-mkOuterComposite =
-  OuterComposite
-  { outerCompositeMyNumber = Nothing
-  , outerCompositeMyString = Nothing
-  , outerCompositeMyBoolean = Nothing
-  }
+-- | ToJSON OuterComposite
+instance A.ToJSON OuterComposite where
+  toJSON OuterComposite {..} =
+   _omitNulls
+      [ "my_number" .= outerCompositeMyNumber
+      , "my_string" .= outerCompositeMyString
+      , "my_boolean" .= outerCompositeMyBoolean
+      ]
+
 
--- ** OuterNumber
--- | OuterNumber
-newtype OuterNumber = OuterNumber
-  { unOuterNumber :: Double
-  } deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON)
-
-
--- ** OuterString
--- | OuterString
-newtype OuterString = OuterString
-  { unOuterString :: Text
-  } deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON)
-
-
--- ** Pet
--- | Pet
-data Pet = Pet
-  { petId :: !(Maybe Integer) -- ^ "id"
-  , petCategory :: !(Maybe Category) -- ^ "category"
-  , petName :: !(Text) -- ^ /Required/ "name"
-  , petPhotoUrls :: !([Text]) -- ^ /Required/ "photoUrls"
-  , petTags :: !(Maybe [Tag]) -- ^ "tags"
-  , petStatus :: !(Maybe E'Status2) -- ^ "status" - pet status in the store
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Pet
-instance A.FromJSON Pet where
-  parseJSON = A.withObject "Pet" $ \o ->
-    Pet
-      <$> (o .:? "id")
-      <*> (o .:? "category")
-      <*> (o .:  "name")
-      <*> (o .:  "photoUrls")
-      <*> (o .:? "tags")
-      <*> (o .:? "status")
-
--- | ToJSON Pet
-instance A.ToJSON Pet where
-  toJSON Pet {..} =
-   _omitNulls
-      [ "id" .= petId
-      , "category" .= petCategory
-      , "name" .= petName
-      , "photoUrls" .= petPhotoUrls
-      , "tags" .= petTags
-      , "status" .= petStatus
-      ]
-
-
--- | Construct a value of type 'Pet' (by applying it's required fields, if any)
-mkPet
-  :: Text -- ^ 'petName' 
-  -> [Text] -- ^ 'petPhotoUrls' 
-  -> Pet
-mkPet petName petPhotoUrls =
-  Pet
-  { petId = Nothing
-  , petCategory = Nothing
-  , petName
-  , petPhotoUrls
-  , petTags = Nothing
-  , petStatus = Nothing
-  }
-
--- ** ReadOnlyFirst
--- | ReadOnlyFirst
-data ReadOnlyFirst = ReadOnlyFirst
-  { readOnlyFirstBar :: !(Maybe Text) -- ^ "bar"
-  , readOnlyFirstBaz :: !(Maybe Text) -- ^ "baz"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON ReadOnlyFirst
-instance A.FromJSON ReadOnlyFirst where
-  parseJSON = A.withObject "ReadOnlyFirst" $ \o ->
-    ReadOnlyFirst
-      <$> (o .:? "bar")
-      <*> (o .:? "baz")
-
--- | ToJSON ReadOnlyFirst
-instance A.ToJSON ReadOnlyFirst where
-  toJSON ReadOnlyFirst {..} =
-   _omitNulls
-      [ "bar" .= readOnlyFirstBar
-      , "baz" .= readOnlyFirstBaz
-      ]
-
-
--- | Construct a value of type 'ReadOnlyFirst' (by applying it's required fields, if any)
-mkReadOnlyFirst
-  :: ReadOnlyFirst
-mkReadOnlyFirst =
-  ReadOnlyFirst
-  { readOnlyFirstBar = Nothing
-  , readOnlyFirstBaz = Nothing
-  }
-
--- ** SpecialModelName
--- | SpecialModelName
-data SpecialModelName = SpecialModelName
-  { specialModelNameSpecialPropertyName :: !(Maybe Integer) -- ^ "$special[property.name]"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON SpecialModelName
-instance A.FromJSON SpecialModelName where
-  parseJSON = A.withObject "SpecialModelName" $ \o ->
-    SpecialModelName
-      <$> (o .:? "$special[property.name]")
-
--- | ToJSON SpecialModelName
-instance A.ToJSON SpecialModelName where
-  toJSON SpecialModelName {..} =
-   _omitNulls
-      [ "$special[property.name]" .= specialModelNameSpecialPropertyName
-      ]
-
-
--- | Construct a value of type 'SpecialModelName' (by applying it's required fields, if any)
-mkSpecialModelName
-  :: SpecialModelName
-mkSpecialModelName =
-  SpecialModelName
-  { specialModelNameSpecialPropertyName = Nothing
-  }
-
--- ** Tag
--- | Tag
-data Tag = Tag
-  { tagId :: !(Maybe Integer) -- ^ "id"
-  , tagName :: !(Maybe Text) -- ^ "name"
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Tag
-instance A.FromJSON Tag where
-  parseJSON = A.withObject "Tag" $ \o ->
-    Tag
-      <$> (o .:? "id")
-      <*> (o .:? "name")
-
--- | ToJSON Tag
-instance A.ToJSON Tag where
-  toJSON Tag {..} =
-   _omitNulls
-      [ "id" .= tagId
-      , "name" .= tagName
-      ]
-
-
--- | Construct a value of type 'Tag' (by applying it's required fields, if any)
-mkTag
-  :: Tag
-mkTag =
-  Tag
-  { tagId = Nothing
-  , tagName = Nothing
-  }
-
--- ** User
--- | User
-data User = User
-  { userId :: !(Maybe Integer) -- ^ "id"
-  , userUsername :: !(Maybe Text) -- ^ "username"
-  , userFirstName :: !(Maybe Text) -- ^ "firstName"
-  , userLastName :: !(Maybe Text) -- ^ "lastName"
-  , userEmail :: !(Maybe Text) -- ^ "email"
-  , userPassword :: !(Maybe Text) -- ^ "password"
-  , userPhone :: !(Maybe Text) -- ^ "phone"
-  , userUserStatus :: !(Maybe Int) -- ^ "userStatus" - User Status
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON User
-instance A.FromJSON User where
-  parseJSON = A.withObject "User" $ \o ->
-    User
-      <$> (o .:? "id")
-      <*> (o .:? "username")
-      <*> (o .:? "firstName")
-      <*> (o .:? "lastName")
-      <*> (o .:? "email")
-      <*> (o .:? "password")
-      <*> (o .:? "phone")
-      <*> (o .:? "userStatus")
-
--- | ToJSON User
-instance A.ToJSON User where
-  toJSON User {..} =
-   _omitNulls
-      [ "id" .= userId
-      , "username" .= userUsername
-      , "firstName" .= userFirstName
-      , "lastName" .= userLastName
-      , "email" .= userEmail
-      , "password" .= userPassword
-      , "phone" .= userPhone
-      , "userStatus" .= userUserStatus
-      ]
-
-
--- | Construct a value of type 'User' (by applying it's required fields, if any)
-mkUser
-  :: User
-mkUser =
-  User
-  { userId = Nothing
-  , userUsername = Nothing
-  , userFirstName = Nothing
-  , userLastName = Nothing
-  , userEmail = Nothing
-  , userPassword = Nothing
-  , userPhone = Nothing
-  , userUserStatus = Nothing
-  }
+-- | Construct a value of type 'OuterComposite' (by applying it's required fields, if any)
+mkOuterComposite
+  :: OuterComposite
+mkOuterComposite =
+  OuterComposite
+  { outerCompositeMyNumber = Nothing
+  , outerCompositeMyString = Nothing
+  , outerCompositeMyBoolean = Nothing
+  }
+
+-- ** Pet
+-- | Pet
+data Pet = Pet
+  { petId :: !(Maybe Integer) -- ^ "id"
+  , petCategory :: !(Maybe Category) -- ^ "category"
+  , petName :: !(Text) -- ^ /Required/ "name"
+  , petPhotoUrls :: !([Text]) -- ^ /Required/ "photoUrls"
+  , petTags :: !(Maybe [Tag]) -- ^ "tags"
+  , petStatus :: !(Maybe E'Status2) -- ^ "status" - pet status in the store
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON Pet
+instance A.FromJSON Pet where
+  parseJSON = A.withObject "Pet" $ \o ->
+    Pet
+      <$> (o .:? "id")
+      <*> (o .:? "category")
+      <*> (o .:  "name")
+      <*> (o .:  "photoUrls")
+      <*> (o .:? "tags")
+      <*> (o .:? "status")
+
+-- | ToJSON Pet
+instance A.ToJSON Pet where
+  toJSON Pet {..} =
+   _omitNulls
+      [ "id" .= petId
+      , "category" .= petCategory
+      , "name" .= petName
+      , "photoUrls" .= petPhotoUrls
+      , "tags" .= petTags
+      , "status" .= petStatus
+      ]
+
+
+-- | Construct a value of type 'Pet' (by applying it's required fields, if any)
+mkPet
+  :: Text -- ^ 'petName' 
+  -> [Text] -- ^ 'petPhotoUrls' 
+  -> Pet
+mkPet petName petPhotoUrls =
+  Pet
+  { petId = Nothing
+  , petCategory = Nothing
+  , petName
+  , petPhotoUrls
+  , petTags = Nothing
+  , petStatus = Nothing
+  }
+
+-- ** ReadOnlyFirst
+-- | ReadOnlyFirst
+data ReadOnlyFirst = ReadOnlyFirst
+  { readOnlyFirstBar :: !(Maybe Text) -- ^ "bar"
+  , readOnlyFirstBaz :: !(Maybe Text) -- ^ "baz"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON ReadOnlyFirst
+instance A.FromJSON ReadOnlyFirst where
+  parseJSON = A.withObject "ReadOnlyFirst" $ \o ->
+    ReadOnlyFirst
+      <$> (o .:? "bar")
+      <*> (o .:? "baz")
+
+-- | ToJSON ReadOnlyFirst
+instance A.ToJSON ReadOnlyFirst where
+  toJSON ReadOnlyFirst {..} =
+   _omitNulls
+      [ "bar" .= readOnlyFirstBar
+      , "baz" .= readOnlyFirstBaz
+      ]
+
+
+-- | Construct a value of type 'ReadOnlyFirst' (by applying it's required fields, if any)
+mkReadOnlyFirst
+  :: ReadOnlyFirst
+mkReadOnlyFirst =
+  ReadOnlyFirst
+  { readOnlyFirstBar = Nothing
+  , readOnlyFirstBaz = Nothing
+  }
+
+-- ** SpecialModelName
+-- | SpecialModelName
+data SpecialModelName = SpecialModelName
+  { specialModelNameSpecialPropertyName :: !(Maybe Integer) -- ^ "$special[property.name]"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON SpecialModelName
+instance A.FromJSON SpecialModelName where
+  parseJSON = A.withObject "SpecialModelName" $ \o ->
+    SpecialModelName
+      <$> (o .:? "$special[property.name]")
+
+-- | ToJSON SpecialModelName
+instance A.ToJSON SpecialModelName where
+  toJSON SpecialModelName {..} =
+   _omitNulls
+      [ "$special[property.name]" .= specialModelNameSpecialPropertyName
+      ]
+
+
+-- | Construct a value of type 'SpecialModelName' (by applying it's required fields, if any)
+mkSpecialModelName
+  :: SpecialModelName
+mkSpecialModelName =
+  SpecialModelName
+  { specialModelNameSpecialPropertyName = Nothing
+  }
+
+-- ** Tag
+-- | Tag
+data Tag = Tag
+  { tagId :: !(Maybe Integer) -- ^ "id"
+  , tagName :: !(Maybe Text) -- ^ "name"
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON Tag
+instance A.FromJSON Tag where
+  parseJSON = A.withObject "Tag" $ \o ->
+    Tag
+      <$> (o .:? "id")
+      <*> (o .:? "name")
+
+-- | ToJSON Tag
+instance A.ToJSON Tag where
+  toJSON Tag {..} =
+   _omitNulls
+      [ "id" .= tagId
+      , "name" .= tagName
+      ]
+
+
+-- | Construct a value of type 'Tag' (by applying it's required fields, if any)
+mkTag
+  :: Tag
+mkTag =
+  Tag
+  { tagId = Nothing
+  , tagName = Nothing
+  }
+
+-- ** User
+-- | User
+data User = User
+  { userId :: !(Maybe Integer) -- ^ "id"
+  , userUsername :: !(Maybe Text) -- ^ "username"
+  , userFirstName :: !(Maybe Text) -- ^ "firstName"
+  , userLastName :: !(Maybe Text) -- ^ "lastName"
+  , userEmail :: !(Maybe Text) -- ^ "email"
+  , userPassword :: !(Maybe Text) -- ^ "password"
+  , userPhone :: !(Maybe Text) -- ^ "phone"
+  , userUserStatus :: !(Maybe Int) -- ^ "userStatus" - User Status
+  } deriving (P.Show, P.Eq, P.Typeable)
+
+-- | FromJSON User
+instance A.FromJSON User where
+  parseJSON = A.withObject "User" $ \o ->
+    User
+      <$> (o .:? "id")
+      <*> (o .:? "username")
+      <*> (o .:? "firstName")
+      <*> (o .:? "lastName")
+      <*> (o .:? "email")
+      <*> (o .:? "password")
+      <*> (o .:? "phone")
+      <*> (o .:? "userStatus")
+
+-- | ToJSON User
+instance A.ToJSON User where
+  toJSON User {..} =
+   _omitNulls
+      [ "id" .= userId
+      , "username" .= userUsername
+      , "firstName" .= userFirstName
+      , "lastName" .= userLastName
+      , "email" .= userEmail
+      , "password" .= userPassword
+      , "phone" .= userPhone
+      , "userStatus" .= userUserStatus
+      ]
+
+
+-- | Construct a value of type 'User' (by applying it's required fields, if any)
+mkUser
+  :: User
+mkUser =
+  User
+  { userId = Nothing
+  , userUsername = Nothing
+  , userFirstName = Nothing
+  , userLastName = Nothing
+  , userEmail = Nothing
+  , userPassword = Nothing
+  , userPhone = Nothing
+  , userUserStatus = Nothing
+  }
+
+
+-- * Enums
+
 
-
--- * Enums
-
-
--- ** E'ArrayEnum
-
--- | Enum of 'Text'
-data E'ArrayEnum
-  = E'ArrayEnum'Fish -- ^ @"fish"@
-  | E'ArrayEnum'Crab -- ^ @"crab"@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'ArrayEnum where toJSON = A.toJSON . fromE'ArrayEnum
-instance A.FromJSON E'ArrayEnum where parseJSON o = P.either P.fail (pure . P.id) . toE'ArrayEnum =<< A.parseJSON o
-instance WH.ToHttpApiData E'ArrayEnum where toQueryParam = WH.toQueryParam . fromE'ArrayEnum
-instance WH.FromHttpApiData E'ArrayEnum where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'ArrayEnum
-instance MimeRender MimeMultipartFormData E'ArrayEnum where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'ArrayEnum' enum
-fromE'ArrayEnum :: E'ArrayEnum -> Text
-fromE'ArrayEnum = \case
-  E'ArrayEnum'Fish -> "fish"
-  E'ArrayEnum'Crab -> "crab"
-
--- | parse 'E'ArrayEnum' enum
-toE'ArrayEnum :: Text -> P.Either String E'ArrayEnum
-toE'ArrayEnum = \case
-  "fish" -> P.Right E'ArrayEnum'Fish
-  "crab" -> P.Right E'ArrayEnum'Crab
-  s -> P.Left $ "toE'ArrayEnum: enum parse failure: " P.++ P.show s
-
-
--- ** E'EnumFormString
-
--- | Enum of 'Text' . 
--- Form parameter enum test (string)
-data E'EnumFormString
-  = E'EnumFormString'_abc -- ^ @"_abc"@
-  | E'EnumFormString'_efg -- ^ @"-efg"@
-  | E'EnumFormString'_xyz -- ^ @"(xyz)"@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'EnumFormString where toJSON = A.toJSON . fromE'EnumFormString
-instance A.FromJSON E'EnumFormString where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumFormString =<< A.parseJSON o
-instance WH.ToHttpApiData E'EnumFormString where toQueryParam = WH.toQueryParam . fromE'EnumFormString
-instance WH.FromHttpApiData E'EnumFormString where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumFormString
-instance MimeRender MimeMultipartFormData E'EnumFormString where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'EnumFormString' enum
-fromE'EnumFormString :: E'EnumFormString -> Text
-fromE'EnumFormString = \case
-  E'EnumFormString'_abc -> "_abc"
-  E'EnumFormString'_efg -> "-efg"
-  E'EnumFormString'_xyz -> "(xyz)"
-
--- | parse 'E'EnumFormString' enum
-toE'EnumFormString :: Text -> P.Either String E'EnumFormString
-toE'EnumFormString = \case
-  "_abc" -> P.Right E'EnumFormString'_abc
-  "-efg" -> P.Right E'EnumFormString'_efg
-  "(xyz)" -> P.Right E'EnumFormString'_xyz
-  s -> P.Left $ "toE'EnumFormString: enum parse failure: " P.++ P.show s
-
-
--- ** E'EnumFormStringArray
-
--- | Enum of 'Text'
-data E'EnumFormStringArray
-  = E'EnumFormStringArray'GreaterThan -- ^ @">"@
-  | E'EnumFormStringArray'Dollar -- ^ @"$"@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'EnumFormStringArray where toJSON = A.toJSON . fromE'EnumFormStringArray
-instance A.FromJSON E'EnumFormStringArray where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumFormStringArray =<< A.parseJSON o
-instance WH.ToHttpApiData E'EnumFormStringArray where toQueryParam = WH.toQueryParam . fromE'EnumFormStringArray
-instance WH.FromHttpApiData E'EnumFormStringArray where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumFormStringArray
-instance MimeRender MimeMultipartFormData E'EnumFormStringArray where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'EnumFormStringArray' enum
-fromE'EnumFormStringArray :: E'EnumFormStringArray -> Text
-fromE'EnumFormStringArray = \case
-  E'EnumFormStringArray'GreaterThan -> ">"
-  E'EnumFormStringArray'Dollar -> "$"
-
--- | parse 'E'EnumFormStringArray' enum
-toE'EnumFormStringArray :: Text -> P.Either String E'EnumFormStringArray
-toE'EnumFormStringArray = \case
-  ">" -> P.Right E'EnumFormStringArray'GreaterThan
-  "$" -> P.Right E'EnumFormStringArray'Dollar
-  s -> P.Left $ "toE'EnumFormStringArray: enum parse failure: " P.++ P.show s
-
-
--- ** E'EnumInteger
-
--- | Enum of 'Int'
-data E'EnumInteger
-  = E'EnumInteger'Num1 -- ^ @1@
-  | E'EnumInteger'NumMinus_1 -- ^ @-1@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'EnumInteger where toJSON = A.toJSON . fromE'EnumInteger
-instance A.FromJSON E'EnumInteger where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumInteger =<< A.parseJSON o
-instance WH.ToHttpApiData E'EnumInteger where toQueryParam = WH.toQueryParam . fromE'EnumInteger
-instance WH.FromHttpApiData E'EnumInteger where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumInteger
-instance MimeRender MimeMultipartFormData E'EnumInteger where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'EnumInteger' enum
-fromE'EnumInteger :: E'EnumInteger -> Int
-fromE'EnumInteger = \case
-  E'EnumInteger'Num1 -> 1
-  E'EnumInteger'NumMinus_1 -> -1
-
--- | parse 'E'EnumInteger' enum
-toE'EnumInteger :: Int -> P.Either String E'EnumInteger
-toE'EnumInteger = \case
-  1 -> P.Right E'EnumInteger'Num1
-  -1 -> P.Right E'EnumInteger'NumMinus_1
-  s -> P.Left $ "toE'EnumInteger: enum parse failure: " P.++ P.show s
-
-
--- ** E'EnumNumber
-
--- | Enum of 'Double'
-data E'EnumNumber
-  = E'EnumNumber'Num1_Dot_1 -- ^ @1.1@
-  | E'EnumNumber'NumMinus_1_Dot_2 -- ^ @-1.2@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'EnumNumber where toJSON = A.toJSON . fromE'EnumNumber
-instance A.FromJSON E'EnumNumber where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumNumber =<< A.parseJSON o
-instance WH.ToHttpApiData E'EnumNumber where toQueryParam = WH.toQueryParam . fromE'EnumNumber
-instance WH.FromHttpApiData E'EnumNumber where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumNumber
-instance MimeRender MimeMultipartFormData E'EnumNumber where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'EnumNumber' enum
-fromE'EnumNumber :: E'EnumNumber -> Double
-fromE'EnumNumber = \case
-  E'EnumNumber'Num1_Dot_1 -> 1.1
-  E'EnumNumber'NumMinus_1_Dot_2 -> -1.2
-
--- | parse 'E'EnumNumber' enum
-toE'EnumNumber :: Double -> P.Either String E'EnumNumber
-toE'EnumNumber = \case
-  1.1 -> P.Right E'EnumNumber'Num1_Dot_1
-  -1.2 -> P.Right E'EnumNumber'NumMinus_1_Dot_2
-  s -> P.Left $ "toE'EnumNumber: enum parse failure: " P.++ P.show s
-
-
--- ** E'EnumQueryInteger
-
--- | Enum of 'Int'
-data E'EnumQueryInteger
-  = E'EnumQueryInteger'Num1 -- ^ @1@
-  | E'EnumQueryInteger'NumMinus_2 -- ^ @-2@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'EnumQueryInteger where toJSON = A.toJSON . fromE'EnumQueryInteger
-instance A.FromJSON E'EnumQueryInteger where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumQueryInteger =<< A.parseJSON o
-instance WH.ToHttpApiData E'EnumQueryInteger where toQueryParam = WH.toQueryParam . fromE'EnumQueryInteger
-instance WH.FromHttpApiData E'EnumQueryInteger where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumQueryInteger
-instance MimeRender MimeMultipartFormData E'EnumQueryInteger where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'EnumQueryInteger' enum
-fromE'EnumQueryInteger :: E'EnumQueryInteger -> Int
-fromE'EnumQueryInteger = \case
-  E'EnumQueryInteger'Num1 -> 1
-  E'EnumQueryInteger'NumMinus_2 -> -2
-
--- | parse 'E'EnumQueryInteger' enum
-toE'EnumQueryInteger :: Int -> P.Either String E'EnumQueryInteger
-toE'EnumQueryInteger = \case
-  1 -> P.Right E'EnumQueryInteger'Num1
-  -2 -> P.Right E'EnumQueryInteger'NumMinus_2
-  s -> P.Left $ "toE'EnumQueryInteger: enum parse failure: " P.++ P.show s
-
-
--- ** E'EnumString
-
--- | Enum of 'Text'
-data E'EnumString
-  = E'EnumString'UPPER -- ^ @"UPPER"@
-  | E'EnumString'Lower -- ^ @"lower"@
-  | E'EnumString'Empty -- ^ @""@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'EnumString where toJSON = A.toJSON . fromE'EnumString
-instance A.FromJSON E'EnumString where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumString =<< A.parseJSON o
-instance WH.ToHttpApiData E'EnumString where toQueryParam = WH.toQueryParam . fromE'EnumString
-instance WH.FromHttpApiData E'EnumString where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumString
-instance MimeRender MimeMultipartFormData E'EnumString where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'EnumString' enum
-fromE'EnumString :: E'EnumString -> Text
-fromE'EnumString = \case
-  E'EnumString'UPPER -> "UPPER"
-  E'EnumString'Lower -> "lower"
-  E'EnumString'Empty -> ""
-
--- | parse 'E'EnumString' enum
-toE'EnumString :: Text -> P.Either String E'EnumString
-toE'EnumString = \case
-  "UPPER" -> P.Right E'EnumString'UPPER
-  "lower" -> P.Right E'EnumString'Lower
-  "" -> P.Right E'EnumString'Empty
-  s -> P.Left $ "toE'EnumString: enum parse failure: " P.++ P.show s
-
-
--- ** E'Inner
-
--- | Enum of 'Text'
-data E'Inner
-  = E'Inner'UPPER -- ^ @"UPPER"@
-  | E'Inner'Lower -- ^ @"lower"@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'Inner where toJSON = A.toJSON . fromE'Inner
-instance A.FromJSON E'Inner where parseJSON o = P.either P.fail (pure . P.id) . toE'Inner =<< A.parseJSON o
-instance WH.ToHttpApiData E'Inner where toQueryParam = WH.toQueryParam . fromE'Inner
-instance WH.FromHttpApiData E'Inner where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'Inner
-instance MimeRender MimeMultipartFormData E'Inner where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'Inner' enum
-fromE'Inner :: E'Inner -> Text
-fromE'Inner = \case
-  E'Inner'UPPER -> "UPPER"
-  E'Inner'Lower -> "lower"
-
--- | parse 'E'Inner' enum
-toE'Inner :: Text -> P.Either String E'Inner
-toE'Inner = \case
-  "UPPER" -> P.Right E'Inner'UPPER
-  "lower" -> P.Right E'Inner'Lower
-  s -> P.Left $ "toE'Inner: enum parse failure: " P.++ P.show s
-
-
--- ** E'JustSymbol
-
--- | Enum of 'Text'
-data E'JustSymbol
-  = E'JustSymbol'Greater_Than_Or_Equal_To -- ^ @">="@
-  | E'JustSymbol'Dollar -- ^ @"$"@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'JustSymbol where toJSON = A.toJSON . fromE'JustSymbol
-instance A.FromJSON E'JustSymbol where parseJSON o = P.either P.fail (pure . P.id) . toE'JustSymbol =<< A.parseJSON o
-instance WH.ToHttpApiData E'JustSymbol where toQueryParam = WH.toQueryParam . fromE'JustSymbol
-instance WH.FromHttpApiData E'JustSymbol where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'JustSymbol
-instance MimeRender MimeMultipartFormData E'JustSymbol where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'JustSymbol' enum
-fromE'JustSymbol :: E'JustSymbol -> Text
-fromE'JustSymbol = \case
-  E'JustSymbol'Greater_Than_Or_Equal_To -> ">="
-  E'JustSymbol'Dollar -> "$"
-
--- | parse 'E'JustSymbol' enum
-toE'JustSymbol :: Text -> P.Either String E'JustSymbol
-toE'JustSymbol = \case
-  ">=" -> P.Right E'JustSymbol'Greater_Than_Or_Equal_To
-  "$" -> P.Right E'JustSymbol'Dollar
-  s -> P.Left $ "toE'JustSymbol: enum parse failure: " P.++ P.show s
-
-
--- ** E'Status
-
--- | Enum of 'Text' . 
--- Order Status
-data E'Status
-  = E'Status'Placed -- ^ @"placed"@
-  | E'Status'Approved -- ^ @"approved"@
-  | E'Status'Delivered -- ^ @"delivered"@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'Status where toJSON = A.toJSON . fromE'Status
-instance A.FromJSON E'Status where parseJSON o = P.either P.fail (pure . P.id) . toE'Status =<< A.parseJSON o
-instance WH.ToHttpApiData E'Status where toQueryParam = WH.toQueryParam . fromE'Status
-instance WH.FromHttpApiData E'Status where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'Status
-instance MimeRender MimeMultipartFormData E'Status where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'Status' enum
-fromE'Status :: E'Status -> Text
-fromE'Status = \case
-  E'Status'Placed -> "placed"
-  E'Status'Approved -> "approved"
-  E'Status'Delivered -> "delivered"
-
--- | parse 'E'Status' enum
-toE'Status :: Text -> P.Either String E'Status
-toE'Status = \case
-  "placed" -> P.Right E'Status'Placed
-  "approved" -> P.Right E'Status'Approved
-  "delivered" -> P.Right E'Status'Delivered
-  s -> P.Left $ "toE'Status: enum parse failure: " P.++ P.show s
-
-
--- ** E'Status2
-
--- | Enum of 'Text' . 
--- pet status in the store
-data E'Status2
-  = E'Status2'Available -- ^ @"available"@
-  | E'Status2'Pending -- ^ @"pending"@
-  | E'Status2'Sold -- ^ @"sold"@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON E'Status2 where toJSON = A.toJSON . fromE'Status2
-instance A.FromJSON E'Status2 where parseJSON o = P.either P.fail (pure . P.id) . toE'Status2 =<< A.parseJSON o
-instance WH.ToHttpApiData E'Status2 where toQueryParam = WH.toQueryParam . fromE'Status2
-instance WH.FromHttpApiData E'Status2 where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'Status2
-instance MimeRender MimeMultipartFormData E'Status2 where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'E'Status2' enum
-fromE'Status2 :: E'Status2 -> Text
-fromE'Status2 = \case
-  E'Status2'Available -> "available"
-  E'Status2'Pending -> "pending"
-  E'Status2'Sold -> "sold"
-
--- | parse 'E'Status2' enum
-toE'Status2 :: Text -> P.Either String E'Status2
-toE'Status2 = \case
-  "available" -> P.Right E'Status2'Available
-  "pending" -> P.Right E'Status2'Pending
-  "sold" -> P.Right E'Status2'Sold
-  s -> P.Left $ "toE'Status2: enum parse failure: " P.++ P.show s
-
-
--- ** EnumClass
-
--- | Enum of 'Text'
-data EnumClass
-  = EnumClass'_abc -- ^ @"_abc"@
-  | EnumClass'_efg -- ^ @"-efg"@
-  | EnumClass'_xyz -- ^ @"(xyz)"@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON EnumClass where toJSON = A.toJSON . fromEnumClass
-instance A.FromJSON EnumClass where parseJSON o = P.either P.fail (pure . P.id) . toEnumClass =<< A.parseJSON o
-instance WH.ToHttpApiData EnumClass where toQueryParam = WH.toQueryParam . fromEnumClass
-instance WH.FromHttpApiData EnumClass where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toEnumClass
-instance MimeRender MimeMultipartFormData EnumClass where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'EnumClass' enum
-fromEnumClass :: EnumClass -> Text
-fromEnumClass = \case
-  EnumClass'_abc -> "_abc"
-  EnumClass'_efg -> "-efg"
-  EnumClass'_xyz -> "(xyz)"
-
--- | parse 'EnumClass' enum
-toEnumClass :: Text -> P.Either String EnumClass
-toEnumClass = \case
-  "_abc" -> P.Right EnumClass'_abc
-  "-efg" -> P.Right EnumClass'_efg
-  "(xyz)" -> P.Right EnumClass'_xyz
-  s -> P.Left $ "toEnumClass: enum parse failure: " P.++ P.show s
-
-
--- ** OuterEnum
-
--- | Enum of 'Text'
-data OuterEnum
-  = OuterEnum'Placed -- ^ @"placed"@
-  | OuterEnum'Approved -- ^ @"approved"@
-  | OuterEnum'Delivered -- ^ @"delivered"@
-  deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
-
-instance A.ToJSON OuterEnum where toJSON = A.toJSON . fromOuterEnum
-instance A.FromJSON OuterEnum where parseJSON o = P.either P.fail (pure . P.id) . toOuterEnum =<< A.parseJSON o
-instance WH.ToHttpApiData OuterEnum where toQueryParam = WH.toQueryParam . fromOuterEnum
-instance WH.FromHttpApiData OuterEnum where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toOuterEnum
-instance MimeRender MimeMultipartFormData OuterEnum where mimeRender _ = mimeRenderDefaultMultipartFormData
-
--- | unwrap 'OuterEnum' enum
-fromOuterEnum :: OuterEnum -> Text
-fromOuterEnum = \case
-  OuterEnum'Placed -> "placed"
-  OuterEnum'Approved -> "approved"
-  OuterEnum'Delivered -> "delivered"
-
--- | parse 'OuterEnum' enum
-toOuterEnum :: Text -> P.Either String OuterEnum
-toOuterEnum = \case
-  "placed" -> P.Right OuterEnum'Placed
-  "approved" -> P.Right OuterEnum'Approved
-  "delivered" -> P.Right OuterEnum'Delivered
-  s -> P.Left $ "toOuterEnum: enum parse failure: " P.++ P.show s
-
-
--- * Auth Methods
-
--- ** AuthApiKeyApiKey
-data AuthApiKeyApiKey =
-  AuthApiKeyApiKey Text -- ^ secret
-  deriving (P.Eq, P.Show, P.Typeable)
-
-instance AuthMethod AuthApiKeyApiKey where
-  applyAuthMethod _ a@(AuthApiKeyApiKey secret) req =
-    P.pure $
-    if (P.typeOf a `P.elem` rAuthTypes req)
-      then req `setHeader` toHeader ("api_key", secret)
-           & L.over rAuthTypesL (P.filter (/= P.typeOf a))
-      else req
-
--- ** AuthApiKeyApiKeyQuery
-data AuthApiKeyApiKeyQuery =
-  AuthApiKeyApiKeyQuery Text -- ^ secret
-  deriving (P.Eq, P.Show, P.Typeable)
-
-instance AuthMethod AuthApiKeyApiKeyQuery where
-  applyAuthMethod _ a@(AuthApiKeyApiKeyQuery secret) req =
-    P.pure $
-    if (P.typeOf a `P.elem` rAuthTypes req)
-      then req `setQuery` toQuery ("api_key_query", Just secret)
-           & L.over rAuthTypesL (P.filter (/= P.typeOf a))
-      else req
-
--- ** AuthBasicHttpBasicTest
-data AuthBasicHttpBasicTest =
-  AuthBasicHttpBasicTest B.ByteString B.ByteString -- ^ username password
-  deriving (P.Eq, P.Show, P.Typeable)
-
-instance AuthMethod AuthBasicHttpBasicTest where
-  applyAuthMethod _ a@(AuthBasicHttpBasicTest user pw) req =
-    P.pure $
-    if (P.typeOf a `P.elem` rAuthTypes req)
-      then req `setHeader` toHeader ("Authorization", T.decodeUtf8 cred)
-           & L.over rAuthTypesL (P.filter (/= P.typeOf a))
-      else req
-    where cred = BC.append "Basic " (B64.encode $ BC.concat [ user, ":", pw ])
-
--- ** AuthOAuthPetstoreAuth
-data AuthOAuthPetstoreAuth =
-  AuthOAuthPetstoreAuth Text -- ^ secret
-  deriving (P.Eq, P.Show, P.Typeable)
-
-instance AuthMethod AuthOAuthPetstoreAuth where
-  applyAuthMethod _ a@(AuthOAuthPetstoreAuth secret) req =
-    P.pure $
-    if (P.typeOf a `P.elem` rAuthTypes req)
-      then req `setHeader` toHeader ("Authorization", "Bearer " <> secret) 
-           & L.over rAuthTypesL (P.filter (/= P.typeOf a))
-      else req
-
-
    \ No newline at end of file +-- ** E'ArrayEnum + +-- | Enum of 'Text' +data E'ArrayEnum + = E'ArrayEnum'Fish -- ^ @"fish"@ + | E'ArrayEnum'Crab -- ^ @"crab"@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'ArrayEnum where toJSON = A.toJSON . fromE'ArrayEnum +instance A.FromJSON E'ArrayEnum where parseJSON o = P.either P.fail (pure . P.id) . toE'ArrayEnum =<< A.parseJSON o +instance WH.ToHttpApiData E'ArrayEnum where toQueryParam = WH.toQueryParam . fromE'ArrayEnum +instance WH.FromHttpApiData E'ArrayEnum where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'ArrayEnum +instance MimeRender MimeMultipartFormData E'ArrayEnum where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'ArrayEnum' enum +fromE'ArrayEnum :: E'ArrayEnum -> Text +fromE'ArrayEnum = \case + E'ArrayEnum'Fish -> "fish" + E'ArrayEnum'Crab -> "crab" + +-- | parse 'E'ArrayEnum' enum +toE'ArrayEnum :: Text -> P.Either String E'ArrayEnum +toE'ArrayEnum = \case + "fish" -> P.Right E'ArrayEnum'Fish + "crab" -> P.Right E'ArrayEnum'Crab + s -> P.Left $ "toE'ArrayEnum: enum parse failure: " P.++ P.show s + + +-- ** E'EnumFormString + +-- | Enum of 'Text' . +-- Form parameter enum test (string) +data E'EnumFormString + = E'EnumFormString'_abc -- ^ @"_abc"@ + | E'EnumFormString'_efg -- ^ @"-efg"@ + | E'EnumFormString'_xyz -- ^ @"(xyz)"@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'EnumFormString where toJSON = A.toJSON . fromE'EnumFormString +instance A.FromJSON E'EnumFormString where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumFormString =<< A.parseJSON o +instance WH.ToHttpApiData E'EnumFormString where toQueryParam = WH.toQueryParam . fromE'EnumFormString +instance WH.FromHttpApiData E'EnumFormString where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumFormString +instance MimeRender MimeMultipartFormData E'EnumFormString where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'EnumFormString' enum +fromE'EnumFormString :: E'EnumFormString -> Text +fromE'EnumFormString = \case + E'EnumFormString'_abc -> "_abc" + E'EnumFormString'_efg -> "-efg" + E'EnumFormString'_xyz -> "(xyz)" + +-- | parse 'E'EnumFormString' enum +toE'EnumFormString :: Text -> P.Either String E'EnumFormString +toE'EnumFormString = \case + "_abc" -> P.Right E'EnumFormString'_abc + "-efg" -> P.Right E'EnumFormString'_efg + "(xyz)" -> P.Right E'EnumFormString'_xyz + s -> P.Left $ "toE'EnumFormString: enum parse failure: " P.++ P.show s + + +-- ** E'EnumFormStringArray + +-- | Enum of 'Text' +data E'EnumFormStringArray + = E'EnumFormStringArray'GreaterThan -- ^ @">"@ + | E'EnumFormStringArray'Dollar -- ^ @"$"@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'EnumFormStringArray where toJSON = A.toJSON . fromE'EnumFormStringArray +instance A.FromJSON E'EnumFormStringArray where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumFormStringArray =<< A.parseJSON o +instance WH.ToHttpApiData E'EnumFormStringArray where toQueryParam = WH.toQueryParam . fromE'EnumFormStringArray +instance WH.FromHttpApiData E'EnumFormStringArray where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumFormStringArray +instance MimeRender MimeMultipartFormData E'EnumFormStringArray where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'EnumFormStringArray' enum +fromE'EnumFormStringArray :: E'EnumFormStringArray -> Text +fromE'EnumFormStringArray = \case + E'EnumFormStringArray'GreaterThan -> ">" + E'EnumFormStringArray'Dollar -> "$" + +-- | parse 'E'EnumFormStringArray' enum +toE'EnumFormStringArray :: Text -> P.Either String E'EnumFormStringArray +toE'EnumFormStringArray = \case + ">" -> P.Right E'EnumFormStringArray'GreaterThan + "$" -> P.Right E'EnumFormStringArray'Dollar + s -> P.Left $ "toE'EnumFormStringArray: enum parse failure: " P.++ P.show s + + +-- ** E'EnumInteger + +-- | Enum of 'Int' +data E'EnumInteger + = E'EnumInteger'Num1 -- ^ @1@ + | E'EnumInteger'NumMinus_1 -- ^ @-1@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'EnumInteger where toJSON = A.toJSON . fromE'EnumInteger +instance A.FromJSON E'EnumInteger where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumInteger =<< A.parseJSON o +instance WH.ToHttpApiData E'EnumInteger where toQueryParam = WH.toQueryParam . fromE'EnumInteger +instance WH.FromHttpApiData E'EnumInteger where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumInteger +instance MimeRender MimeMultipartFormData E'EnumInteger where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'EnumInteger' enum +fromE'EnumInteger :: E'EnumInteger -> Int +fromE'EnumInteger = \case + E'EnumInteger'Num1 -> 1 + E'EnumInteger'NumMinus_1 -> -1 + +-- | parse 'E'EnumInteger' enum +toE'EnumInteger :: Int -> P.Either String E'EnumInteger +toE'EnumInteger = \case + 1 -> P.Right E'EnumInteger'Num1 + -1 -> P.Right E'EnumInteger'NumMinus_1 + s -> P.Left $ "toE'EnumInteger: enum parse failure: " P.++ P.show s + + +-- ** E'EnumNumber + +-- | Enum of 'Double' +data E'EnumNumber + = E'EnumNumber'Num1_Dot_1 -- ^ @1.1@ + | E'EnumNumber'NumMinus_1_Dot_2 -- ^ @-1.2@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'EnumNumber where toJSON = A.toJSON . fromE'EnumNumber +instance A.FromJSON E'EnumNumber where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumNumber =<< A.parseJSON o +instance WH.ToHttpApiData E'EnumNumber where toQueryParam = WH.toQueryParam . fromE'EnumNumber +instance WH.FromHttpApiData E'EnumNumber where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumNumber +instance MimeRender MimeMultipartFormData E'EnumNumber where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'EnumNumber' enum +fromE'EnumNumber :: E'EnumNumber -> Double +fromE'EnumNumber = \case + E'EnumNumber'Num1_Dot_1 -> 1.1 + E'EnumNumber'NumMinus_1_Dot_2 -> -1.2 + +-- | parse 'E'EnumNumber' enum +toE'EnumNumber :: Double -> P.Either String E'EnumNumber +toE'EnumNumber = \case + 1.1 -> P.Right E'EnumNumber'Num1_Dot_1 + -1.2 -> P.Right E'EnumNumber'NumMinus_1_Dot_2 + s -> P.Left $ "toE'EnumNumber: enum parse failure: " P.++ P.show s + + +-- ** E'EnumQueryInteger + +-- | Enum of 'Int' +data E'EnumQueryInteger + = E'EnumQueryInteger'Num1 -- ^ @1@ + | E'EnumQueryInteger'NumMinus_2 -- ^ @-2@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'EnumQueryInteger where toJSON = A.toJSON . fromE'EnumQueryInteger +instance A.FromJSON E'EnumQueryInteger where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumQueryInteger =<< A.parseJSON o +instance WH.ToHttpApiData E'EnumQueryInteger where toQueryParam = WH.toQueryParam . fromE'EnumQueryInteger +instance WH.FromHttpApiData E'EnumQueryInteger where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumQueryInteger +instance MimeRender MimeMultipartFormData E'EnumQueryInteger where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'EnumQueryInteger' enum +fromE'EnumQueryInteger :: E'EnumQueryInteger -> Int +fromE'EnumQueryInteger = \case + E'EnumQueryInteger'Num1 -> 1 + E'EnumQueryInteger'NumMinus_2 -> -2 + +-- | parse 'E'EnumQueryInteger' enum +toE'EnumQueryInteger :: Int -> P.Either String E'EnumQueryInteger +toE'EnumQueryInteger = \case + 1 -> P.Right E'EnumQueryInteger'Num1 + -2 -> P.Right E'EnumQueryInteger'NumMinus_2 + s -> P.Left $ "toE'EnumQueryInteger: enum parse failure: " P.++ P.show s + + +-- ** E'EnumString + +-- | Enum of 'Text' +data E'EnumString + = E'EnumString'UPPER -- ^ @"UPPER"@ + | E'EnumString'Lower -- ^ @"lower"@ + | E'EnumString'Empty -- ^ @""@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'EnumString where toJSON = A.toJSON . fromE'EnumString +instance A.FromJSON E'EnumString where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumString =<< A.parseJSON o +instance WH.ToHttpApiData E'EnumString where toQueryParam = WH.toQueryParam . fromE'EnumString +instance WH.FromHttpApiData E'EnumString where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumString +instance MimeRender MimeMultipartFormData E'EnumString where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'EnumString' enum +fromE'EnumString :: E'EnumString -> Text +fromE'EnumString = \case + E'EnumString'UPPER -> "UPPER" + E'EnumString'Lower -> "lower" + E'EnumString'Empty -> "" + +-- | parse 'E'EnumString' enum +toE'EnumString :: Text -> P.Either String E'EnumString +toE'EnumString = \case + "UPPER" -> P.Right E'EnumString'UPPER + "lower" -> P.Right E'EnumString'Lower + "" -> P.Right E'EnumString'Empty + s -> P.Left $ "toE'EnumString: enum parse failure: " P.++ P.show s + + +-- ** E'Inner + +-- | Enum of 'Text' +data E'Inner + = E'Inner'UPPER -- ^ @"UPPER"@ + | E'Inner'Lower -- ^ @"lower"@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'Inner where toJSON = A.toJSON . fromE'Inner +instance A.FromJSON E'Inner where parseJSON o = P.either P.fail (pure . P.id) . toE'Inner =<< A.parseJSON o +instance WH.ToHttpApiData E'Inner where toQueryParam = WH.toQueryParam . fromE'Inner +instance WH.FromHttpApiData E'Inner where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'Inner +instance MimeRender MimeMultipartFormData E'Inner where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'Inner' enum +fromE'Inner :: E'Inner -> Text +fromE'Inner = \case + E'Inner'UPPER -> "UPPER" + E'Inner'Lower -> "lower" + +-- | parse 'E'Inner' enum +toE'Inner :: Text -> P.Either String E'Inner +toE'Inner = \case + "UPPER" -> P.Right E'Inner'UPPER + "lower" -> P.Right E'Inner'Lower + s -> P.Left $ "toE'Inner: enum parse failure: " P.++ P.show s + + +-- ** E'JustSymbol + +-- | Enum of 'Text' +data E'JustSymbol + = E'JustSymbol'Greater_Than_Or_Equal_To -- ^ @">="@ + | E'JustSymbol'Dollar -- ^ @"$"@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'JustSymbol where toJSON = A.toJSON . fromE'JustSymbol +instance A.FromJSON E'JustSymbol where parseJSON o = P.either P.fail (pure . P.id) . toE'JustSymbol =<< A.parseJSON o +instance WH.ToHttpApiData E'JustSymbol where toQueryParam = WH.toQueryParam . fromE'JustSymbol +instance WH.FromHttpApiData E'JustSymbol where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'JustSymbol +instance MimeRender MimeMultipartFormData E'JustSymbol where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'JustSymbol' enum +fromE'JustSymbol :: E'JustSymbol -> Text +fromE'JustSymbol = \case + E'JustSymbol'Greater_Than_Or_Equal_To -> ">=" + E'JustSymbol'Dollar -> "$" + +-- | parse 'E'JustSymbol' enum +toE'JustSymbol :: Text -> P.Either String E'JustSymbol +toE'JustSymbol = \case + ">=" -> P.Right E'JustSymbol'Greater_Than_Or_Equal_To + "$" -> P.Right E'JustSymbol'Dollar + s -> P.Left $ "toE'JustSymbol: enum parse failure: " P.++ P.show s + + +-- ** E'Status + +-- | Enum of 'Text' . +-- Order Status +data E'Status + = E'Status'Placed -- ^ @"placed"@ + | E'Status'Approved -- ^ @"approved"@ + | E'Status'Delivered -- ^ @"delivered"@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'Status where toJSON = A.toJSON . fromE'Status +instance A.FromJSON E'Status where parseJSON o = P.either P.fail (pure . P.id) . toE'Status =<< A.parseJSON o +instance WH.ToHttpApiData E'Status where toQueryParam = WH.toQueryParam . fromE'Status +instance WH.FromHttpApiData E'Status where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'Status +instance MimeRender MimeMultipartFormData E'Status where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'Status' enum +fromE'Status :: E'Status -> Text +fromE'Status = \case + E'Status'Placed -> "placed" + E'Status'Approved -> "approved" + E'Status'Delivered -> "delivered" + +-- | parse 'E'Status' enum +toE'Status :: Text -> P.Either String E'Status +toE'Status = \case + "placed" -> P.Right E'Status'Placed + "approved" -> P.Right E'Status'Approved + "delivered" -> P.Right E'Status'Delivered + s -> P.Left $ "toE'Status: enum parse failure: " P.++ P.show s + + +-- ** E'Status2 + +-- | Enum of 'Text' . +-- pet status in the store +data E'Status2 + = E'Status2'Available -- ^ @"available"@ + | E'Status2'Pending -- ^ @"pending"@ + | E'Status2'Sold -- ^ @"sold"@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON E'Status2 where toJSON = A.toJSON . fromE'Status2 +instance A.FromJSON E'Status2 where parseJSON o = P.either P.fail (pure . P.id) . toE'Status2 =<< A.parseJSON o +instance WH.ToHttpApiData E'Status2 where toQueryParam = WH.toQueryParam . fromE'Status2 +instance WH.FromHttpApiData E'Status2 where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'Status2 +instance MimeRender MimeMultipartFormData E'Status2 where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'E'Status2' enum +fromE'Status2 :: E'Status2 -> Text +fromE'Status2 = \case + E'Status2'Available -> "available" + E'Status2'Pending -> "pending" + E'Status2'Sold -> "sold" + +-- | parse 'E'Status2' enum +toE'Status2 :: Text -> P.Either String E'Status2 +toE'Status2 = \case + "available" -> P.Right E'Status2'Available + "pending" -> P.Right E'Status2'Pending + "sold" -> P.Right E'Status2'Sold + s -> P.Left $ "toE'Status2: enum parse failure: " P.++ P.show s + + +-- ** EnumClass + +-- | Enum of 'Text' +data EnumClass + = EnumClass'_abc -- ^ @"_abc"@ + | EnumClass'_efg -- ^ @"-efg"@ + | EnumClass'_xyz -- ^ @"(xyz)"@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON EnumClass where toJSON = A.toJSON . fromEnumClass +instance A.FromJSON EnumClass where parseJSON o = P.either P.fail (pure . P.id) . toEnumClass =<< A.parseJSON o +instance WH.ToHttpApiData EnumClass where toQueryParam = WH.toQueryParam . fromEnumClass +instance WH.FromHttpApiData EnumClass where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toEnumClass +instance MimeRender MimeMultipartFormData EnumClass where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'EnumClass' enum +fromEnumClass :: EnumClass -> Text +fromEnumClass = \case + EnumClass'_abc -> "_abc" + EnumClass'_efg -> "-efg" + EnumClass'_xyz -> "(xyz)" + +-- | parse 'EnumClass' enum +toEnumClass :: Text -> P.Either String EnumClass +toEnumClass = \case + "_abc" -> P.Right EnumClass'_abc + "-efg" -> P.Right EnumClass'_efg + "(xyz)" -> P.Right EnumClass'_xyz + s -> P.Left $ "toEnumClass: enum parse failure: " P.++ P.show s + + +-- ** OuterEnum + +-- | Enum of 'Text' +data OuterEnum + = OuterEnum'Placed -- ^ @"placed"@ + | OuterEnum'Approved -- ^ @"approved"@ + | OuterEnum'Delivered -- ^ @"delivered"@ + deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) + +instance A.ToJSON OuterEnum where toJSON = A.toJSON . fromOuterEnum +instance A.FromJSON OuterEnum where parseJSON o = P.either P.fail (pure . P.id) . toOuterEnum =<< A.parseJSON o +instance WH.ToHttpApiData OuterEnum where toQueryParam = WH.toQueryParam . fromOuterEnum +instance WH.FromHttpApiData OuterEnum where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toOuterEnum +instance MimeRender MimeMultipartFormData OuterEnum where mimeRender _ = mimeRenderDefaultMultipartFormData + +-- | unwrap 'OuterEnum' enum +fromOuterEnum :: OuterEnum -> Text +fromOuterEnum = \case + OuterEnum'Placed -> "placed" + OuterEnum'Approved -> "approved" + OuterEnum'Delivered -> "delivered" + +-- | parse 'OuterEnum' enum +toOuterEnum :: Text -> P.Either String OuterEnum +toOuterEnum = \case + "placed" -> P.Right OuterEnum'Placed + "approved" -> P.Right OuterEnum'Approved + "delivered" -> P.Right OuterEnum'Delivered + s -> P.Left $ "toOuterEnum: enum parse failure: " P.++ P.show s + + +-- * Auth Methods + +-- ** AuthApiKeyApiKey +data AuthApiKeyApiKey = + AuthApiKeyApiKey Text -- ^ secret + deriving (P.Eq, P.Show, P.Typeable) + +instance AuthMethod AuthApiKeyApiKey where + applyAuthMethod _ a@(AuthApiKeyApiKey secret) req = + P.pure $ + if (P.typeOf a `P.elem` rAuthTypes req) + then req `setHeader` toHeader ("api_key", secret) + & L.over rAuthTypesL (P.filter (/= P.typeOf a)) + else req + +-- ** AuthApiKeyApiKeyQuery +data AuthApiKeyApiKeyQuery = + AuthApiKeyApiKeyQuery Text -- ^ secret + deriving (P.Eq, P.Show, P.Typeable) + +instance AuthMethod AuthApiKeyApiKeyQuery where + applyAuthMethod _ a@(AuthApiKeyApiKeyQuery secret) req = + P.pure $ + if (P.typeOf a `P.elem` rAuthTypes req) + then req `setQuery` toQuery ("api_key_query", Just secret) + & L.over rAuthTypesL (P.filter (/= P.typeOf a)) + else req + +-- ** AuthBasicHttpBasicTest +data AuthBasicHttpBasicTest = + AuthBasicHttpBasicTest B.ByteString B.ByteString -- ^ username password + deriving (P.Eq, P.Show, P.Typeable) + +instance AuthMethod AuthBasicHttpBasicTest where + applyAuthMethod _ a@(AuthBasicHttpBasicTest user pw) req = + P.pure $ + if (P.typeOf a `P.elem` rAuthTypes req) + then req `setHeader` toHeader ("Authorization", T.decodeUtf8 cred) + & L.over rAuthTypesL (P.filter (/= P.typeOf a)) + else req + where cred = BC.append "Basic " (B64.encode $ BC.concat [ user, ":", pw ]) + +-- ** AuthOAuthPetstoreAuth +data AuthOAuthPetstoreAuth = + AuthOAuthPetstoreAuth Text -- ^ secret + deriving (P.Eq, P.Show, P.Typeable) + +instance AuthMethod AuthOAuthPetstoreAuth where + applyAuthMethod _ a@(AuthOAuthPetstoreAuth secret) req = + P.pure $ + if (P.typeOf a `P.elem` rAuthTypes req) + then req `setHeader` toHeader ("Authorization", "Bearer " <> secret) + & L.over rAuthTypesL (P.filter (/= P.typeOf a)) + else req + + \ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.ModelLens.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.ModelLens.html similarity index 56% rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.ModelLens.html rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.ModelLens.html index b3ed3fb2cbc..9bc19b1aafe 100644 --- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.ModelLens.html +++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.ModelLens.html @@ -1,643 +1,630 @@ 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore.Lens
+
+{-|
+Module : OpenAPIPetstore.Lens
 -}
-
-{-# LANGUAGE KindSignatures #-}
-{-# LANGUAGE NamedFieldPuns #-}
-{-# LANGUAGE RankNTypes #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}
-
-module SwaggerPetstore.ModelLens where
-
-import qualified Data.Aeson as A
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.Data as P (Data, Typeable)
-import qualified Data.Map as Map
-import qualified Data.Set as Set
-import qualified Data.Time as TI
-
-import Data.Text (Text)
-
-import Prelude (($), (.),(<$>),(<*>),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
-import qualified Prelude as P
-
-import SwaggerPetstore.Model
-import SwaggerPetstore.Core
+
+{-# LANGUAGE KindSignatures #-}
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}
+
+module OpenAPIPetstore.ModelLens where
+
+import qualified Data.Aeson as A
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.Data as P (Data, Typeable)
+import qualified Data.Map as Map
+import qualified Data.Set as Set
+import qualified Data.Time as TI
+
+import Data.Text (Text)
+
+import Prelude (($), (.),(<$>),(<*>),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
+import qualified Prelude as P
+
+import OpenAPIPetstore.Model
+import OpenAPIPetstore.Core
+
 
-
--- * AdditionalPropertiesClass
-
--- | 'additionalPropertiesClassMapProperty' Lens
-additionalPropertiesClassMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map.Map String Text))
-additionalPropertiesClassMapPropertyL f AdditionalPropertiesClass{..} = (\additionalPropertiesClassMapProperty -> AdditionalPropertiesClass { additionalPropertiesClassMapProperty, ..} ) <$> f additionalPropertiesClassMapProperty
-{-# INLINE additionalPropertiesClassMapPropertyL #-}
-
--- | 'additionalPropertiesClassMapOfMapProperty' Lens
-additionalPropertiesClassMapOfMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map.Map String (Map.Map String Text)))
-additionalPropertiesClassMapOfMapPropertyL f AdditionalPropertiesClass{..} = (\additionalPropertiesClassMapOfMapProperty -> AdditionalPropertiesClass { additionalPropertiesClassMapOfMapProperty, ..} ) <$> f additionalPropertiesClassMapOfMapProperty
-{-# INLINE additionalPropertiesClassMapOfMapPropertyL #-}
+-- * AdditionalPropertiesClass
+
+-- | 'additionalPropertiesClassMapProperty' Lens
+additionalPropertiesClassMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map.Map String Text))
+additionalPropertiesClassMapPropertyL f AdditionalPropertiesClass{..} = (\additionalPropertiesClassMapProperty -> AdditionalPropertiesClass { additionalPropertiesClassMapProperty, ..} ) <$> f additionalPropertiesClassMapProperty
+{-# INLINE additionalPropertiesClassMapPropertyL #-}
+
+-- | 'additionalPropertiesClassMapOfMapProperty' Lens
+additionalPropertiesClassMapOfMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map.Map String (Map.Map String Text)))
+additionalPropertiesClassMapOfMapPropertyL f AdditionalPropertiesClass{..} = (\additionalPropertiesClassMapOfMapProperty -> AdditionalPropertiesClass { additionalPropertiesClassMapOfMapProperty, ..} ) <$> f additionalPropertiesClassMapOfMapProperty
+{-# INLINE additionalPropertiesClassMapOfMapPropertyL #-}
+
 
 
-
--- * Animal
-
--- | 'animalClassName' Lens
-animalClassNameL :: Lens_' Animal (Text)
-animalClassNameL f Animal{..} = (\animalClassName -> Animal { animalClassName, ..} ) <$> f animalClassName
-{-# INLINE animalClassNameL #-}
-
--- | 'animalColor' Lens
-animalColorL :: Lens_' Animal (Maybe Text)
-animalColorL f Animal{..} = (\animalColor -> Animal { animalColor, ..} ) <$> f animalColor
-{-# INLINE animalColorL #-}
+-- * Animal
+
+-- | 'animalClassName' Lens
+animalClassNameL :: Lens_' Animal (Text)
+animalClassNameL f Animal{..} = (\animalClassName -> Animal { animalClassName, ..} ) <$> f animalClassName
+{-# INLINE animalClassNameL #-}
+
+-- | 'animalColor' Lens
+animalColorL :: Lens_' Animal (Maybe Text)
+animalColorL f Animal{..} = (\animalColor -> Animal { animalColor, ..} ) <$> f animalColor
+{-# INLINE animalColorL #-}
+
 
 
-
--- * AnimalFarm
+-- * AnimalFarm
+
 
 
-
--- * ApiResponse
-
--- | 'apiResponseCode' Lens
-apiResponseCodeL :: Lens_' ApiResponse (Maybe Int)
-apiResponseCodeL f ApiResponse{..} = (\apiResponseCode -> ApiResponse { apiResponseCode, ..} ) <$> f apiResponseCode
-{-# INLINE apiResponseCodeL #-}
-
--- | 'apiResponseType' Lens
-apiResponseTypeL :: Lens_' ApiResponse (Maybe Text)
-apiResponseTypeL f ApiResponse{..} = (\apiResponseType -> ApiResponse { apiResponseType, ..} ) <$> f apiResponseType
-{-# INLINE apiResponseTypeL #-}
-
--- | 'apiResponseMessage' Lens
-apiResponseMessageL :: Lens_' ApiResponse (Maybe Text)
-apiResponseMessageL f ApiResponse{..} = (\apiResponseMessage -> ApiResponse { apiResponseMessage, ..} ) <$> f apiResponseMessage
-{-# INLINE apiResponseMessageL #-}
+-- * ApiResponse
+
+-- | 'apiResponseCode' Lens
+apiResponseCodeL :: Lens_' ApiResponse (Maybe Int)
+apiResponseCodeL f ApiResponse{..} = (\apiResponseCode -> ApiResponse { apiResponseCode, ..} ) <$> f apiResponseCode
+{-# INLINE apiResponseCodeL #-}
+
+-- | 'apiResponseType' Lens
+apiResponseTypeL :: Lens_' ApiResponse (Maybe Text)
+apiResponseTypeL f ApiResponse{..} = (\apiResponseType -> ApiResponse { apiResponseType, ..} ) <$> f apiResponseType
+{-# INLINE apiResponseTypeL #-}
+
+-- | 'apiResponseMessage' Lens
+apiResponseMessageL :: Lens_' ApiResponse (Maybe Text)
+apiResponseMessageL f ApiResponse{..} = (\apiResponseMessage -> ApiResponse { apiResponseMessage, ..} ) <$> f apiResponseMessage
+{-# INLINE apiResponseMessageL #-}
+
 
 
-
--- * ArrayOfArrayOfNumberOnly
-
--- | 'arrayOfArrayOfNumberOnlyArrayArrayNumber' Lens
-arrayOfArrayOfNumberOnlyArrayArrayNumberL :: Lens_' ArrayOfArrayOfNumberOnly (Maybe [[Double]])
-arrayOfArrayOfNumberOnlyArrayArrayNumberL f ArrayOfArrayOfNumberOnly{..} = (\arrayOfArrayOfNumberOnlyArrayArrayNumber -> ArrayOfArrayOfNumberOnly { arrayOfArrayOfNumberOnlyArrayArrayNumber, ..} ) <$> f arrayOfArrayOfNumberOnlyArrayArrayNumber
-{-# INLINE arrayOfArrayOfNumberOnlyArrayArrayNumberL #-}
+-- * ArrayOfArrayOfNumberOnly
+
+-- | 'arrayOfArrayOfNumberOnlyArrayArrayNumber' Lens
+arrayOfArrayOfNumberOnlyArrayArrayNumberL :: Lens_' ArrayOfArrayOfNumberOnly (Maybe [[Double]])
+arrayOfArrayOfNumberOnlyArrayArrayNumberL f ArrayOfArrayOfNumberOnly{..} = (\arrayOfArrayOfNumberOnlyArrayArrayNumber -> ArrayOfArrayOfNumberOnly { arrayOfArrayOfNumberOnlyArrayArrayNumber, ..} ) <$> f arrayOfArrayOfNumberOnlyArrayArrayNumber
+{-# INLINE arrayOfArrayOfNumberOnlyArrayArrayNumberL #-}
+
 
 
-
--- * ArrayOfNumberOnly
-
--- | 'arrayOfNumberOnlyArrayNumber' Lens
-arrayOfNumberOnlyArrayNumberL :: Lens_' ArrayOfNumberOnly (Maybe [Double])
-arrayOfNumberOnlyArrayNumberL f ArrayOfNumberOnly{..} = (\arrayOfNumberOnlyArrayNumber -> ArrayOfNumberOnly { arrayOfNumberOnlyArrayNumber, ..} ) <$> f arrayOfNumberOnlyArrayNumber
-{-# INLINE arrayOfNumberOnlyArrayNumberL #-}
+-- * ArrayOfNumberOnly
+
+-- | 'arrayOfNumberOnlyArrayNumber' Lens
+arrayOfNumberOnlyArrayNumberL :: Lens_' ArrayOfNumberOnly (Maybe [Double])
+arrayOfNumberOnlyArrayNumberL f ArrayOfNumberOnly{..} = (\arrayOfNumberOnlyArrayNumber -> ArrayOfNumberOnly { arrayOfNumberOnlyArrayNumber, ..} ) <$> f arrayOfNumberOnlyArrayNumber
+{-# INLINE arrayOfNumberOnlyArrayNumberL #-}
+
 
 
-
--- * ArrayTest
-
--- | 'arrayTestArrayOfString' Lens
-arrayTestArrayOfStringL :: Lens_' ArrayTest (Maybe [Text])
-arrayTestArrayOfStringL f ArrayTest{..} = (\arrayTestArrayOfString -> ArrayTest { arrayTestArrayOfString, ..} ) <$> f arrayTestArrayOfString
-{-# INLINE arrayTestArrayOfStringL #-}
-
--- | 'arrayTestArrayArrayOfInteger' Lens
-arrayTestArrayArrayOfIntegerL :: Lens_' ArrayTest (Maybe [[Integer]])
-arrayTestArrayArrayOfIntegerL f ArrayTest{..} = (\arrayTestArrayArrayOfInteger -> ArrayTest { arrayTestArrayArrayOfInteger, ..} ) <$> f arrayTestArrayArrayOfInteger
-{-# INLINE arrayTestArrayArrayOfIntegerL #-}
-
--- | 'arrayTestArrayArrayOfModel' Lens
-arrayTestArrayArrayOfModelL :: Lens_' ArrayTest (Maybe [[ReadOnlyFirst]])
-arrayTestArrayArrayOfModelL f ArrayTest{..} = (\arrayTestArrayArrayOfModel -> ArrayTest { arrayTestArrayArrayOfModel, ..} ) <$> f arrayTestArrayArrayOfModel
-{-# INLINE arrayTestArrayArrayOfModelL #-}
+-- * ArrayTest
+
+-- | 'arrayTestArrayOfString' Lens
+arrayTestArrayOfStringL :: Lens_' ArrayTest (Maybe [Text])
+arrayTestArrayOfStringL f ArrayTest{..} = (\arrayTestArrayOfString -> ArrayTest { arrayTestArrayOfString, ..} ) <$> f arrayTestArrayOfString
+{-# INLINE arrayTestArrayOfStringL #-}
+
+-- | 'arrayTestArrayArrayOfInteger' Lens
+arrayTestArrayArrayOfIntegerL :: Lens_' ArrayTest (Maybe [[Integer]])
+arrayTestArrayArrayOfIntegerL f ArrayTest{..} = (\arrayTestArrayArrayOfInteger -> ArrayTest { arrayTestArrayArrayOfInteger, ..} ) <$> f arrayTestArrayArrayOfInteger
+{-# INLINE arrayTestArrayArrayOfIntegerL #-}
+
+-- | 'arrayTestArrayArrayOfModel' Lens
+arrayTestArrayArrayOfModelL :: Lens_' ArrayTest (Maybe [[ReadOnlyFirst]])
+arrayTestArrayArrayOfModelL f ArrayTest{..} = (\arrayTestArrayArrayOfModel -> ArrayTest { arrayTestArrayArrayOfModel, ..} ) <$> f arrayTestArrayArrayOfModel
+{-# INLINE arrayTestArrayArrayOfModelL #-}
+
 
 
-
--- * Capitalization
-
--- | 'capitalizationSmallCamel' Lens
-capitalizationSmallCamelL :: Lens_' Capitalization (Maybe Text)
-capitalizationSmallCamelL f Capitalization{..} = (\capitalizationSmallCamel -> Capitalization { capitalizationSmallCamel, ..} ) <$> f capitalizationSmallCamel
-{-# INLINE capitalizationSmallCamelL #-}
-
--- | 'capitalizationCapitalCamel' Lens
-capitalizationCapitalCamelL :: Lens_' Capitalization (Maybe Text)
-capitalizationCapitalCamelL f Capitalization{..} = (\capitalizationCapitalCamel -> Capitalization { capitalizationCapitalCamel, ..} ) <$> f capitalizationCapitalCamel
-{-# INLINE capitalizationCapitalCamelL #-}
-
--- | 'capitalizationSmallSnake' Lens
-capitalizationSmallSnakeL :: Lens_' Capitalization (Maybe Text)
-capitalizationSmallSnakeL f Capitalization{..} = (\capitalizationSmallSnake -> Capitalization { capitalizationSmallSnake, ..} ) <$> f capitalizationSmallSnake
-{-# INLINE capitalizationSmallSnakeL #-}
-
--- | 'capitalizationCapitalSnake' Lens
-capitalizationCapitalSnakeL :: Lens_' Capitalization (Maybe Text)
-capitalizationCapitalSnakeL f Capitalization{..} = (\capitalizationCapitalSnake -> Capitalization { capitalizationCapitalSnake, ..} ) <$> f capitalizationCapitalSnake
-{-# INLINE capitalizationCapitalSnakeL #-}
-
--- | 'capitalizationScaEthFlowPoints' Lens
-capitalizationScaEthFlowPointsL :: Lens_' Capitalization (Maybe Text)
-capitalizationScaEthFlowPointsL f Capitalization{..} = (\capitalizationScaEthFlowPoints -> Capitalization { capitalizationScaEthFlowPoints, ..} ) <$> f capitalizationScaEthFlowPoints
-{-# INLINE capitalizationScaEthFlowPointsL #-}
-
--- | 'capitalizationAttName' Lens
-capitalizationAttNameL :: Lens_' Capitalization (Maybe Text)
-capitalizationAttNameL f Capitalization{..} = (\capitalizationAttName -> Capitalization { capitalizationAttName, ..} ) <$> f capitalizationAttName
-{-# INLINE capitalizationAttNameL #-}
+-- * Capitalization
+
+-- | 'capitalizationSmallCamel' Lens
+capitalizationSmallCamelL :: Lens_' Capitalization (Maybe Text)
+capitalizationSmallCamelL f Capitalization{..} = (\capitalizationSmallCamel -> Capitalization { capitalizationSmallCamel, ..} ) <$> f capitalizationSmallCamel
+{-# INLINE capitalizationSmallCamelL #-}
+
+-- | 'capitalizationCapitalCamel' Lens
+capitalizationCapitalCamelL :: Lens_' Capitalization (Maybe Text)
+capitalizationCapitalCamelL f Capitalization{..} = (\capitalizationCapitalCamel -> Capitalization { capitalizationCapitalCamel, ..} ) <$> f capitalizationCapitalCamel
+{-# INLINE capitalizationCapitalCamelL #-}
+
+-- | 'capitalizationSmallSnake' Lens
+capitalizationSmallSnakeL :: Lens_' Capitalization (Maybe Text)
+capitalizationSmallSnakeL f Capitalization{..} = (\capitalizationSmallSnake -> Capitalization { capitalizationSmallSnake, ..} ) <$> f capitalizationSmallSnake
+{-# INLINE capitalizationSmallSnakeL #-}
+
+-- | 'capitalizationCapitalSnake' Lens
+capitalizationCapitalSnakeL :: Lens_' Capitalization (Maybe Text)
+capitalizationCapitalSnakeL f Capitalization{..} = (\capitalizationCapitalSnake -> Capitalization { capitalizationCapitalSnake, ..} ) <$> f capitalizationCapitalSnake
+{-# INLINE capitalizationCapitalSnakeL #-}
+
+-- | 'capitalizationScaEthFlowPoints' Lens
+capitalizationScaEthFlowPointsL :: Lens_' Capitalization (Maybe Text)
+capitalizationScaEthFlowPointsL f Capitalization{..} = (\capitalizationScaEthFlowPoints -> Capitalization { capitalizationScaEthFlowPoints, ..} ) <$> f capitalizationScaEthFlowPoints
+{-# INLINE capitalizationScaEthFlowPointsL #-}
+
+-- | 'capitalizationAttName' Lens
+capitalizationAttNameL :: Lens_' Capitalization (Maybe Text)
+capitalizationAttNameL f Capitalization{..} = (\capitalizationAttName -> Capitalization { capitalizationAttName, ..} ) <$> f capitalizationAttName
+{-# INLINE capitalizationAttNameL #-}
+
 
 
-
--- * Cat
-
--- | 'catClassName' Lens
-catClassNameL :: Lens_' Cat (Text)
-catClassNameL f Cat{..} = (\catClassName -> Cat { catClassName, ..} ) <$> f catClassName
-{-# INLINE catClassNameL #-}
-
--- | 'catColor' Lens
-catColorL :: Lens_' Cat (Maybe Text)
-catColorL f Cat{..} = (\catColor -> Cat { catColor, ..} ) <$> f catColor
-{-# INLINE catColorL #-}
-
--- | 'catDeclawed' Lens
-catDeclawedL :: Lens_' Cat (Maybe Bool)
-catDeclawedL f Cat{..} = (\catDeclawed -> Cat { catDeclawed, ..} ) <$> f catDeclawed
-{-# INLINE catDeclawedL #-}
+-- * Cat
+
+-- | 'catClassName' Lens
+catClassNameL :: Lens_' Cat (Text)
+catClassNameL f Cat{..} = (\catClassName -> Cat { catClassName, ..} ) <$> f catClassName
+{-# INLINE catClassNameL #-}
+
+-- | 'catColor' Lens
+catColorL :: Lens_' Cat (Maybe Text)
+catColorL f Cat{..} = (\catColor -> Cat { catColor, ..} ) <$> f catColor
+{-# INLINE catColorL #-}
+
+-- | 'catDeclawed' Lens
+catDeclawedL :: Lens_' Cat (Maybe Bool)
+catDeclawedL f Cat{..} = (\catDeclawed -> Cat { catDeclawed, ..} ) <$> f catDeclawed
+{-# INLINE catDeclawedL #-}
+
 
 
-
--- * Category
-
--- | 'categoryId' Lens
-categoryIdL :: Lens_' Category (Maybe Integer)
-categoryIdL f Category{..} = (\categoryId -> Category { categoryId, ..} ) <$> f categoryId
-{-# INLINE categoryIdL #-}
-
--- | 'categoryName' Lens
-categoryNameL :: Lens_' Category (Maybe Text)
-categoryNameL f Category{..} = (\categoryName -> Category { categoryName, ..} ) <$> f categoryName
-{-# INLINE categoryNameL #-}
+-- * Category
+
+-- | 'categoryId' Lens
+categoryIdL :: Lens_' Category (Maybe Integer)
+categoryIdL f Category{..} = (\categoryId -> Category { categoryId, ..} ) <$> f categoryId
+{-# INLINE categoryIdL #-}
+
+-- | 'categoryName' Lens
+categoryNameL :: Lens_' Category (Maybe Text)
+categoryNameL f Category{..} = (\categoryName -> Category { categoryName, ..} ) <$> f categoryName
+{-# INLINE categoryNameL #-}
+
 
 
-
--- * ClassModel
-
--- | 'classModelClass' Lens
-classModelClassL :: Lens_' ClassModel (Maybe Text)
-classModelClassL f ClassModel{..} = (\classModelClass -> ClassModel { classModelClass, ..} ) <$> f classModelClass
-{-# INLINE classModelClassL #-}
+-- * ClassModel
+
+-- | 'classModelClass' Lens
+classModelClassL :: Lens_' ClassModel (Maybe Text)
+classModelClassL f ClassModel{..} = (\classModelClass -> ClassModel { classModelClass, ..} ) <$> f classModelClass
+{-# INLINE classModelClassL #-}
+
 
 
-
--- * Client
-
--- | 'clientClient' Lens
-clientClientL :: Lens_' Client (Maybe Text)
-clientClientL f Client{..} = (\clientClient -> Client { clientClient, ..} ) <$> f clientClient
-{-# INLINE clientClientL #-}
+-- * Client
+
+-- | 'clientClient' Lens
+clientClientL :: Lens_' Client (Maybe Text)
+clientClientL f Client{..} = (\clientClient -> Client { clientClient, ..} ) <$> f clientClient
+{-# INLINE clientClientL #-}
+
 
 
-
--- * Dog
-
--- | 'dogClassName' Lens
-dogClassNameL :: Lens_' Dog (Text)
-dogClassNameL f Dog{..} = (\dogClassName -> Dog { dogClassName, ..} ) <$> f dogClassName
-{-# INLINE dogClassNameL #-}
-
--- | 'dogColor' Lens
-dogColorL :: Lens_' Dog (Maybe Text)
-dogColorL f Dog{..} = (\dogColor -> Dog { dogColor, ..} ) <$> f dogColor
-{-# INLINE dogColorL #-}
-
--- | 'dogBreed' Lens
-dogBreedL :: Lens_' Dog (Maybe Text)
-dogBreedL f Dog{..} = (\dogBreed -> Dog { dogBreed, ..} ) <$> f dogBreed
-{-# INLINE dogBreedL #-}
+-- * Dog
+
+-- | 'dogClassName' Lens
+dogClassNameL :: Lens_' Dog (Text)
+dogClassNameL f Dog{..} = (\dogClassName -> Dog { dogClassName, ..} ) <$> f dogClassName
+{-# INLINE dogClassNameL #-}
+
+-- | 'dogColor' Lens
+dogColorL :: Lens_' Dog (Maybe Text)
+dogColorL f Dog{..} = (\dogColor -> Dog { dogColor, ..} ) <$> f dogColor
+{-# INLINE dogColorL #-}
+
+-- | 'dogBreed' Lens
+dogBreedL :: Lens_' Dog (Maybe Text)
+dogBreedL f Dog{..} = (\dogBreed -> Dog { dogBreed, ..} ) <$> f dogBreed
+{-# INLINE dogBreedL #-}
+
 
 
-
--- * EnumArrays
-
--- | 'enumArraysJustSymbol' Lens
-enumArraysJustSymbolL :: Lens_' EnumArrays (Maybe E'JustSymbol)
-enumArraysJustSymbolL f EnumArrays{..} = (\enumArraysJustSymbol -> EnumArrays { enumArraysJustSymbol, ..} ) <$> f enumArraysJustSymbol
-{-# INLINE enumArraysJustSymbolL #-}
-
--- | 'enumArraysArrayEnum' Lens
-enumArraysArrayEnumL :: Lens_' EnumArrays (Maybe [E'ArrayEnum])
-enumArraysArrayEnumL f EnumArrays{..} = (\enumArraysArrayEnum -> EnumArrays { enumArraysArrayEnum, ..} ) <$> f enumArraysArrayEnum
-{-# INLINE enumArraysArrayEnumL #-}
+-- * EnumArrays
+
+-- | 'enumArraysJustSymbol' Lens
+enumArraysJustSymbolL :: Lens_' EnumArrays (Maybe E'JustSymbol)
+enumArraysJustSymbolL f EnumArrays{..} = (\enumArraysJustSymbol -> EnumArrays { enumArraysJustSymbol, ..} ) <$> f enumArraysJustSymbol
+{-# INLINE enumArraysJustSymbolL #-}
+
+-- | 'enumArraysArrayEnum' Lens
+enumArraysArrayEnumL :: Lens_' EnumArrays (Maybe [E'ArrayEnum])
+enumArraysArrayEnumL f EnumArrays{..} = (\enumArraysArrayEnum -> EnumArrays { enumArraysArrayEnum, ..} ) <$> f enumArraysArrayEnum
+{-# INLINE enumArraysArrayEnumL #-}
+
 
 
-
--- * EnumClass
+-- * EnumClass
+
 
 
-
--- * EnumTest
-
--- | 'enumTestEnumString' Lens
-enumTestEnumStringL :: Lens_' EnumTest (Maybe E'EnumString)
-enumTestEnumStringL f EnumTest{..} = (\enumTestEnumString -> EnumTest { enumTestEnumString, ..} ) <$> f enumTestEnumString
-{-# INLINE enumTestEnumStringL #-}
-
--- | 'enumTestEnumStringRequired' Lens
-enumTestEnumStringRequiredL :: Lens_' EnumTest (E'EnumString)
-enumTestEnumStringRequiredL f EnumTest{..} = (\enumTestEnumStringRequired -> EnumTest { enumTestEnumStringRequired, ..} ) <$> f enumTestEnumStringRequired
-{-# INLINE enumTestEnumStringRequiredL #-}
-
--- | 'enumTestEnumInteger' Lens
-enumTestEnumIntegerL :: Lens_' EnumTest (Maybe E'EnumInteger)
-enumTestEnumIntegerL f EnumTest{..} = (\enumTestEnumInteger -> EnumTest { enumTestEnumInteger, ..} ) <$> f enumTestEnumInteger
-{-# INLINE enumTestEnumIntegerL #-}
-
--- | 'enumTestEnumNumber' Lens
-enumTestEnumNumberL :: Lens_' EnumTest (Maybe E'EnumNumber)
-enumTestEnumNumberL f EnumTest{..} = (\enumTestEnumNumber -> EnumTest { enumTestEnumNumber, ..} ) <$> f enumTestEnumNumber
-{-# INLINE enumTestEnumNumberL #-}
-
--- | 'enumTestOuterEnum' Lens
-enumTestOuterEnumL :: Lens_' EnumTest (Maybe OuterEnum)
-enumTestOuterEnumL f EnumTest{..} = (\enumTestOuterEnum -> EnumTest { enumTestOuterEnum, ..} ) <$> f enumTestOuterEnum
-{-# INLINE enumTestOuterEnumL #-}
+-- * EnumTest
+
+-- | 'enumTestEnumString' Lens
+enumTestEnumStringL :: Lens_' EnumTest (Maybe E'EnumString)
+enumTestEnumStringL f EnumTest{..} = (\enumTestEnumString -> EnumTest { enumTestEnumString, ..} ) <$> f enumTestEnumString
+{-# INLINE enumTestEnumStringL #-}
+
+-- | 'enumTestEnumStringRequired' Lens
+enumTestEnumStringRequiredL :: Lens_' EnumTest (E'EnumString)
+enumTestEnumStringRequiredL f EnumTest{..} = (\enumTestEnumStringRequired -> EnumTest { enumTestEnumStringRequired, ..} ) <$> f enumTestEnumStringRequired
+{-# INLINE enumTestEnumStringRequiredL #-}
+
+-- | 'enumTestEnumInteger' Lens
+enumTestEnumIntegerL :: Lens_' EnumTest (Maybe E'EnumInteger)
+enumTestEnumIntegerL f EnumTest{..} = (\enumTestEnumInteger -> EnumTest { enumTestEnumInteger, ..} ) <$> f enumTestEnumInteger
+{-# INLINE enumTestEnumIntegerL #-}
+
+-- | 'enumTestEnumNumber' Lens
+enumTestEnumNumberL :: Lens_' EnumTest (Maybe E'EnumNumber)
+enumTestEnumNumberL f EnumTest{..} = (\enumTestEnumNumber -> EnumTest { enumTestEnumNumber, ..} ) <$> f enumTestEnumNumber
+{-# INLINE enumTestEnumNumberL #-}
+
+-- | 'enumTestOuterEnum' Lens
+enumTestOuterEnumL :: Lens_' EnumTest (Maybe OuterEnum)
+enumTestOuterEnumL f EnumTest{..} = (\enumTestOuterEnum -> EnumTest { enumTestOuterEnum, ..} ) <$> f enumTestOuterEnum
+{-# INLINE enumTestOuterEnumL #-}
+
 
 
-
--- * FormatTest
-
--- | 'formatTestInteger' Lens
-formatTestIntegerL :: Lens_' FormatTest (Maybe Int)
-formatTestIntegerL f FormatTest{..} = (\formatTestInteger -> FormatTest { formatTestInteger, ..} ) <$> f formatTestInteger
-{-# INLINE formatTestIntegerL #-}
-
--- | 'formatTestInt32' Lens
-formatTestInt32L :: Lens_' FormatTest (Maybe Int)
-formatTestInt32L f FormatTest{..} = (\formatTestInt32 -> FormatTest { formatTestInt32, ..} ) <$> f formatTestInt32
-{-# INLINE formatTestInt32L #-}
-
--- | 'formatTestInt64' Lens
-formatTestInt64L :: Lens_' FormatTest (Maybe Integer)
-formatTestInt64L f FormatTest{..} = (\formatTestInt64 -> FormatTest { formatTestInt64, ..} ) <$> f formatTestInt64
-{-# INLINE formatTestInt64L #-}
-
--- | 'formatTestNumber' Lens
-formatTestNumberL :: Lens_' FormatTest (Double)
-formatTestNumberL f FormatTest{..} = (\formatTestNumber -> FormatTest { formatTestNumber, ..} ) <$> f formatTestNumber
-{-# INLINE formatTestNumberL #-}
-
--- | 'formatTestFloat' Lens
-formatTestFloatL :: Lens_' FormatTest (Maybe Float)
-formatTestFloatL f FormatTest{..} = (\formatTestFloat -> FormatTest { formatTestFloat, ..} ) <$> f formatTestFloat
-{-# INLINE formatTestFloatL #-}
-
--- | 'formatTestDouble' Lens
-formatTestDoubleL :: Lens_' FormatTest (Maybe Double)
-formatTestDoubleL f FormatTest{..} = (\formatTestDouble -> FormatTest { formatTestDouble, ..} ) <$> f formatTestDouble
-{-# INLINE formatTestDoubleL #-}
-
--- | 'formatTestString' Lens
-formatTestStringL :: Lens_' FormatTest (Maybe Text)
-formatTestStringL f FormatTest{..} = (\formatTestString -> FormatTest { formatTestString, ..} ) <$> f formatTestString
-{-# INLINE formatTestStringL #-}
-
--- | 'formatTestByte' Lens
-formatTestByteL :: Lens_' FormatTest (ByteArray)
-formatTestByteL f FormatTest{..} = (\formatTestByte -> FormatTest { formatTestByte, ..} ) <$> f formatTestByte
-{-# INLINE formatTestByteL #-}
-
--- | 'formatTestBinary' Lens
-formatTestBinaryL :: Lens_' FormatTest (Maybe FilePath)
-formatTestBinaryL f FormatTest{..} = (\formatTestBinary -> FormatTest { formatTestBinary, ..} ) <$> f formatTestBinary
-{-# INLINE formatTestBinaryL #-}
-
--- | 'formatTestDate' Lens
-formatTestDateL :: Lens_' FormatTest (Date)
-formatTestDateL f FormatTest{..} = (\formatTestDate -> FormatTest { formatTestDate, ..} ) <$> f formatTestDate
-{-# INLINE formatTestDateL #-}
-
--- | 'formatTestDateTime' Lens
-formatTestDateTimeL :: Lens_' FormatTest (Maybe DateTime)
-formatTestDateTimeL f FormatTest{..} = (\formatTestDateTime -> FormatTest { formatTestDateTime, ..} ) <$> f formatTestDateTime
-{-# INLINE formatTestDateTimeL #-}
-
--- | 'formatTestUuid' Lens
-formatTestUuidL :: Lens_' FormatTest (Maybe Text)
-formatTestUuidL f FormatTest{..} = (\formatTestUuid -> FormatTest { formatTestUuid, ..} ) <$> f formatTestUuid
-{-# INLINE formatTestUuidL #-}
-
--- | 'formatTestPassword' Lens
-formatTestPasswordL :: Lens_' FormatTest (Text)
-formatTestPasswordL f FormatTest{..} = (\formatTestPassword -> FormatTest { formatTestPassword, ..} ) <$> f formatTestPassword
-{-# INLINE formatTestPasswordL #-}
+-- * FormatTest
+
+-- | 'formatTestInteger' Lens
+formatTestIntegerL :: Lens_' FormatTest (Maybe Int)
+formatTestIntegerL f FormatTest{..} = (\formatTestInteger -> FormatTest { formatTestInteger, ..} ) <$> f formatTestInteger
+{-# INLINE formatTestIntegerL #-}
+
+-- | 'formatTestInt32' Lens
+formatTestInt32L :: Lens_' FormatTest (Maybe Int)
+formatTestInt32L f FormatTest{..} = (\formatTestInt32 -> FormatTest { formatTestInt32, ..} ) <$> f formatTestInt32
+{-# INLINE formatTestInt32L #-}
+
+-- | 'formatTestInt64' Lens
+formatTestInt64L :: Lens_' FormatTest (Maybe Integer)
+formatTestInt64L f FormatTest{..} = (\formatTestInt64 -> FormatTest { formatTestInt64, ..} ) <$> f formatTestInt64
+{-# INLINE formatTestInt64L #-}
+
+-- | 'formatTestNumber' Lens
+formatTestNumberL :: Lens_' FormatTest (Double)
+formatTestNumberL f FormatTest{..} = (\formatTestNumber -> FormatTest { formatTestNumber, ..} ) <$> f formatTestNumber
+{-# INLINE formatTestNumberL #-}
+
+-- | 'formatTestFloat' Lens
+formatTestFloatL :: Lens_' FormatTest (Maybe Float)
+formatTestFloatL f FormatTest{..} = (\formatTestFloat -> FormatTest { formatTestFloat, ..} ) <$> f formatTestFloat
+{-# INLINE formatTestFloatL #-}
+
+-- | 'formatTestDouble' Lens
+formatTestDoubleL :: Lens_' FormatTest (Maybe Double)
+formatTestDoubleL f FormatTest{..} = (\formatTestDouble -> FormatTest { formatTestDouble, ..} ) <$> f formatTestDouble
+{-# INLINE formatTestDoubleL #-}
+
+-- | 'formatTestString' Lens
+formatTestStringL :: Lens_' FormatTest (Maybe Text)
+formatTestStringL f FormatTest{..} = (\formatTestString -> FormatTest { formatTestString, ..} ) <$> f formatTestString
+{-# INLINE formatTestStringL #-}
+
+-- | 'formatTestByte' Lens
+formatTestByteL :: Lens_' FormatTest (ByteArray)
+formatTestByteL f FormatTest{..} = (\formatTestByte -> FormatTest { formatTestByte, ..} ) <$> f formatTestByte
+{-# INLINE formatTestByteL #-}
+
+-- | 'formatTestBinary' Lens
+formatTestBinaryL :: Lens_' FormatTest (Maybe FilePath)
+formatTestBinaryL f FormatTest{..} = (\formatTestBinary -> FormatTest { formatTestBinary, ..} ) <$> f formatTestBinary
+{-# INLINE formatTestBinaryL #-}
+
+-- | 'formatTestDate' Lens
+formatTestDateL :: Lens_' FormatTest (Date)
+formatTestDateL f FormatTest{..} = (\formatTestDate -> FormatTest { formatTestDate, ..} ) <$> f formatTestDate
+{-# INLINE formatTestDateL #-}
+
+-- | 'formatTestDateTime' Lens
+formatTestDateTimeL :: Lens_' FormatTest (Maybe DateTime)
+formatTestDateTimeL f FormatTest{..} = (\formatTestDateTime -> FormatTest { formatTestDateTime, ..} ) <$> f formatTestDateTime
+{-# INLINE formatTestDateTimeL #-}
+
+-- | 'formatTestUuid' Lens
+formatTestUuidL :: Lens_' FormatTest (Maybe Text)
+formatTestUuidL f FormatTest{..} = (\formatTestUuid -> FormatTest { formatTestUuid, ..} ) <$> f formatTestUuid
+{-# INLINE formatTestUuidL #-}
+
+-- | 'formatTestPassword' Lens
+formatTestPasswordL :: Lens_' FormatTest (Text)
+formatTestPasswordL f FormatTest{..} = (\formatTestPassword -> FormatTest { formatTestPassword, ..} ) <$> f formatTestPassword
+{-# INLINE formatTestPasswordL #-}
+
 
 
-
--- * HasOnlyReadOnly
-
--- | 'hasOnlyReadOnlyBar' Lens
-hasOnlyReadOnlyBarL :: Lens_' HasOnlyReadOnly (Maybe Text)
-hasOnlyReadOnlyBarL f HasOnlyReadOnly{..} = (\hasOnlyReadOnlyBar -> HasOnlyReadOnly { hasOnlyReadOnlyBar, ..} ) <$> f hasOnlyReadOnlyBar
-{-# INLINE hasOnlyReadOnlyBarL #-}
-
--- | 'hasOnlyReadOnlyFoo' Lens
-hasOnlyReadOnlyFooL :: Lens_' HasOnlyReadOnly (Maybe Text)
-hasOnlyReadOnlyFooL f HasOnlyReadOnly{..} = (\hasOnlyReadOnlyFoo -> HasOnlyReadOnly { hasOnlyReadOnlyFoo, ..} ) <$> f hasOnlyReadOnlyFoo
-{-# INLINE hasOnlyReadOnlyFooL #-}
+-- * HasOnlyReadOnly
+
+-- | 'hasOnlyReadOnlyBar' Lens
+hasOnlyReadOnlyBarL :: Lens_' HasOnlyReadOnly (Maybe Text)
+hasOnlyReadOnlyBarL f HasOnlyReadOnly{..} = (\hasOnlyReadOnlyBar -> HasOnlyReadOnly { hasOnlyReadOnlyBar, ..} ) <$> f hasOnlyReadOnlyBar
+{-# INLINE hasOnlyReadOnlyBarL #-}
+
+-- | 'hasOnlyReadOnlyFoo' Lens
+hasOnlyReadOnlyFooL :: Lens_' HasOnlyReadOnly (Maybe Text)
+hasOnlyReadOnlyFooL f HasOnlyReadOnly{..} = (\hasOnlyReadOnlyFoo -> HasOnlyReadOnly { hasOnlyReadOnlyFoo, ..} ) <$> f hasOnlyReadOnlyFoo
+{-# INLINE hasOnlyReadOnlyFooL #-}
+
 
 
-
--- * MapTest
-
--- | 'mapTestMapMapOfString' Lens
-mapTestMapMapOfStringL :: Lens_' MapTest (Maybe (Map.Map String (Map.Map String Text)))
-mapTestMapMapOfStringL f MapTest{..} = (\mapTestMapMapOfString -> MapTest { mapTestMapMapOfString, ..} ) <$> f mapTestMapMapOfString
-{-# INLINE mapTestMapMapOfStringL #-}
-
--- | 'mapTestMapOfEnumString' Lens
-mapTestMapOfEnumStringL :: Lens_' MapTest (Maybe (Map.Map String E'Inner))
-mapTestMapOfEnumStringL f MapTest{..} = (\mapTestMapOfEnumString -> MapTest { mapTestMapOfEnumString, ..} ) <$> f mapTestMapOfEnumString
-{-# INLINE mapTestMapOfEnumStringL #-}
+-- * MapTest
+
+-- | 'mapTestMapMapOfString' Lens
+mapTestMapMapOfStringL :: Lens_' MapTest (Maybe (Map.Map String (Map.Map String Text)))
+mapTestMapMapOfStringL f MapTest{..} = (\mapTestMapMapOfString -> MapTest { mapTestMapMapOfString, ..} ) <$> f mapTestMapMapOfString
+{-# INLINE mapTestMapMapOfStringL #-}
+
+-- | 'mapTestMapOfEnumString' Lens
+mapTestMapOfEnumStringL :: Lens_' MapTest (Maybe (Map.Map String E'Inner))
+mapTestMapOfEnumStringL f MapTest{..} = (\mapTestMapOfEnumString -> MapTest { mapTestMapOfEnumString, ..} ) <$> f mapTestMapOfEnumString
+{-# INLINE mapTestMapOfEnumStringL #-}
+
 
 
-
--- * MixedPropertiesAndAdditionalPropertiesClass
-
--- | 'mixedPropertiesAndAdditionalPropertiesClassUuid' Lens
-mixedPropertiesAndAdditionalPropertiesClassUuidL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe Text)
-mixedPropertiesAndAdditionalPropertiesClassUuidL f MixedPropertiesAndAdditionalPropertiesClass{..} = (\mixedPropertiesAndAdditionalPropertiesClassUuid -> MixedPropertiesAndAdditionalPropertiesClass { mixedPropertiesAndAdditionalPropertiesClassUuid, ..} ) <$> f mixedPropertiesAndAdditionalPropertiesClassUuid
-{-# INLINE mixedPropertiesAndAdditionalPropertiesClassUuidL #-}
-
--- | 'mixedPropertiesAndAdditionalPropertiesClassDateTime' Lens
-mixedPropertiesAndAdditionalPropertiesClassDateTimeL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe DateTime)
-mixedPropertiesAndAdditionalPropertiesClassDateTimeL f MixedPropertiesAndAdditionalPropertiesClass{..} = (\mixedPropertiesAndAdditionalPropertiesClassDateTime -> MixedPropertiesAndAdditionalPropertiesClass { mixedPropertiesAndAdditionalPropertiesClassDateTime, ..} ) <$> f mixedPropertiesAndAdditionalPropertiesClassDateTime
-{-# INLINE mixedPropertiesAndAdditionalPropertiesClassDateTimeL #-}
-
--- | 'mixedPropertiesAndAdditionalPropertiesClassMap' Lens
-mixedPropertiesAndAdditionalPropertiesClassMapL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe (Map.Map String Animal))
-mixedPropertiesAndAdditionalPropertiesClassMapL f MixedPropertiesAndAdditionalPropertiesClass{..} = (\mixedPropertiesAndAdditionalPropertiesClassMap -> MixedPropertiesAndAdditionalPropertiesClass { mixedPropertiesAndAdditionalPropertiesClassMap, ..} ) <$> f mixedPropertiesAndAdditionalPropertiesClassMap
-{-# INLINE mixedPropertiesAndAdditionalPropertiesClassMapL #-}
+-- * MixedPropertiesAndAdditionalPropertiesClass
+
+-- | 'mixedPropertiesAndAdditionalPropertiesClassUuid' Lens
+mixedPropertiesAndAdditionalPropertiesClassUuidL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe Text)
+mixedPropertiesAndAdditionalPropertiesClassUuidL f MixedPropertiesAndAdditionalPropertiesClass{..} = (\mixedPropertiesAndAdditionalPropertiesClassUuid -> MixedPropertiesAndAdditionalPropertiesClass { mixedPropertiesAndAdditionalPropertiesClassUuid, ..} ) <$> f mixedPropertiesAndAdditionalPropertiesClassUuid
+{-# INLINE mixedPropertiesAndAdditionalPropertiesClassUuidL #-}
+
+-- | 'mixedPropertiesAndAdditionalPropertiesClassDateTime' Lens
+mixedPropertiesAndAdditionalPropertiesClassDateTimeL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe DateTime)
+mixedPropertiesAndAdditionalPropertiesClassDateTimeL f MixedPropertiesAndAdditionalPropertiesClass{..} = (\mixedPropertiesAndAdditionalPropertiesClassDateTime -> MixedPropertiesAndAdditionalPropertiesClass { mixedPropertiesAndAdditionalPropertiesClassDateTime, ..} ) <$> f mixedPropertiesAndAdditionalPropertiesClassDateTime
+{-# INLINE mixedPropertiesAndAdditionalPropertiesClassDateTimeL #-}
+
+-- | 'mixedPropertiesAndAdditionalPropertiesClassMap' Lens
+mixedPropertiesAndAdditionalPropertiesClassMapL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe (Map.Map String Animal))
+mixedPropertiesAndAdditionalPropertiesClassMapL f MixedPropertiesAndAdditionalPropertiesClass{..} = (\mixedPropertiesAndAdditionalPropertiesClassMap -> MixedPropertiesAndAdditionalPropertiesClass { mixedPropertiesAndAdditionalPropertiesClassMap, ..} ) <$> f mixedPropertiesAndAdditionalPropertiesClassMap
+{-# INLINE mixedPropertiesAndAdditionalPropertiesClassMapL #-}
+
 
 
-
--- * Model200Response
-
--- | 'model200ResponseName' Lens
-model200ResponseNameL :: Lens_' Model200Response (Maybe Int)
-model200ResponseNameL f Model200Response{..} = (\model200ResponseName -> Model200Response { model200ResponseName, ..} ) <$> f model200ResponseName
-{-# INLINE model200ResponseNameL #-}
-
--- | 'model200ResponseClass' Lens
-model200ResponseClassL :: Lens_' Model200Response (Maybe Text)
-model200ResponseClassL f Model200Response{..} = (\model200ResponseClass -> Model200Response { model200ResponseClass, ..} ) <$> f model200ResponseClass
-{-# INLINE model200ResponseClassL #-}
+-- * Model200Response
+
+-- | 'model200ResponseName' Lens
+model200ResponseNameL :: Lens_' Model200Response (Maybe Int)
+model200ResponseNameL f Model200Response{..} = (\model200ResponseName -> Model200Response { model200ResponseName, ..} ) <$> f model200ResponseName
+{-# INLINE model200ResponseNameL #-}
+
+-- | 'model200ResponseClass' Lens
+model200ResponseClassL :: Lens_' Model200Response (Maybe Text)
+model200ResponseClassL f Model200Response{..} = (\model200ResponseClass -> Model200Response { model200ResponseClass, ..} ) <$> f model200ResponseClass
+{-# INLINE model200ResponseClassL #-}
+
 
 
-
--- * ModelList
-
--- | 'modelList123List' Lens
-modelList123ListL :: Lens_' ModelList (Maybe Text)
-modelList123ListL f ModelList{..} = (\modelList123List -> ModelList { modelList123List, ..} ) <$> f modelList123List
-{-# INLINE modelList123ListL #-}
+-- * ModelList
+
+-- | 'modelList123list' Lens
+modelList123listL :: Lens_' ModelList (Maybe Text)
+modelList123listL f ModelList{..} = (\modelList123list -> ModelList { modelList123list, ..} ) <$> f modelList123list
+{-# INLINE modelList123listL #-}
+
 
 
-
--- * ModelReturn
-
--- | 'modelReturnReturn' Lens
-modelReturnReturnL :: Lens_' ModelReturn (Maybe Int)
-modelReturnReturnL f ModelReturn{..} = (\modelReturnReturn -> ModelReturn { modelReturnReturn, ..} ) <$> f modelReturnReturn
-{-# INLINE modelReturnReturnL #-}
+-- * ModelReturn
+
+-- | 'modelReturnReturn' Lens
+modelReturnReturnL :: Lens_' ModelReturn (Maybe Int)
+modelReturnReturnL f ModelReturn{..} = (\modelReturnReturn -> ModelReturn { modelReturnReturn, ..} ) <$> f modelReturnReturn
+{-# INLINE modelReturnReturnL #-}
+
 
 
-
--- * Name
-
--- | 'nameName' Lens
-nameNameL :: Lens_' Name (Int)
-nameNameL f Name{..} = (\nameName -> Name { nameName, ..} ) <$> f nameName
-{-# INLINE nameNameL #-}
-
--- | 'nameSnakeCase' Lens
-nameSnakeCaseL :: Lens_' Name (Maybe Int)
-nameSnakeCaseL f Name{..} = (\nameSnakeCase -> Name { nameSnakeCase, ..} ) <$> f nameSnakeCase
-{-# INLINE nameSnakeCaseL #-}
-
--- | 'nameProperty' Lens
-namePropertyL :: Lens_' Name (Maybe Text)
-namePropertyL f Name{..} = (\nameProperty -> Name { nameProperty, ..} ) <$> f nameProperty
-{-# INLINE namePropertyL #-}
-
--- | 'name123Number' Lens
-name123NumberL :: Lens_' Name (Maybe Int)
-name123NumberL f Name{..} = (\name123Number -> Name { name123Number, ..} ) <$> f name123Number
-{-# INLINE name123NumberL #-}
+-- * Name
+
+-- | 'nameName' Lens
+nameNameL :: Lens_' Name (Int)
+nameNameL f Name{..} = (\nameName -> Name { nameName, ..} ) <$> f nameName
+{-# INLINE nameNameL #-}
+
+-- | 'nameSnakeCase' Lens
+nameSnakeCaseL :: Lens_' Name (Maybe Int)
+nameSnakeCaseL f Name{..} = (\nameSnakeCase -> Name { nameSnakeCase, ..} ) <$> f nameSnakeCase
+{-# INLINE nameSnakeCaseL #-}
+
+-- | 'nameProperty' Lens
+namePropertyL :: Lens_' Name (Maybe Text)
+namePropertyL f Name{..} = (\nameProperty -> Name { nameProperty, ..} ) <$> f nameProperty
+{-# INLINE namePropertyL #-}
+
+-- | 'name123number' Lens
+name123numberL :: Lens_' Name (Maybe Int)
+name123numberL f Name{..} = (\name123number -> Name { name123number, ..} ) <$> f name123number
+{-# INLINE name123numberL #-}
+
 
 
-
--- * NumberOnly
-
--- | 'numberOnlyJustNumber' Lens
-numberOnlyJustNumberL :: Lens_' NumberOnly (Maybe Double)
-numberOnlyJustNumberL f NumberOnly{..} = (\numberOnlyJustNumber -> NumberOnly { numberOnlyJustNumber, ..} ) <$> f numberOnlyJustNumber
-{-# INLINE numberOnlyJustNumberL #-}
+-- * NumberOnly
+
+-- | 'numberOnlyJustNumber' Lens
+numberOnlyJustNumberL :: Lens_' NumberOnly (Maybe Double)
+numberOnlyJustNumberL f NumberOnly{..} = (\numberOnlyJustNumber -> NumberOnly { numberOnlyJustNumber, ..} ) <$> f numberOnlyJustNumber
+{-# INLINE numberOnlyJustNumberL #-}
+
 
 
-
--- * Order
-
--- | 'orderId' Lens
-orderIdL :: Lens_' Order (Maybe Integer)
-orderIdL f Order{..} = (\orderId -> Order { orderId, ..} ) <$> f orderId
-{-# INLINE orderIdL #-}
-
--- | 'orderPetId' Lens
-orderPetIdL :: Lens_' Order (Maybe Integer)
-orderPetIdL f Order{..} = (\orderPetId -> Order { orderPetId, ..} ) <$> f orderPetId
-{-# INLINE orderPetIdL #-}
-
--- | 'orderQuantity' Lens
-orderQuantityL :: Lens_' Order (Maybe Int)
-orderQuantityL f Order{..} = (\orderQuantity -> Order { orderQuantity, ..} ) <$> f orderQuantity
-{-# INLINE orderQuantityL #-}
-
--- | 'orderShipDate' Lens
-orderShipDateL :: Lens_' Order (Maybe DateTime)
-orderShipDateL f Order{..} = (\orderShipDate -> Order { orderShipDate, ..} ) <$> f orderShipDate
-{-# INLINE orderShipDateL #-}
-
--- | 'orderStatus' Lens
-orderStatusL :: Lens_' Order (Maybe E'Status)
-orderStatusL f Order{..} = (\orderStatus -> Order { orderStatus, ..} ) <$> f orderStatus
-{-# INLINE orderStatusL #-}
-
--- | 'orderComplete' Lens
-orderCompleteL :: Lens_' Order (Maybe Bool)
-orderCompleteL f Order{..} = (\orderComplete -> Order { orderComplete, ..} ) <$> f orderComplete
-{-# INLINE orderCompleteL #-}
+-- * Order
+
+-- | 'orderId' Lens
+orderIdL :: Lens_' Order (Maybe Integer)
+orderIdL f Order{..} = (\orderId -> Order { orderId, ..} ) <$> f orderId
+{-# INLINE orderIdL #-}
+
+-- | 'orderPetId' Lens
+orderPetIdL :: Lens_' Order (Maybe Integer)
+orderPetIdL f Order{..} = (\orderPetId -> Order { orderPetId, ..} ) <$> f orderPetId
+{-# INLINE orderPetIdL #-}
+
+-- | 'orderQuantity' Lens
+orderQuantityL :: Lens_' Order (Maybe Int)
+orderQuantityL f Order{..} = (\orderQuantity -> Order { orderQuantity, ..} ) <$> f orderQuantity
+{-# INLINE orderQuantityL #-}
+
+-- | 'orderShipDate' Lens
+orderShipDateL :: Lens_' Order (Maybe DateTime)
+orderShipDateL f Order{..} = (\orderShipDate -> Order { orderShipDate, ..} ) <$> f orderShipDate
+{-# INLINE orderShipDateL #-}
+
+-- | 'orderStatus' Lens
+orderStatusL :: Lens_' Order (Maybe E'Status)
+orderStatusL f Order{..} = (\orderStatus -> Order { orderStatus, ..} ) <$> f orderStatus
+{-# INLINE orderStatusL #-}
+
+-- | 'orderComplete' Lens
+orderCompleteL :: Lens_' Order (Maybe Bool)
+orderCompleteL f Order{..} = (\orderComplete -> Order { orderComplete, ..} ) <$> f orderComplete
+{-# INLINE orderCompleteL #-}
+
 
 
-
--- * OuterBoolean
-
-
-
--- * OuterComposite
+-- * OuterComposite
+
+-- | 'outerCompositeMyNumber' Lens
+outerCompositeMyNumberL :: Lens_' OuterComposite (Maybe Double)
+outerCompositeMyNumberL f OuterComposite{..} = (\outerCompositeMyNumber -> OuterComposite { outerCompositeMyNumber, ..} ) <$> f outerCompositeMyNumber
+{-# INLINE outerCompositeMyNumberL #-}
 
--- | 'outerCompositeMyNumber' Lens
-outerCompositeMyNumberL :: Lens_' OuterComposite (Maybe OuterNumber)
-outerCompositeMyNumberL f OuterComposite{..} = (\outerCompositeMyNumber -> OuterComposite { outerCompositeMyNumber, ..} ) <$> f outerCompositeMyNumber
-{-# INLINE outerCompositeMyNumberL #-}
+-- | 'outerCompositeMyString' Lens
+outerCompositeMyStringL :: Lens_' OuterComposite (Maybe Text)
+outerCompositeMyStringL f OuterComposite{..} = (\outerCompositeMyString -> OuterComposite { outerCompositeMyString, ..} ) <$> f outerCompositeMyString
+{-# INLINE outerCompositeMyStringL #-}
 
--- | 'outerCompositeMyString' Lens
-outerCompositeMyStringL :: Lens_' OuterComposite (Maybe OuterString)
-outerCompositeMyStringL f OuterComposite{..} = (\outerCompositeMyString -> OuterComposite { outerCompositeMyString, ..} ) <$> f outerCompositeMyString
-{-# INLINE outerCompositeMyStringL #-}
+-- | 'outerCompositeMyBoolean' Lens
+outerCompositeMyBooleanL :: Lens_' OuterComposite (Maybe Bool)
+outerCompositeMyBooleanL f OuterComposite{..} = (\outerCompositeMyBoolean -> OuterComposite { outerCompositeMyBoolean, ..} ) <$> f outerCompositeMyBoolean
+{-# INLINE outerCompositeMyBooleanL #-}
 
--- | 'outerCompositeMyBoolean' Lens
-outerCompositeMyBooleanL :: Lens_' OuterComposite (Maybe OuterBoolean)
-outerCompositeMyBooleanL f OuterComposite{..} = (\outerCompositeMyBoolean -> OuterComposite { outerCompositeMyBoolean, ..} ) <$> f outerCompositeMyBoolean
-{-# INLINE outerCompositeMyBooleanL #-}
+
+
+-- * OuterEnum
+
 
 
-
--- * OuterEnum
-
-
-
--- * OuterNumber
+-- * Pet
+
+-- | 'petId' Lens
+petIdL :: Lens_' Pet (Maybe Integer)
+petIdL f Pet{..} = (\petId -> Pet { petId, ..} ) <$> f petId
+{-# INLINE petIdL #-}
 
-
-
--- * OuterString
-
+-- | 'petCategory' Lens
+petCategoryL :: Lens_' Pet (Maybe Category)
+petCategoryL f Pet{..} = (\petCategory -> Pet { petCategory, ..} ) <$> f petCategory
+{-# INLINE petCategoryL #-}
 
-
--- * Pet
-
--- | 'petId' Lens
-petIdL :: Lens_' Pet (Maybe Integer)
-petIdL f Pet{..} = (\petId -> Pet { petId, ..} ) <$> f petId
-{-# INLINE petIdL #-}
-
--- | 'petCategory' Lens
-petCategoryL :: Lens_' Pet (Maybe Category)
-petCategoryL f Pet{..} = (\petCategory -> Pet { petCategory, ..} ) <$> f petCategory
-{-# INLINE petCategoryL #-}
-
--- | 'petName' Lens
-petNameL :: Lens_' Pet (Text)
-petNameL f Pet{..} = (\petName -> Pet { petName, ..} ) <$> f petName
-{-# INLINE petNameL #-}
-
--- | 'petPhotoUrls' Lens
-petPhotoUrlsL :: Lens_' Pet ([Text])
-petPhotoUrlsL f Pet{..} = (\petPhotoUrls -> Pet { petPhotoUrls, ..} ) <$> f petPhotoUrls
-{-# INLINE petPhotoUrlsL #-}
-
--- | 'petTags' Lens
-petTagsL :: Lens_' Pet (Maybe [Tag])
-petTagsL f Pet{..} = (\petTags -> Pet { petTags, ..} ) <$> f petTags
-{-# INLINE petTagsL #-}
-
--- | 'petStatus' Lens
-petStatusL :: Lens_' Pet (Maybe E'Status2)
-petStatusL f Pet{..} = (\petStatus -> Pet { petStatus, ..} ) <$> f petStatus
-{-# INLINE petStatusL #-}
-
+-- | 'petName' Lens
+petNameL :: Lens_' Pet (Text)
+petNameL f Pet{..} = (\petName -> Pet { petName, ..} ) <$> f petName
+{-# INLINE petNameL #-}
+
+-- | 'petPhotoUrls' Lens
+petPhotoUrlsL :: Lens_' Pet ([Text])
+petPhotoUrlsL f Pet{..} = (\petPhotoUrls -> Pet { petPhotoUrls, ..} ) <$> f petPhotoUrls
+{-# INLINE petPhotoUrlsL #-}
+
+-- | 'petTags' Lens
+petTagsL :: Lens_' Pet (Maybe [Tag])
+petTagsL f Pet{..} = (\petTags -> Pet { petTags, ..} ) <$> f petTags
+{-# INLINE petTagsL #-}
+
+-- | 'petStatus' Lens
+petStatusL :: Lens_' Pet (Maybe E'Status2)
+petStatusL f Pet{..} = (\petStatus -> Pet { petStatus, ..} ) <$> f petStatus
+{-# INLINE petStatusL #-}
+
+
+
+-- * ReadOnlyFirst
+
+-- | 'readOnlyFirstBar' Lens
+readOnlyFirstBarL :: Lens_' ReadOnlyFirst (Maybe Text)
+readOnlyFirstBarL f ReadOnlyFirst{..} = (\readOnlyFirstBar -> ReadOnlyFirst { readOnlyFirstBar, ..} ) <$> f readOnlyFirstBar
+{-# INLINE readOnlyFirstBarL #-}
+
+-- | 'readOnlyFirstBaz' Lens
+readOnlyFirstBazL :: Lens_' ReadOnlyFirst (Maybe Text)
+readOnlyFirstBazL f ReadOnlyFirst{..} = (\readOnlyFirstBaz -> ReadOnlyFirst { readOnlyFirstBaz, ..} ) <$> f readOnlyFirstBaz
+{-# INLINE readOnlyFirstBazL #-}
 
 
--- * ReadOnlyFirst
-
--- | 'readOnlyFirstBar' Lens
-readOnlyFirstBarL :: Lens_' ReadOnlyFirst (Maybe Text)
-readOnlyFirstBarL f ReadOnlyFirst{..} = (\readOnlyFirstBar -> ReadOnlyFirst { readOnlyFirstBar, ..} ) <$> f readOnlyFirstBar
-{-# INLINE readOnlyFirstBarL #-}
-
--- | 'readOnlyFirstBaz' Lens
-readOnlyFirstBazL :: Lens_' ReadOnlyFirst (Maybe Text)
-readOnlyFirstBazL f ReadOnlyFirst{..} = (\readOnlyFirstBaz -> ReadOnlyFirst { readOnlyFirstBaz, ..} ) <$> f readOnlyFirstBaz
-{-# INLINE readOnlyFirstBazL #-}
+
+-- * SpecialModelName
+
+-- | 'specialModelNameSpecialPropertyName' Lens
+specialModelNameSpecialPropertyNameL :: Lens_' SpecialModelName (Maybe Integer)
+specialModelNameSpecialPropertyNameL f SpecialModelName{..} = (\specialModelNameSpecialPropertyName -> SpecialModelName { specialModelNameSpecialPropertyName, ..} ) <$> f specialModelNameSpecialPropertyName
+{-# INLINE specialModelNameSpecialPropertyNameL #-}
+
+
+
+-- * Tag
 
-
-
--- * SpecialModelName
-
--- | 'specialModelNameSpecialPropertyName' Lens
-specialModelNameSpecialPropertyNameL :: Lens_' SpecialModelName (Maybe Integer)
-specialModelNameSpecialPropertyNameL f SpecialModelName{..} = (\specialModelNameSpecialPropertyName -> SpecialModelName { specialModelNameSpecialPropertyName, ..} ) <$> f specialModelNameSpecialPropertyName
-{-# INLINE specialModelNameSpecialPropertyNameL #-}
-
+-- | 'tagId' Lens
+tagIdL :: Lens_' Tag (Maybe Integer)
+tagIdL f Tag{..} = (\tagId -> Tag { tagId, ..} ) <$> f tagId
+{-# INLINE tagIdL #-}
+
+-- | 'tagName' Lens
+tagNameL :: Lens_' Tag (Maybe Text)
+tagNameL f Tag{..} = (\tagName -> Tag { tagName, ..} ) <$> f tagName
+{-# INLINE tagNameL #-}
 
 
--- * Tag
-
--- | 'tagId' Lens
-tagIdL :: Lens_' Tag (Maybe Integer)
-tagIdL f Tag{..} = (\tagId -> Tag { tagId, ..} ) <$> f tagId
-{-# INLINE tagIdL #-}
-
--- | 'tagName' Lens
-tagNameL :: Lens_' Tag (Maybe Text)
-tagNameL f Tag{..} = (\tagName -> Tag { tagName, ..} ) <$> f tagName
-{-# INLINE tagNameL #-}
-
+
+-- * User
+
+-- | 'userId' Lens
+userIdL :: Lens_' User (Maybe Integer)
+userIdL f User{..} = (\userId -> User { userId, ..} ) <$> f userId
+{-# INLINE userIdL #-}
+
+-- | 'userUsername' Lens
+userUsernameL :: Lens_' User (Maybe Text)
+userUsernameL f User{..} = (\userUsername -> User { userUsername, ..} ) <$> f userUsername
+{-# INLINE userUsernameL #-}
 
-
--- * User
-
--- | 'userId' Lens
-userIdL :: Lens_' User (Maybe Integer)
-userIdL f User{..} = (\userId -> User { userId, ..} ) <$> f userId
-{-# INLINE userIdL #-}
-
--- | 'userUsername' Lens
-userUsernameL :: Lens_' User (Maybe Text)
-userUsernameL f User{..} = (\userUsername -> User { userUsername, ..} ) <$> f userUsername
-{-# INLINE userUsernameL #-}
-
--- | 'userFirstName' Lens
-userFirstNameL :: Lens_' User (Maybe Text)
-userFirstNameL f User{..} = (\userFirstName -> User { userFirstName, ..} ) <$> f userFirstName
-{-# INLINE userFirstNameL #-}
-
--- | 'userLastName' Lens
-userLastNameL :: Lens_' User (Maybe Text)
-userLastNameL f User{..} = (\userLastName -> User { userLastName, ..} ) <$> f userLastName
-{-# INLINE userLastNameL #-}
-
--- | 'userEmail' Lens
-userEmailL :: Lens_' User (Maybe Text)
-userEmailL f User{..} = (\userEmail -> User { userEmail, ..} ) <$> f userEmail
-{-# INLINE userEmailL #-}
-
--- | 'userPassword' Lens
-userPasswordL :: Lens_' User (Maybe Text)
-userPasswordL f User{..} = (\userPassword -> User { userPassword, ..} ) <$> f userPassword
-{-# INLINE userPasswordL #-}
-
--- | 'userPhone' Lens
-userPhoneL :: Lens_' User (Maybe Text)
-userPhoneL f User{..} = (\userPhone -> User { userPhone, ..} ) <$> f userPhone
-{-# INLINE userPhoneL #-}
-
--- | 'userUserStatus' Lens
-userUserStatusL :: Lens_' User (Maybe Int)
-userUserStatusL f User{..} = (\userUserStatus -> User { userUserStatus, ..} ) <$> f userUserStatus
-{-# INLINE userUserStatusL #-}
-
-
-
    \ No newline at end of file +-- | 'userFirstName' Lens +userFirstNameL :: Lens_' User (Maybe Text) +userFirstNameL f User{..} = (\userFirstName -> User { userFirstName, ..} ) <$> f userFirstName +{-# INLINE userFirstNameL #-} + +-- | 'userLastName' Lens +userLastNameL :: Lens_' User (Maybe Text) +userLastNameL f User{..} = (\userLastName -> User { userLastName, ..} ) <$> f userLastName +{-# INLINE userLastNameL #-} + +-- | 'userEmail' Lens +userEmailL :: Lens_' User (Maybe Text) +userEmailL f User{..} = (\userEmail -> User { userEmail, ..} ) <$> f userEmail +{-# INLINE userEmailL #-} + +-- | 'userPassword' Lens +userPasswordL :: Lens_' User (Maybe Text) +userPasswordL f User{..} = (\userPassword -> User { userPassword, ..} ) <$> f userPassword +{-# INLINE userPasswordL #-} + +-- | 'userPhone' Lens +userPhoneL :: Lens_' User (Maybe Text) +userPhoneL f User{..} = (\userPhone -> User { userPhone, ..} ) <$> f userPhone +{-# INLINE userPhoneL #-} + +-- | 'userUserStatus' Lens +userUserStatusL :: Lens_' User (Maybe Int) +userUserStatusL f User{..} = (\userUserStatus -> User { userUserStatus, ..} ) <$> f userUserStatus +{-# INLINE userUserStatusL #-} + + + \ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.html b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.html similarity index 59% rename from samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.html rename to samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.html index 5f057cd86de..29e61f89a3e 100644 --- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.html +++ b/samples/client/petstore/haskell-http-client/docs/src/OpenAPIPetstore.html @@ -1,32 +1,31 @@ 
    {-
-   Swagger Petstore
+   OpenAPI Petstore
 
    This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
 
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
+   OpenAPI Version: 3.0.0
+   OpenAPI Petstore API version: 1.0.0
+   Generated by OpenAPI Generator (https://openapi-generator.tech)
 -}
-
-{-|
-Module : SwaggerPetstore
+
+{-|
+Module : OpenAPIPetstore
 -}
-
-module SwaggerPetstore
-  (  module SwaggerPetstore.API
-  , module SwaggerPetstore.Client
-  , module SwaggerPetstore.Core
-  , module SwaggerPetstore.Logging
-  , module SwaggerPetstore.MimeTypes
-  , module SwaggerPetstore.Model
-  , module SwaggerPetstore.ModelLens
-  ) where
-
-import SwaggerPetstore.API
-import SwaggerPetstore.Client
-import SwaggerPetstore.Core
-import SwaggerPetstore.Logging
-import SwaggerPetstore.MimeTypes
-import SwaggerPetstore.Model
-import SwaggerPetstore.ModelLens
    \ No newline at end of file + +module OpenAPIPetstore + ( module OpenAPIPetstore.API + , module OpenAPIPetstore.Client + , module OpenAPIPetstore.Core + , module OpenAPIPetstore.Logging + , module OpenAPIPetstore.MimeTypes + , module OpenAPIPetstore.Model + , module OpenAPIPetstore.ModelLens + ) where + +import OpenAPIPetstore.API +import OpenAPIPetstore.Client +import OpenAPIPetstore.Core +import OpenAPIPetstore.Logging +import OpenAPIPetstore.MimeTypes +import OpenAPIPetstore.Model +import OpenAPIPetstore.ModelLens \ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/src/Paths_swagger_petstore.html b/samples/client/petstore/haskell-http-client/docs/src/Paths_openapi_petstore.html similarity index 78% rename from samples/client/petstore/haskell-http-client/docs/src/Paths_swagger_petstore.html rename to samples/client/petstore/haskell-http-client/docs/src/Paths_openapi_petstore.html index f695200e650..17cefea63ce 100644 --- a/samples/client/petstore/haskell-http-client/docs/src/Paths_swagger_petstore.html +++ b/samples/client/petstore/haskell-http-client/docs/src/Paths_openapi_petstore.html @@ -1,10 +1,10 @@ 
    {-# LANGUAGE CPP #-}
 {-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
 {-# OPTIONS_GHC -fno-warn-implicit-prelude #-}
-module Paths_swagger_petstore (
-    version,
-    getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir,
-    getDataFileName, getSysconfDir
+module Paths_openapi_petstore (
+    version,
+    getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir,
+    getDataFileName, getSysconfDir
   ) where
 
 import qualified Control.Exception as Exception
@@ -15,7 +15,7 @@
 #if defined(VERSION_base)
 
 #if MIN_VERSION_base(4,0,0)
-catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
+catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
 #else
 catchIO :: IO a -> (Exception.Exception -> IO a) -> IO a
 #endif
@@ -23,29 +23,29 @@
 #else
 catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
 #endif
-catchIO = Exception.catch
+catchIO = Exception.catch
 
 version :: Version
-version = Version [0,1,0,0] []
+version = Version [0,1,0,0] []
 bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath
 
-bindir     = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/bin"
-libdir     = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/lib/x86_64-linux-ghc-8.2.2/swagger-petstore-0.1.0.0-9Pk0KlchkM5tXgZZX1kZB"
-dynlibdir  = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/lib/x86_64-linux-ghc-8.2.2"
-datadir    = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/share/x86_64-linux-ghc-8.2.2/swagger-petstore-0.1.0.0"
-libexecdir = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/libexec/x86_64-linux-ghc-8.2.2/swagger-petstore-0.1.0.0"
-sysconfdir = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/etc"
+bindir     = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/bin"
+libdir     = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/lib/x86_64-linux-ghc-8.2.2/openapi-petstore-0.1.0.0-A0Rhl1azutBfYPPfGAe7W"
+dynlibdir  = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/lib/x86_64-linux-ghc-8.2.2"
+datadir    = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/share/x86_64-linux-ghc-8.2.2/openapi-petstore-0.1.0.0"
+libexecdir = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/libexec/x86_64-linux-ghc-8.2.2/openapi-petstore-0.1.0.0"
+sysconfdir = "/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/etc"
 
 getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath
-getBinDir = catchIO (getEnv "swagger_petstore_bindir") (\_ -> return bindir)
-getLibDir = catchIO (getEnv "swagger_petstore_libdir") (\_ -> return libdir)
-getDynLibDir = catchIO (getEnv "swagger_petstore_dynlibdir") (\_ -> return dynlibdir)
-getDataDir = catchIO (getEnv "swagger_petstore_datadir") (\_ -> return datadir)
-getLibexecDir = catchIO (getEnv "swagger_petstore_libexecdir") (\_ -> return libexecdir)
-getSysconfDir = catchIO (getEnv "swagger_petstore_sysconfdir") (\_ -> return sysconfdir)
+getBinDir = catchIO (getEnv "openapi_petstore_bindir") (\_ -> return bindir)
+getLibDir = catchIO (getEnv "openapi_petstore_libdir") (\_ -> return libdir)
+getDynLibDir = catchIO (getEnv "openapi_petstore_dynlibdir") (\_ -> return dynlibdir)
+getDataDir = catchIO (getEnv "openapi_petstore_datadir") (\_ -> return datadir)
+getLibexecDir = catchIO (getEnv "openapi_petstore_libexecdir") (\_ -> return libexecdir)
+getSysconfDir = catchIO (getEnv "openapi_petstore_sysconfdir") (\_ -> return sysconfdir)
 
 getDataFileName :: FilePath -> IO FilePath
-getDataFileName name = do
-  dir <- getDataDir
-  return (dir ++ "/" ++ name)
+getDataFileName name = do
+  dir <- getDataDir
+  return (dir ++ "/" ++ name)
    \ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.Fake.html b/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.Fake.html deleted file mode 100644 index 8a4d9ea220e..00000000000 --- a/samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.Fake.html +++ /dev/null @@ -1,397 +0,0 @@ -
    {-
-   Swagger Petstore
-
-   This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
-
-   OpenAPI Version: 3.0.1
-   Swagger Petstore API version: 1.0.0
-   Contact: apiteam@swagger.io
-   Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
--}
-
-{-|
-Module : SwaggerPetstore.API.Fake
--}
-
-{-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE MonoLocalBinds #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
-
-module SwaggerPetstore.API.Fake where
-
-import SwaggerPetstore.Core
-import SwaggerPetstore.MimeTypes
-import SwaggerPetstore.Model as M
-
-import qualified Data.Aeson as A
-import qualified Data.ByteString as B
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
-import qualified Data.Foldable as P
-import qualified Data.Map as Map
-import qualified Data.Maybe as P
-import qualified Data.Proxy as P (Proxy(..))
-import qualified Data.Set as Set
-import qualified Data.String as P
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as T
-import qualified Data.Text.Lazy as TL
-import qualified Data.Text.Lazy.Encoding as TL
-import qualified Data.Time as TI
-import qualified Network.HTTP.Client.MultipartFormData as NH
-import qualified Network.HTTP.Media as ME
-import qualified Network.HTTP.Types as NH
-import qualified Web.FormUrlEncoded as WH
-import qualified Web.HttpApiData as WH
-
-import Data.Text (Text)
-import GHC.Base ((<|>))
-
-import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
-import qualified Prelude as P
-
--- * Operations
-
-
--- ** Fake
-
--- *** fakeOuterBooleanSerialize
-
--- | @POST \/fake\/outer\/boolean@
--- 
--- Test serialization of outer boolean types
--- 
-fakeOuterBooleanSerialize 
-  :: (Consumes FakeOuterBooleanSerialize contentType)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> Accept accept -- ^ request accept ('MimeType')
-  -> SwaggerPetstoreRequest FakeOuterBooleanSerialize contentType OuterBoolean accept
-fakeOuterBooleanSerialize _  _ =
-  _mkRequest "POST" ["/fake/outer/boolean"]
-
-data FakeOuterBooleanSerialize 
-
--- | /Body Param/ "boolean_post_body" - Input boolean as post body
-instance HasBodyParam FakeOuterBooleanSerialize BooleanPostBody 
-
--- | @*/*@
-instance MimeType mtype => Produces FakeOuterBooleanSerialize mtype
-
-
--- *** fakeOuterCompositeSerialize
-
--- | @POST \/fake\/outer\/composite@
--- 
--- Test serialization of object with outer number type
--- 
-fakeOuterCompositeSerialize 
-  :: (Consumes FakeOuterCompositeSerialize contentType)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> Accept accept -- ^ request accept ('MimeType')
-  -> SwaggerPetstoreRequest FakeOuterCompositeSerialize contentType OuterComposite accept
-fakeOuterCompositeSerialize _  _ =
-  _mkRequest "POST" ["/fake/outer/composite"]
-
-data FakeOuterCompositeSerialize 
-
--- | /Body Param/ "OuterComposite" - Input composite as post body
-instance HasBodyParam FakeOuterCompositeSerialize OuterComposite 
-
--- | @*/*@
-instance MimeType mtype => Produces FakeOuterCompositeSerialize mtype
-
-
--- *** fakeOuterNumberSerialize
-
--- | @POST \/fake\/outer\/number@
--- 
--- Test serialization of outer number types
--- 
-fakeOuterNumberSerialize 
-  :: (Consumes FakeOuterNumberSerialize contentType)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> Accept accept -- ^ request accept ('MimeType')
-  -> SwaggerPetstoreRequest FakeOuterNumberSerialize contentType OuterNumber accept
-fakeOuterNumberSerialize _  _ =
-  _mkRequest "POST" ["/fake/outer/number"]
-
-data FakeOuterNumberSerialize 
-
--- | /Body Param/ "body" - Input number as post body
-instance HasBodyParam FakeOuterNumberSerialize Body 
-
--- | @*/*@
-instance MimeType mtype => Produces FakeOuterNumberSerialize mtype
-
-
--- *** fakeOuterStringSerialize
-
--- | @POST \/fake\/outer\/string@
--- 
--- Test serialization of outer string types
--- 
-fakeOuterStringSerialize 
-  :: (Consumes FakeOuterStringSerialize contentType)
-  => ContentType contentType -- ^ request content-type ('MimeType')
-  -> Accept accept -- ^ request accept ('MimeType')
-  -> SwaggerPetstoreRequest FakeOuterStringSerialize contentType OuterString accept
-fakeOuterStringSerialize _  _ =
-  _mkRequest "POST" ["/fake/outer/string"]
-
-data FakeOuterStringSerialize 
-
--- | /Body Param/ "body" - Input string as post body
-instance HasBodyParam FakeOuterStringSerialize BodyText 
-
--- | @*/*@
-instance MimeType mtype => Produces FakeOuterStringSerialize mtype
-
-
--- *** testBodyWithQueryParams
-
--- | @PUT \/fake\/body-with-query-params@
--- 
-testBodyWithQueryParams 
-  :: (Consumes TestBodyWithQueryParams MimeJSON, MimeRender MimeJSON User)
-  => User -- ^ "user"
-  -> Query -- ^ "query"
-  -> SwaggerPetstoreRequest TestBodyWithQueryParams MimeJSON NoContent MimeNoContent
-testBodyWithQueryParams user (Query query) =
-  _mkRequest "PUT" ["/fake/body-with-query-params"]
-    `setBodyParam` user
-    `setQuery` toQuery ("query", Just query)
-
-data TestBodyWithQueryParams 
-instance HasBodyParam TestBodyWithQueryParams User 
-
--- | @application/json@
-instance Consumes TestBodyWithQueryParams MimeJSON
-
-instance Produces TestBodyWithQueryParams MimeNoContent
-
-
--- *** testClientModel
-
--- | @PATCH \/fake@
--- 
--- To test \"client\" model
--- 
--- To test \"client\" model
--- 
-testClientModel 
-  :: (Consumes TestClientModel MimeJSON, MimeRender MimeJSON Client)
-  => Client -- ^ "client" -  client model
-  -> SwaggerPetstoreRequest TestClientModel MimeJSON Client MimeJSON
-testClientModel client =
-  _mkRequest "PATCH" ["/fake"]
-    `setBodyParam` client
-
-data TestClientModel 
-
--- | /Body Param/ "Client" - client model
-instance HasBodyParam TestClientModel Client 
-
--- | @application/json@
-instance Consumes TestClientModel MimeJSON
-
--- | @application/json@
-instance Produces TestClientModel MimeJSON
-
-
--- *** testEndpointParameters
-
--- | @POST \/fake@
--- 
--- Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트 
--- 
--- Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트 
--- 
--- AuthMethod: 'AuthBasicHttpBasicTest'
--- 
-testEndpointParameters 
-  :: (Consumes TestEndpointParameters MimeFormUrlEncoded)
-  => Number -- ^ "number" -  None
-  -> ParamDouble -- ^ "double" -  None
-  -> PatternWithoutDelimiter -- ^ "patternWithoutDelimiter" -  None
-  -> Byte -- ^ "byte" -  None
-  -> SwaggerPetstoreRequest TestEndpointParameters MimeFormUrlEncoded NoContent MimeNoContent
-testEndpointParameters (Number number) (ParamDouble double) (PatternWithoutDelimiter patternWithoutDelimiter) (Byte byte) =
-  _mkRequest "POST" ["/fake"]
-    `_hasAuthType` (P.Proxy :: P.Proxy AuthBasicHttpBasicTest)
-    `addForm` toForm ("number", number)
-    `addForm` toForm ("double", double)
-    `addForm` toForm ("pattern_without_delimiter", patternWithoutDelimiter)
-    `addForm` toForm ("byte", byte)
-
-data TestEndpointParameters  
-
--- | /Optional Param/ "integer" - None
-instance HasOptionalParam TestEndpointParameters ParamInteger where
-  applyOptionalParam req (ParamInteger xs) =
-    req `addForm` toForm ("integer", xs)
-
--- | /Optional Param/ "int32" - None
-instance HasOptionalParam TestEndpointParameters Int32 where
-  applyOptionalParam req (Int32 xs) =
-    req `addForm` toForm ("int32", xs)
-
--- | /Optional Param/ "int64" - None
-instance HasOptionalParam TestEndpointParameters Int64 where
-  applyOptionalParam req (Int64 xs) =
-    req `addForm` toForm ("int64", xs)
-
--- | /Optional Param/ "float" - None
-instance HasOptionalParam TestEndpointParameters ParamFloat where
-  applyOptionalParam req (ParamFloat xs) =
-    req `addForm` toForm ("float", xs)
-
--- | /Optional Param/ "string" - None
-instance HasOptionalParam TestEndpointParameters ParamString where
-  applyOptionalParam req (ParamString xs) =
-    req `addForm` toForm ("string", xs)
-
--- | /Optional Param/ "binary" - None
-instance HasOptionalParam TestEndpointParameters ParamBinary where
-  applyOptionalParam req (ParamBinary xs) =
-    req `_addMultiFormPart` NH.partFileSource "binary" xs
-
--- | /Optional Param/ "date" - None
-instance HasOptionalParam TestEndpointParameters ParamDate where
-  applyOptionalParam req (ParamDate xs) =
-    req `addForm` toForm ("date", xs)
-
--- | /Optional Param/ "dateTime" - None
-instance HasOptionalParam TestEndpointParameters ParamDateTime where
-  applyOptionalParam req (ParamDateTime xs) =
-    req `addForm` toForm ("dateTime", xs)
-
--- | /Optional Param/ "password" - None
-instance HasOptionalParam TestEndpointParameters Password where
-  applyOptionalParam req (Password xs) =
-    req `addForm` toForm ("password", xs)
-
--- | /Optional Param/ "callback" - None
-instance HasOptionalParam TestEndpointParameters Callback where
-  applyOptionalParam req (Callback xs) =
-    req `addForm` toForm ("callback", xs)
-
--- | @application/x-www-form-urlencoded@
-instance Consumes TestEndpointParameters MimeFormUrlEncoded
-
-instance Produces TestEndpointParameters MimeNoContent
-
-
--- *** testEnumParameters
-
--- | @GET \/fake@
--- 
--- To test enum parameters
--- 
--- To test enum parameters
--- 
-testEnumParameters 
-  :: (Consumes TestEnumParameters MimeFormUrlEncoded)
-  => SwaggerPetstoreRequest TestEnumParameters MimeFormUrlEncoded NoContent MimeNoContent
-testEnumParameters =
-  _mkRequest "GET" ["/fake"]
-
-data TestEnumParameters  
-
--- | /Optional Param/ "enum_form_string_array" - Form parameter enum test (string array)
-instance HasOptionalParam TestEnumParameters EnumFormStringArray where
-  applyOptionalParam req (EnumFormStringArray xs) =
-    req `addForm` toFormColl CommaSeparated ("enum_form_string_array", xs)
-
--- | /Optional Param/ "enum_form_string" - Form parameter enum test (string)
-instance HasOptionalParam TestEnumParameters EnumFormString where
-  applyOptionalParam req (EnumFormString xs) =
-    req `addForm` toForm ("enum_form_string", xs)
-
--- | /Optional Param/ "enum_header_string_array" - Header parameter enum test (string array)
-instance HasOptionalParam TestEnumParameters EnumHeaderStringArray where
-  applyOptionalParam req (EnumHeaderStringArray xs) =
-    req `setHeader` toHeaderColl CommaSeparated ("enum_header_string_array", xs)
-
--- | /Optional Param/ "enum_header_string" - Header parameter enum test (string)
-instance HasOptionalParam TestEnumParameters EnumHeaderString where
-  applyOptionalParam req (EnumHeaderString xs) =
-    req `setHeader` toHeader ("enum_header_string", xs)
-
--- | /Optional Param/ "enum_query_string_array" - Query parameter enum test (string array)
-instance HasOptionalParam TestEnumParameters EnumQueryStringArray where
-  applyOptionalParam req (EnumQueryStringArray xs) =
-    req `setQuery` toQueryColl CommaSeparated ("enum_query_string_array", Just xs)
-
--- | /Optional Param/ "enum_query_string" - Query parameter enum test (string)
-instance HasOptionalParam TestEnumParameters EnumQueryString where
-  applyOptionalParam req (EnumQueryString xs) =
-    req `setQuery` toQuery ("enum_query_string", Just xs)
-
--- | /Optional Param/ "enum_query_integer" - Query parameter enum test (double)
-instance HasOptionalParam TestEnumParameters EnumQueryInteger where
-  applyOptionalParam req (EnumQueryInteger xs) =
-    req `setQuery` toQuery ("enum_query_integer", Just xs)
-
--- | /Optional Param/ "enum_query_double" - Query parameter enum test (double)
-instance HasOptionalParam TestEnumParameters EnumQueryDouble where
-  applyOptionalParam req (EnumQueryDouble xs) =
-    req `setQuery` toQuery ("enum_query_double", Just xs)
-
--- | @application/x-www-form-urlencoded@
-instance Consumes TestEnumParameters MimeFormUrlEncoded
-
-instance Produces TestEnumParameters MimeNoContent
-
-
--- *** testInlineAdditionalProperties
-
--- | @POST \/fake\/inline-additionalProperties@
--- 
--- test inline additionalProperties
--- 
-testInlineAdditionalProperties 
-  :: (Consumes TestInlineAdditionalProperties MimeJSON, MimeRender MimeJSON RequestBody)
-  => RequestBody -- ^ "requestBody" -  request body
-  -> SwaggerPetstoreRequest TestInlineAdditionalProperties MimeJSON NoContent MimeNoContent
-testInlineAdditionalProperties requestBody =
-  _mkRequest "POST" ["/fake/inline-additionalProperties"]
-    `setBodyParam` requestBody
-
-data TestInlineAdditionalProperties 
-
--- | /Body Param/ "request_body" - request body
-instance HasBodyParam TestInlineAdditionalProperties RequestBody 
-
--- | @application/json@
-instance Consumes TestInlineAdditionalProperties MimeJSON
-
-instance Produces TestInlineAdditionalProperties MimeNoContent
-
-
--- *** testJsonFormData
-
--- | @GET \/fake\/jsonFormData@
--- 
--- test json serialization of form data
--- 
-testJsonFormData 
-  :: (Consumes TestJsonFormData MimeFormUrlEncoded)
-  => Param -- ^ "param" -  field1
-  -> Param2 -- ^ "param2" -  field2
-  -> SwaggerPetstoreRequest TestJsonFormData MimeFormUrlEncoded NoContent MimeNoContent
-testJsonFormData (Param param) (Param2 param2) =
-  _mkRequest "GET" ["/fake/jsonFormData"]
-    `addForm` toForm ("param", param)
-    `addForm` toForm ("param2", param2)
-
-data TestJsonFormData  
-
--- | @application/x-www-form-urlencoded@
-instance Consumes TestJsonFormData MimeFormUrlEncoded
-
-instance Produces TestJsonFormData MimeNoContent
-
-
    \ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/example-app/Main.hs b/samples/client/petstore/haskell-http-client/example-app/Main.hs index e92abaf8aae..f74b7dff54d 100644 --- a/samples/client/petstore/haskell-http-client/example-app/Main.hs +++ b/samples/client/petstore/haskell-http-client/example-app/Main.hs @@ -9,7 +9,7 @@ import qualified Data.Time as TI import qualified Lens.Micro as L import qualified Network.HTTP.Client as NH -import qualified SwaggerPetstore as S +import qualified OpenAPIPetstore as S import Data.Monoid ((<>)) @@ -56,7 +56,7 @@ main = do -- * PET -runPet :: NH.Manager -> S.SwaggerPetstoreConfig -> IO () +runPet :: NH.Manager -> S.OpenAPIPetstoreConfig -> IO () runPet mgr config = do -- create the request for addPet, encoded with content-type application/json, with accept header application/json @@ -74,20 +74,20 @@ runPet mgr config = do -- content-type and accept types (mimeTypes) are valid -- :i S.AddPet - -- data S.AddPet -- Defined in ‘SwaggerPetstore.API’ + -- data S.AddPet -- Defined in ‘OpenAPIPetstore.API’ -- instance S.Produces S.AddPet S.MimeXML - -- -- Defined in ‘SwaggerPetstore.API’ + -- -- Defined in ‘OpenAPIPetstore.API’ -- instance S.Produces S.AddPet S.MimeJSON - -- -- Defined in ‘SwaggerPetstore.API’ + -- -- Defined in ‘OpenAPIPetstore.API’ -- instance S.Consumes S.AddPet S.MimeXML - -- -- Defined in ‘SwaggerPetstore.API’ + -- -- Defined in ‘OpenAPIPetstore.API’ -- instance S.Consumes S.AddPet S.MimeJSON - -- -- Defined in ‘SwaggerPetstore.API’ + -- -- Defined in ‘OpenAPIPetstore.API’ -- instance S.HasBodyParam S.AddPet S.Pet - -- -- Defined in ‘SwaggerPetstore.API’ + -- -- Defined in ‘OpenAPIPetstore.API’ - -- since this swagger definition has no response schema defined for + -- since this openapi definition has no response schema defined for -- the 'addPet' response, we decode the response bytestring manually case A.eitherDecode (NH.responseBody addPetResponse) of Right pet@S.Pet { S.petId = Just pid } -> do @@ -125,9 +125,9 @@ runPet mgr config = do -- requred parameters are included as function arguments, optional parameters are included with applyOptionalParam -- inspect the UpdatePetWithForm type to see typeclasses indicating optional paramteters (:i S.UpdatePetWithForm) -- instance S.HasOptionalParam S.UpdatePetWithForm S.Name - -- -- Defined in ‘SwaggerPetstore.API’ + -- -- Defined in ‘OpenAPIPetstore.API’ -- instance S.HasOptionalParam S.UpdatePetWithForm S.Status - -- -- Defined in ‘SwaggerPetstore.API’ + -- -- Defined in ‘OpenAPIPetstore.API’ let updatePetWithFormRequest = S.updatePetWithForm (S.PetId pid) `S.applyOptionalParam` S.Name2 "petName" `S.applyOptionalParam` S.StatusText "pending" @@ -156,10 +156,7 @@ runPet mgr config = do -- * STORE --- declare that 'placeOrder' can recieve a JSON content-type request -instance S.Consumes S.PlaceOrder S.MimeJSON - -runStore :: NH.Manager -> S.SwaggerPetstoreConfig -> IO () +runStore :: NH.Manager -> S.OpenAPIPetstoreConfig -> IO () runStore mgr config = do -- we can set arbitrary headers with setHeader @@ -170,7 +167,7 @@ runStore mgr config = do -- placeOrder now <- TI.getCurrentTime - let placeOrderRequest = S.placeOrder (S.ContentType S.MimeJSON) (S.Accept S.MimeJSON) (S.mkOrder { S.orderId = Just 21, S.orderQuantity = Just 210, S.orderShipDate = Just (S.DateTime now)}) + let placeOrderRequest = S.placeOrder (S.Accept S.MimeJSON) (S.mkOrder { S.orderId = Just 21, S.orderQuantity = Just 210, S.orderShipDate = Just (S.DateTime now)}) placeOrderResult <- S.dispatchMime mgr config placeOrderRequest mapM_ (\r -> putStrLn $ "placeOrderResult: " <> show r) placeOrderResult @@ -191,29 +188,22 @@ runStore mgr config = do -- * USER --- this swagger definition doesn't declare what content-type the --- server actually expects for these operations, so delcare it here -instance S.Consumes S.CreateUser S.MimeJSON -instance S.Consumes S.UpdateUser S.MimeJSON -instance S.Consumes S.CreateUsersWithArrayInput S.MimeJSON -instance S.Consumes S.CreateUsersWithListInput S.MimeJSON - -runUser :: NH.Manager -> S.SwaggerPetstoreConfig -> IO () +runUser :: NH.Manager -> S.OpenAPIPetstoreConfig -> IO () runUser mgr config = do let username = "hsusername" -- createUser let user = S.mkUser { S.userId = Just 21, S.userUsername = Just username } - let createUserRequest = S.createUser (S.ContentType S.MimeJSON) user + let createUserRequest = S.createUser user _ <- S.dispatchLbs mgr config createUserRequest -- can use lenses (model record names are appended L) to view or modify records let users = take 8 $ drop 1 $ iterate (L.over S.userUsernameL (fmap (<> "*")) . L.over S.userIdL (fmap (+ 1))) user - let createUsersWithArrayInputRequest = S.createUsersWithArrayInput (S.ContentType S.MimeJSON) (S.User2 users) + let createUsersWithArrayInputRequest = S.createUsersWithArrayInput (S.User2 users) _ <- S.dispatchLbs mgr config createUsersWithArrayInputRequest -- createUsersWithArrayInput - let createUsersWithListInputRequest = S.createUsersWithListInput (S.ContentType S.MimeJSON) (S.User2 users) + let createUsersWithListInputRequest = S.createUsersWithListInput (S.User2 users) _ <- S.dispatchLbs mgr config createUsersWithListInputRequest -- getUserByName @@ -227,7 +217,7 @@ runUser mgr config = do BCL.putStrLn $ "loginUser: " <> (NH.responseBody loginUserResult) -- updateUser - let updateUserRequest = S.updateUser (S.ContentType S.MimeJSON) (user { S.userEmail = Just "xyz@example.com" }) (S.Username username) + let updateUserRequest = S.updateUser (user { S.userEmail = Just "xyz@example.com" }) (S.Username username) _ <- S.dispatchLbs mgr config updateUserRequest -- logoutUser diff --git a/samples/client/petstore/haskell-http-client/example-app/README.md b/samples/client/petstore/haskell-http-client/example-app/README.md index a3383a9c6c2..9a1f9f493ff 100644 --- a/samples/client/petstore/haskell-http-client/example-app/README.md +++ b/samples/client/petstore/haskell-http-client/example-app/README.md @@ -1,14 +1,14 @@ -# swagger-petstore-app +# openapi-petstore-app This contains an example application which uses the auto-generated -swagger-petstore API Client: `haskell-http-client` +openapi-petstore API Client: `haskell-http-client` This module is not auto-generated. -The application requires a swagger petstore server running at +The application requires a openapi petstore server running at `http://0.0.0.0/v2`, or the value of the `HOST` environment variable. -To compile this application, the api client library bindings generated for swagger-petstore are expected to live in the parent folder. +To compile this application, the api client library bindings generated for openapi-petstore are expected to live in the parent folder. ### Petstore Server @@ -25,7 +25,7 @@ server (the docker branch is used here, but docker is not required) 2. Start the petstore server (described above) 3. To run the application: ``` -stack --install-ghc exec swagger-petstore-app +stack --install-ghc exec openapi-petstore-app ``` 4. After stack installs ghc on the first run, `--install-ghc` can be omitted @@ -37,7 +37,7 @@ stack --install-ghc exec swagger-petstore-app Example: ``` -HOST=http://0.0.0.0/v2 http_proxy=http://0.0.0.0:8080 stack --install-ghc exec swagger-petstore-app +HOST=http://0.0.0.0/v2 http_proxy=http://0.0.0.0:8080 stack --install-ghc exec openapi-petstore-app ``` ### Source Documentation diff --git a/samples/client/petstore/haskell-http-client/example-app/infoLog.txt b/samples/client/petstore/haskell-http-client/example-app/infoLog.txt deleted file mode 100644 index a2da7f6e1c6..00000000000 --- a/samples/client/petstore/haskell-http-client/example-app/infoLog.txt +++ /dev/null @@ -1,55 +0,0 @@ -******** CONFIG ******** -{ configHost = "http://0.0.0.0/v2", configUserAgent = "swagger-haskell-http-client/1.0.0", ..} -******** Pet operations ******** -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:POST 0.0.0.0/v2/pet -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (POST 0.0.0.0/v2/pet) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:GET 0.0.0.0/v2/pet/11 -getPetById: found pet: Pet {petId = Just 11, petCategory = Nothing, petName = "name", petPhotoUrls = ["url1","url2"], petTags = Just [], petStatus = Nothing} -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (GET 0.0.0.0/v2/pet/11) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:GET 0.0.0.0/v2/pet/findByStatus?status=available%2Cpending%2Csold -findPetsByStatus: found 10 pets -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (GET 0.0.0.0/v2/pet/findByStatus?status=available%2Cpending%2Csold) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:GET 0.0.0.0/v2/pet/findByTags?tags=name%2Ctag1 -findPetsByTags: found 3 pets -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (GET 0.0.0.0/v2/pet/findByTags?tags=name%2Ctag1) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:PUT 0.0.0.0/v2/pet -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (PUT 0.0.0.0/v2/pet) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:POST 0.0.0.0/v2/pet/11 -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (POST 0.0.0.0/v2/pet/11) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:POST 0.0.0.0/v2/pet/11/uploadImage -uploadFile: ApiResponse {apiResponseCode = Just 200, apiResponseType = Just "unknown", apiResponseMessage = Just "additionalMetadata: a package.yaml file\nFile uploaded to ./package.yaml, 942 bytes"} -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (POST 0.0.0.0/v2/pet/11/uploadImage) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:DELETE 0.0.0.0/v2/pet/11 -******** Store operations ******** -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (DELETE 0.0.0.0/v2/pet/11) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:GET 0.0.0.0/v2/store/inventory -getInventoryRequest: found 3 results -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (GET 0.0.0.0/v2/store/inventory) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:POST 0.0.0.0/v2/store/order -placeOrderResult: Order {orderId = Just 21, orderPetId = Just 0, orderQuantity = Just 210, orderShipDate = Just 2017-09-12 03:59:19.571 UTC, orderStatus = Nothing, orderComplete = Just False} -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (POST 0.0.0.0/v2/store/order) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:GET 0.0.0.0/v2/store/order/21 -getOrderById: found order: Order {orderId = Just 21, orderPetId = Just 0, orderQuantity = Just 210, orderShipDate = Just 2017-09-12 03:59:19.571 UTC, orderStatus = Nothing, orderComplete = Just False} -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (GET 0.0.0.0/v2/store/order/21) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:DELETE 0.0.0.0/v2/store/order/21 -******** User operations ******** -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (DELETE 0.0.0.0/v2/store/order/21) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:POST 0.0.0.0/v2/user -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (POST 0.0.0.0/v2/user) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:POST 0.0.0.0/v2/user/createWithArray -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (POST 0.0.0.0/v2/user/createWithArray) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:POST 0.0.0.0/v2/user/createWithList -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (POST 0.0.0.0/v2/user/createWithList) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:GET 0.0.0.0/v2/user/hsusername -getUserByName: found user: User {userId = Just 21, userUsername = Just "hsusername", userFirstName = Nothing, userLastName = Nothing, userEmail = Nothing, userPassword = Nothing, userPhone = Nothing, userUserStatus = Just 0} -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (GET 0.0.0.0/v2/user/hsusername) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:GET 0.0.0.0/v2/user/login?password=password1&username=hsusername -loginUser: logged in user session:1505188759581 -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (GET 0.0.0.0/v2/user/login?password=password1&username=hsusername) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:PUT 0.0.0.0/v2/user/hsusername -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (PUT 0.0.0.0/v2/user/hsusername) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:GET 0.0.0.0/v2/user/logout -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (GET 0.0.0.0/v2/user/logout) -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] REQ:DELETE 0.0.0.0/v2/user/hsusername -******** END ******** -[2017-09-12 03:59:19][SwaggerPetstore.Client][Info][kestrel][18748][ThreadId 1] RES:statusCode=200 (DELETE 0.0.0.0/v2/user/hsusername) diff --git a/samples/client/petstore/haskell-http-client/example-app/swagger-petstore-app.cabal b/samples/client/petstore/haskell-http-client/example-app/openapi-petstore-app.cabal similarity index 71% rename from samples/client/petstore/haskell-http-client/example-app/swagger-petstore-app.cabal rename to samples/client/petstore/haskell-http-client/example-app/openapi-petstore-app.cabal index a48e61b735f..7994f26e160 100644 --- a/samples/client/petstore/haskell-http-client/example-app/swagger-petstore-app.cabal +++ b/samples/client/petstore/haskell-http-client/example-app/openapi-petstore-app.cabal @@ -2,14 +2,14 @@ -- -- see: https://github.com/sol/hpack -- --- hash: 0a40afd0e6e2b593c40ae1588479e70d4f35af6ece13bf83bdf3c166c5ea4e7b +-- hash: b084e6b4f90a1c0ac580f2eb3d0957a261f1db4e7309ffe2c667bc081812d93f -name: swagger-petstore-app +name: openapi-petstore-app version: 0.1.0.0 -synopsis: Auto-generated swagger-petstore API Client -description: Sample app for calling the swagger-petstore API based on http-client. +synopsis: Auto-generated openapi-petstore API Client +description: Sample app for calling the openapi-petstore API based on http-client. category: Web -homepage: https://github.com/swagger-api/swagger-codegen#readme +homepage: https://openapi-generator.tech author: Author Name Here maintainer: author.name@email.com copyright: YEAR - AUTHOR @@ -20,7 +20,7 @@ cabal-version: >= 1.10 extra-source-files: README.md -executable swagger-petstore-app +executable openapi-petstore-app main-is: Main.hs ghc-options: -Wall build-depends: @@ -36,12 +36,12 @@ executable swagger-petstore-app , http-types >=0.8 && <0.12 , microlens >=0.4.3 && <0.5 , mtl >=2.2.1 - , swagger-petstore + , openapi-petstore , text >=0.11 && <1.3 , time >=1.5 && <1.9 , transformers >=0.4.0.0 , unordered-containers , vector >=0.10.9 && <0.13 other-modules: - Paths_swagger_petstore_app + Paths_openapi_petstore_app default-language: Haskell2010 diff --git a/samples/client/petstore/haskell-http-client/example-app/package.yaml b/samples/client/petstore/haskell-http-client/example-app/package.yaml index 5ab89ba3df9..e76165c5ed0 100644 --- a/samples/client/petstore/haskell-http-client/example-app/package.yaml +++ b/samples/client/petstore/haskell-http-client/example-app/package.yaml @@ -1,15 +1,15 @@ -name: swagger-petstore-app +name: openapi-petstore-app version: '0.1.0.0' -synopsis: Auto-generated swagger-petstore API Client +synopsis: Auto-generated openapi-petstore API Client description: ! ' - Sample app for calling the swagger-petstore API based on http-client. + Sample app for calling the openapi-petstore API based on http-client. ' category: Web author: Author Name Here maintainer: author.name@email.com copyright: YEAR - AUTHOR license: UnspecifiedLicense -homepage: https://github.com/swagger-api/swagger-codegen#readme +homepage: https://openapi-generator.tech extra-source-files: - README.md ghc-options: -Wall @@ -30,8 +30,8 @@ dependencies: - time >=1.5 && <1.9 - vector >=0.10.9 && <0.13 - case-insensitive -- swagger-petstore +- openapi-petstore - microlens >= 0.4.3 && <0.5 executables: - swagger-petstore-app: + openapi-petstore-app: main: Main.hs diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore.hs index 83e607b1ad7..4e71ab9e720 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API.hs index 7335a85067e..3c3deada26b 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/AnotherFake.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/AnotherFake.hs index 0deb75364af..d6187951efe 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/AnotherFake.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/AnotherFake.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Fake.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Fake.hs index fa21cfee9f2..6e27a5fe5b1 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Fake.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Fake.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -64,11 +64,10 @@ import qualified Prelude as P -- Test serialization of outer boolean types -- fakeOuterBooleanSerialize - :: (Consumes FakeOuterBooleanSerialize contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> OpenAPIPetstoreRequest FakeOuterBooleanSerialize contentType Bool accept -fakeOuterBooleanSerialize _ _ = + :: (Consumes FakeOuterBooleanSerialize MimeJSON) + => Accept accept -- ^ request accept ('MimeType') + -> OpenAPIPetstoreRequest FakeOuterBooleanSerialize MimeJSON Bool accept +fakeOuterBooleanSerialize _ = _mkRequest "POST" ["/fake/outer/boolean"] data FakeOuterBooleanSerialize @@ -76,6 +75,9 @@ data FakeOuterBooleanSerialize -- | /Body Param/ "body" - Input boolean as post body instance HasBodyParam FakeOuterBooleanSerialize BodyBool +-- | @application/json@ +instance Consumes FakeOuterBooleanSerialize MimeJSON + -- | @*/*@ instance MimeType mtype => Produces FakeOuterBooleanSerialize mtype @@ -87,11 +89,10 @@ instance MimeType mtype => Produces FakeOuterBooleanSerialize mtype -- Test serialization of object with outer number type -- fakeOuterCompositeSerialize - :: (Consumes FakeOuterCompositeSerialize contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> OpenAPIPetstoreRequest FakeOuterCompositeSerialize contentType OuterComposite accept -fakeOuterCompositeSerialize _ _ = + :: (Consumes FakeOuterCompositeSerialize MimeJSON) + => Accept accept -- ^ request accept ('MimeType') + -> OpenAPIPetstoreRequest FakeOuterCompositeSerialize MimeJSON OuterComposite accept +fakeOuterCompositeSerialize _ = _mkRequest "POST" ["/fake/outer/composite"] data FakeOuterCompositeSerialize @@ -99,6 +100,9 @@ data FakeOuterCompositeSerialize -- | /Body Param/ "OuterComposite" - Input composite as post body instance HasBodyParam FakeOuterCompositeSerialize OuterComposite +-- | @application/json@ +instance Consumes FakeOuterCompositeSerialize MimeJSON + -- | @*/*@ instance MimeType mtype => Produces FakeOuterCompositeSerialize mtype @@ -110,11 +114,10 @@ instance MimeType mtype => Produces FakeOuterCompositeSerialize mtype -- Test serialization of outer number types -- fakeOuterNumberSerialize - :: (Consumes FakeOuterNumberSerialize contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> OpenAPIPetstoreRequest FakeOuterNumberSerialize contentType Double accept -fakeOuterNumberSerialize _ _ = + :: (Consumes FakeOuterNumberSerialize MimeJSON) + => Accept accept -- ^ request accept ('MimeType') + -> OpenAPIPetstoreRequest FakeOuterNumberSerialize MimeJSON Double accept +fakeOuterNumberSerialize _ = _mkRequest "POST" ["/fake/outer/number"] data FakeOuterNumberSerialize @@ -122,6 +125,9 @@ data FakeOuterNumberSerialize -- | /Body Param/ "body" - Input number as post body instance HasBodyParam FakeOuterNumberSerialize Body +-- | @application/json@ +instance Consumes FakeOuterNumberSerialize MimeJSON + -- | @*/*@ instance MimeType mtype => Produces FakeOuterNumberSerialize mtype @@ -133,11 +139,10 @@ instance MimeType mtype => Produces FakeOuterNumberSerialize mtype -- Test serialization of outer string types -- fakeOuterStringSerialize - :: (Consumes FakeOuterStringSerialize contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> OpenAPIPetstoreRequest FakeOuterStringSerialize contentType Text accept -fakeOuterStringSerialize _ _ = + :: (Consumes FakeOuterStringSerialize MimeJSON) + => Accept accept -- ^ request accept ('MimeType') + -> OpenAPIPetstoreRequest FakeOuterStringSerialize MimeJSON Text accept +fakeOuterStringSerialize _ = _mkRequest "POST" ["/fake/outer/string"] data FakeOuterStringSerialize @@ -145,33 +150,13 @@ data FakeOuterStringSerialize -- | /Body Param/ "body" - Input string as post body instance HasBodyParam FakeOuterStringSerialize BodyText +-- | @application/json@ +instance Consumes FakeOuterStringSerialize MimeJSON + -- | @*/*@ instance MimeType mtype => Produces FakeOuterStringSerialize mtype --- *** testBodyWithQueryParams - --- | @PUT \/fake\/body-with-query-params@ --- -testBodyWithQueryParams - :: (Consumes TestBodyWithQueryParams MimeJSON, MimeRender MimeJSON User) - => User -- ^ "user" - -> Query -- ^ "query" - -> OpenAPIPetstoreRequest TestBodyWithQueryParams MimeJSON NoContent MimeNoContent -testBodyWithQueryParams user (Query query) = - _mkRequest "PUT" ["/fake/body-with-query-params"] - `setBodyParam` user - `setQuery` toQuery ("query", Just query) - -data TestBodyWithQueryParams -instance HasBodyParam TestBodyWithQueryParams User - --- | @application/json@ -instance Consumes TestBodyWithQueryParams MimeJSON - -instance Produces TestBodyWithQueryParams MimeNoContent - - -- *** testClientModel -- | @PATCH \/fake@ @@ -322,7 +307,7 @@ instance HasOptionalParam TestEnumParameters EnumHeaderString where -- | /Optional Param/ "enum_query_string_array" - Query parameter enum test (string array) instance HasOptionalParam TestEnumParameters EnumQueryStringArray where applyOptionalParam req (EnumQueryStringArray xs) = - req `setQuery` toQueryColl CommaSeparated ("enum_query_string_array", Just xs) + req `setQuery` toQueryColl MultiParamArray ("enum_query_string_array", Just xs) -- | /Optional Param/ "enum_query_string" - Query parameter enum test (string) instance HasOptionalParam TestEnumParameters EnumQueryString where diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/FakeClassnameTags123.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/FakeClassnameTags123.hs index 5719e3c4cd4..e1776cbfd8b 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/FakeClassnameTags123.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/FakeClassnameTags123.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Pet.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Pet.hs index 8f9203d1bad..16797e4fdbf 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Pet.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Pet.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Store.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Store.hs index 12bcd0bc94a..628da518121 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Store.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/Store.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -128,12 +128,11 @@ instance Produces GetOrderById MimeJSON -- Place an order for a pet -- placeOrder - :: (Consumes PlaceOrder contentType, MimeRender contentType Order) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') + :: (Consumes PlaceOrder MimeJSON, MimeRender MimeJSON Order) + => Accept accept -- ^ request accept ('MimeType') -> Order -- ^ "order" - order placed for purchasing the pet - -> OpenAPIPetstoreRequest PlaceOrder contentType Order accept -placeOrder _ _ order = + -> OpenAPIPetstoreRequest PlaceOrder MimeJSON Order accept +placeOrder _ order = _mkRequest "POST" ["/store/order"] `setBodyParam` order @@ -142,6 +141,9 @@ data PlaceOrder -- | /Body Param/ "Order" - order placed for purchasing the pet instance HasBodyParam PlaceOrder Order +-- | @application/json@ +instance Consumes PlaceOrder MimeJSON + -- | @application/xml@ instance Produces PlaceOrder MimeXML -- | @application/json@ diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/User.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/User.hs index efc6ad66f31..76b4963a8f1 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/User.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/API/User.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -66,11 +66,10 @@ import qualified Prelude as P -- This can only be done by the logged in user. -- createUser - :: (Consumes CreateUser contentType, MimeRender contentType User) - => ContentType contentType -- ^ request content-type ('MimeType') - -> User -- ^ "user" - Created user object - -> OpenAPIPetstoreRequest CreateUser contentType NoContent MimeNoContent -createUser _ user = + :: (Consumes CreateUser MimeJSON, MimeRender MimeJSON User) + => User -- ^ "user" - Created user object + -> OpenAPIPetstoreRequest CreateUser MimeJSON NoContent MimeNoContent +createUser user = _mkRequest "POST" ["/user"] `setBodyParam` user @@ -79,6 +78,9 @@ data CreateUser -- | /Body Param/ "User" - Created user object instance HasBodyParam CreateUser User +-- | @application/json@ +instance Consumes CreateUser MimeJSON + instance Produces CreateUser MimeNoContent @@ -89,11 +91,10 @@ instance Produces CreateUser MimeNoContent -- Creates list of users with given input array -- createUsersWithArrayInput - :: (Consumes CreateUsersWithArrayInput contentType, MimeRender contentType User2) - => ContentType contentType -- ^ request content-type ('MimeType') - -> User2 -- ^ "user" - List of user object - -> OpenAPIPetstoreRequest CreateUsersWithArrayInput contentType NoContent MimeNoContent -createUsersWithArrayInput _ user = + :: (Consumes CreateUsersWithArrayInput MimeJSON, MimeRender MimeJSON User2) + => User2 -- ^ "user" - List of user object + -> OpenAPIPetstoreRequest CreateUsersWithArrayInput MimeJSON NoContent MimeNoContent +createUsersWithArrayInput user = _mkRequest "POST" ["/user/createWithArray"] `setBodyParam` user @@ -102,6 +103,9 @@ data CreateUsersWithArrayInput -- | /Body Param/ "User" - List of user object instance HasBodyParam CreateUsersWithArrayInput User2 +-- | @application/json@ +instance Consumes CreateUsersWithArrayInput MimeJSON + instance Produces CreateUsersWithArrayInput MimeNoContent @@ -112,11 +116,10 @@ instance Produces CreateUsersWithArrayInput MimeNoContent -- Creates list of users with given input array -- createUsersWithListInput - :: (Consumes CreateUsersWithListInput contentType, MimeRender contentType User2) - => ContentType contentType -- ^ request content-type ('MimeType') - -> User2 -- ^ "user" - List of user object - -> OpenAPIPetstoreRequest CreateUsersWithListInput contentType NoContent MimeNoContent -createUsersWithListInput _ user = + :: (Consumes CreateUsersWithListInput MimeJSON, MimeRender MimeJSON User2) + => User2 -- ^ "user" - List of user object + -> OpenAPIPetstoreRequest CreateUsersWithListInput MimeJSON NoContent MimeNoContent +createUsersWithListInput user = _mkRequest "POST" ["/user/createWithList"] `setBodyParam` user @@ -125,6 +128,9 @@ data CreateUsersWithListInput -- | /Body Param/ "User" - List of user object instance HasBodyParam CreateUsersWithListInput User2 +-- | @application/json@ +instance Consumes CreateUsersWithListInput MimeJSON + instance Produces CreateUsersWithListInput MimeNoContent @@ -217,12 +223,11 @@ instance Produces LogoutUser MimeNoContent -- This can only be done by the logged in user. -- updateUser - :: (Consumes UpdateUser contentType, MimeRender contentType User) - => ContentType contentType -- ^ request content-type ('MimeType') - -> User -- ^ "user" - Updated user object + :: (Consumes UpdateUser MimeJSON, MimeRender MimeJSON User) + => User -- ^ "user" - Updated user object -> Username -- ^ "username" - name that need to be deleted - -> OpenAPIPetstoreRequest UpdateUser contentType NoContent MimeNoContent -updateUser _ user (Username username) = + -> OpenAPIPetstoreRequest UpdateUser MimeJSON NoContent MimeNoContent +updateUser user (Username username) = _mkRequest "PUT" ["/user/",toPath username] `setBodyParam` user @@ -231,5 +236,8 @@ data UpdateUser -- | /Body Param/ "User" - Updated user object instance HasBodyParam UpdateUser User +-- | @application/json@ +instance Consumes UpdateUser MimeJSON + instance Produces UpdateUser MimeNoContent diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Client.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Client.hs index 31cd12f7ada..d9203a5bd4f 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Client.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Client.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Core.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Core.hs index 6fbc9899d34..019f2ce6131 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Core.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Core.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Logging.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Logging.hs index 8e3d4ac772b..3241dbd85a5 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Logging.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Logging.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/MimeTypes.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/MimeTypes.hs index 0da4b6310f0..33b2868d0fa 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/MimeTypes.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/MimeTypes.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Model.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Model.hs index 77a76262473..60bcf3a4b69 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Model.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/Model.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -91,7 +91,7 @@ newtype Callback = Callback { unCallback :: Text } deriving (P.Eq, P.Show) newtype EnumFormString = EnumFormString { unEnumFormString :: E'EnumFormString } deriving (P.Eq, P.Show) -- ** EnumFormStringArray -newtype EnumFormStringArray = EnumFormStringArray { unEnumFormStringArray :: E'EnumFormStringArray } deriving (P.Eq, P.Show) +newtype EnumFormStringArray = EnumFormStringArray { unEnumFormStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show) -- ** EnumHeaderString newtype EnumHeaderString = EnumHeaderString { unEnumHeaderString :: E'EnumFormString } deriving (P.Eq, P.Show) @@ -168,9 +168,6 @@ newtype PatternWithoutDelimiter = PatternWithoutDelimiter { unPatternWithoutDeli -- ** PetId newtype PetId = PetId { unPetId :: Integer } deriving (P.Eq, P.Show) --- ** Query -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) diff --git a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/ModelLens.hs b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/ModelLens.hs index 149d051ad4d..cef3d3da526 100644 --- a/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/ModelLens.hs +++ b/samples/client/petstore/haskell-http-client/lib/OpenAPIPetstore/ModelLens.hs @@ -3,7 +3,7 @@ This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - OpenAPI Version: 3.0.1 + OpenAPI Version: 3.0.0 OpenAPI Petstore API version: 1.0.0 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore.hs deleted file mode 100644 index 2ab40702d9f..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore.hs +++ /dev/null @@ -1,32 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore --} - -module SwaggerPetstore - ( module SwaggerPetstore.API - , module SwaggerPetstore.Client - , module SwaggerPetstore.Core - , module SwaggerPetstore.Logging - , module SwaggerPetstore.MimeTypes - , module SwaggerPetstore.Model - , module SwaggerPetstore.ModelLens - ) where - -import SwaggerPetstore.API -import SwaggerPetstore.Client -import SwaggerPetstore.Core -import SwaggerPetstore.Logging -import SwaggerPetstore.MimeTypes -import SwaggerPetstore.Model -import SwaggerPetstore.ModelLens \ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API.hs deleted file mode 100644 index 2e45deb375a..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API.hs +++ /dev/null @@ -1,30 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.API --} - -module SwaggerPetstore.API - ( module SwaggerPetstore.API.AnotherFake - , module SwaggerPetstore.API.Fake - , module SwaggerPetstore.API.FakeClassnameTags123 - , module SwaggerPetstore.API.Pet - , module SwaggerPetstore.API.Store - , module SwaggerPetstore.API.User - ) where - -import SwaggerPetstore.API.AnotherFake -import SwaggerPetstore.API.Fake -import SwaggerPetstore.API.FakeClassnameTags123 -import SwaggerPetstore.API.Pet -import SwaggerPetstore.API.Store -import SwaggerPetstore.API.User \ No newline at end of file diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/AnotherFake.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/AnotherFake.hs deleted file mode 100644 index 7052a85931d..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/AnotherFake.hs +++ /dev/null @@ -1,87 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.API.AnotherFake --} - -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE MonoLocalBinds #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module SwaggerPetstore.API.AnotherFake where - -import SwaggerPetstore.Core -import SwaggerPetstore.MimeTypes -import SwaggerPetstore.Model as M - -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) -import qualified Data.Foldable as P -import qualified Data.Map as Map -import qualified Data.Maybe as P -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.Set as Set -import qualified Data.String as P -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Text.Lazy as TL -import qualified Data.Text.Lazy.Encoding as TL -import qualified Data.Time as TI -import qualified Network.HTTP.Client.MultipartFormData as NH -import qualified Network.HTTP.Media as ME -import qualified Network.HTTP.Types as NH -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Data.Text (Text) -import GHC.Base ((<|>)) - -import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) -import qualified Prelude as P - --- * Operations - - --- ** AnotherFake - --- *** testSpecialTags - --- | @PATCH \/another-fake\/dummy@ --- --- To test special tags --- --- To test special tags --- -testSpecialTags - :: (Consumes TestSpecialTags MimeJSON, MimeRender MimeJSON Client) - => Client -- ^ "client" - client model - -> SwaggerPetstoreRequest TestSpecialTags MimeJSON Client MimeJSON -testSpecialTags client = - _mkRequest "PATCH" ["/another-fake/dummy"] - `setBodyParam` client - -data TestSpecialTags - --- | /Body Param/ "Client" - client model -instance HasBodyParam TestSpecialTags Client - --- | @application/json@ -instance Consumes TestSpecialTags MimeJSON - --- | @application/json@ -instance Produces TestSpecialTags MimeJSON - diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Fake.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Fake.hs deleted file mode 100644 index 99de9e2281f..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Fake.hs +++ /dev/null @@ -1,381 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.API.Fake --} - -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE MonoLocalBinds #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module SwaggerPetstore.API.Fake where - -import SwaggerPetstore.Core -import SwaggerPetstore.MimeTypes -import SwaggerPetstore.Model as M - -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) -import qualified Data.Foldable as P -import qualified Data.Map as Map -import qualified Data.Maybe as P -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.Set as Set -import qualified Data.String as P -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Text.Lazy as TL -import qualified Data.Text.Lazy.Encoding as TL -import qualified Data.Time as TI -import qualified Network.HTTP.Client.MultipartFormData as NH -import qualified Network.HTTP.Media as ME -import qualified Network.HTTP.Types as NH -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Data.Text (Text) -import GHC.Base ((<|>)) - -import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) -import qualified Prelude as P - --- * Operations - - --- ** Fake - --- *** fakeOuterBooleanSerialize - --- | @POST \/fake\/outer\/boolean@ --- --- Test serialization of outer boolean types --- -fakeOuterBooleanSerialize - :: (Consumes FakeOuterBooleanSerialize MimeJSON) - => Accept accept -- ^ request accept ('MimeType') - -> SwaggerPetstoreRequest FakeOuterBooleanSerialize MimeJSON Bool accept -fakeOuterBooleanSerialize _ = - _mkRequest "POST" ["/fake/outer/boolean"] - -data FakeOuterBooleanSerialize - --- | /Body Param/ "body" - Input boolean as post body -instance HasBodyParam FakeOuterBooleanSerialize BodyBool - --- | @application/json@ -instance Consumes FakeOuterBooleanSerialize MimeJSON - --- | @*/*@ -instance MimeType mtype => Produces FakeOuterBooleanSerialize mtype - - --- *** fakeOuterCompositeSerialize - --- | @POST \/fake\/outer\/composite@ --- --- Test serialization of object with outer number type --- -fakeOuterCompositeSerialize - :: (Consumes FakeOuterCompositeSerialize MimeJSON) - => Accept accept -- ^ request accept ('MimeType') - -> SwaggerPetstoreRequest FakeOuterCompositeSerialize MimeJSON OuterComposite accept -fakeOuterCompositeSerialize _ = - _mkRequest "POST" ["/fake/outer/composite"] - -data FakeOuterCompositeSerialize - --- | /Body Param/ "OuterComposite" - Input composite as post body -instance HasBodyParam FakeOuterCompositeSerialize OuterComposite - --- | @application/json@ -instance Consumes FakeOuterCompositeSerialize MimeJSON - --- | @*/*@ -instance MimeType mtype => Produces FakeOuterCompositeSerialize mtype - - --- *** fakeOuterNumberSerialize - --- | @POST \/fake\/outer\/number@ --- --- Test serialization of outer number types --- -fakeOuterNumberSerialize - :: (Consumes FakeOuterNumberSerialize MimeJSON) - => Accept accept -- ^ request accept ('MimeType') - -> SwaggerPetstoreRequest FakeOuterNumberSerialize MimeJSON Double accept -fakeOuterNumberSerialize _ = - _mkRequest "POST" ["/fake/outer/number"] - -data FakeOuterNumberSerialize - --- | /Body Param/ "body" - Input number as post body -instance HasBodyParam FakeOuterNumberSerialize Body - --- | @application/json@ -instance Consumes FakeOuterNumberSerialize MimeJSON - --- | @*/*@ -instance MimeType mtype => Produces FakeOuterNumberSerialize mtype - - --- *** fakeOuterStringSerialize - --- | @POST \/fake\/outer\/string@ --- --- Test serialization of outer string types --- -fakeOuterStringSerialize - :: (Consumes FakeOuterStringSerialize MimeJSON) - => Accept accept -- ^ request accept ('MimeType') - -> SwaggerPetstoreRequest FakeOuterStringSerialize MimeJSON Text accept -fakeOuterStringSerialize _ = - _mkRequest "POST" ["/fake/outer/string"] - -data FakeOuterStringSerialize - --- | /Body Param/ "body" - Input string as post body -instance HasBodyParam FakeOuterStringSerialize BodyText - --- | @application/json@ -instance Consumes FakeOuterStringSerialize MimeJSON - --- | @*/*@ -instance MimeType mtype => Produces FakeOuterStringSerialize mtype - - --- *** testClientModel - --- | @PATCH \/fake@ --- --- To test \"client\" model --- --- To test \"client\" model --- -testClientModel - :: (Consumes TestClientModel MimeJSON, MimeRender MimeJSON Client) - => Client -- ^ "client" - client model - -> SwaggerPetstoreRequest TestClientModel MimeJSON Client MimeJSON -testClientModel client = - _mkRequest "PATCH" ["/fake"] - `setBodyParam` client - -data TestClientModel - --- | /Body Param/ "Client" - client model -instance HasBodyParam TestClientModel Client - --- | @application/json@ -instance Consumes TestClientModel MimeJSON - --- | @application/json@ -instance Produces TestClientModel MimeJSON - - --- *** testEndpointParameters - --- | @POST \/fake@ --- --- Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트 --- --- Fake endpoint for testing various parameters 假端點 偽のエンドポイント 가짜 엔드 포인트 --- --- AuthMethod: 'AuthBasicHttpBasicTest' --- -testEndpointParameters - :: (Consumes TestEndpointParameters MimeFormUrlEncoded) - => Number -- ^ "number" - None - -> ParamDouble -- ^ "double" - None - -> PatternWithoutDelimiter -- ^ "patternWithoutDelimiter" - None - -> Byte -- ^ "byte" - None - -> SwaggerPetstoreRequest TestEndpointParameters MimeFormUrlEncoded NoContent MimeNoContent -testEndpointParameters (Number number) (ParamDouble double) (PatternWithoutDelimiter patternWithoutDelimiter) (Byte byte) = - _mkRequest "POST" ["/fake"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthBasicHttpBasicTest) - `addForm` toForm ("number", number) - `addForm` toForm ("double", double) - `addForm` toForm ("pattern_without_delimiter", patternWithoutDelimiter) - `addForm` toForm ("byte", byte) - -data TestEndpointParameters - --- | /Optional Param/ "integer" - None -instance HasOptionalParam TestEndpointParameters ParamInteger where - applyOptionalParam req (ParamInteger xs) = - req `addForm` toForm ("integer", xs) - --- | /Optional Param/ "int32" - None -instance HasOptionalParam TestEndpointParameters Int32 where - applyOptionalParam req (Int32 xs) = - req `addForm` toForm ("int32", xs) - --- | /Optional Param/ "int64" - None -instance HasOptionalParam TestEndpointParameters Int64 where - applyOptionalParam req (Int64 xs) = - req `addForm` toForm ("int64", xs) - --- | /Optional Param/ "float" - None -instance HasOptionalParam TestEndpointParameters ParamFloat where - applyOptionalParam req (ParamFloat xs) = - req `addForm` toForm ("float", xs) - --- | /Optional Param/ "string" - None -instance HasOptionalParam TestEndpointParameters ParamString where - applyOptionalParam req (ParamString xs) = - req `addForm` toForm ("string", xs) - --- | /Optional Param/ "binary" - None -instance HasOptionalParam TestEndpointParameters ParamBinary where - applyOptionalParam req (ParamBinary xs) = - req `_addMultiFormPart` NH.partFileSource "binary" xs - --- | /Optional Param/ "date" - None -instance HasOptionalParam TestEndpointParameters ParamDate where - applyOptionalParam req (ParamDate xs) = - req `addForm` toForm ("date", xs) - --- | /Optional Param/ "dateTime" - None -instance HasOptionalParam TestEndpointParameters ParamDateTime where - applyOptionalParam req (ParamDateTime xs) = - req `addForm` toForm ("dateTime", xs) - --- | /Optional Param/ "password" - None -instance HasOptionalParam TestEndpointParameters Password where - applyOptionalParam req (Password xs) = - req `addForm` toForm ("password", xs) - --- | /Optional Param/ "callback" - None -instance HasOptionalParam TestEndpointParameters Callback where - applyOptionalParam req (Callback xs) = - req `addForm` toForm ("callback", xs) - --- | @application/x-www-form-urlencoded@ -instance Consumes TestEndpointParameters MimeFormUrlEncoded - -instance Produces TestEndpointParameters MimeNoContent - - --- *** testEnumParameters - --- | @GET \/fake@ --- --- To test enum parameters --- --- To test enum parameters --- -testEnumParameters - :: (Consumes TestEnumParameters MimeFormUrlEncoded) - => SwaggerPetstoreRequest TestEnumParameters MimeFormUrlEncoded NoContent MimeNoContent -testEnumParameters = - _mkRequest "GET" ["/fake"] - -data TestEnumParameters - --- | /Optional Param/ "enum_form_string_array" - Form parameter enum test (string array) -instance HasOptionalParam TestEnumParameters EnumFormStringArray where - applyOptionalParam req (EnumFormStringArray xs) = - req `addForm` toFormColl CommaSeparated ("enum_form_string_array", xs) - --- | /Optional Param/ "enum_form_string" - Form parameter enum test (string) -instance HasOptionalParam TestEnumParameters EnumFormString where - applyOptionalParam req (EnumFormString xs) = - req `addForm` toForm ("enum_form_string", xs) - --- | /Optional Param/ "enum_header_string_array" - Header parameter enum test (string array) -instance HasOptionalParam TestEnumParameters EnumHeaderStringArray where - applyOptionalParam req (EnumHeaderStringArray xs) = - req `setHeader` toHeaderColl CommaSeparated ("enum_header_string_array", xs) - --- | /Optional Param/ "enum_header_string" - Header parameter enum test (string) -instance HasOptionalParam TestEnumParameters EnumHeaderString where - applyOptionalParam req (EnumHeaderString xs) = - req `setHeader` toHeader ("enum_header_string", xs) - --- | /Optional Param/ "enum_query_string_array" - Query parameter enum test (string array) -instance HasOptionalParam TestEnumParameters EnumQueryStringArray where - applyOptionalParam req (EnumQueryStringArray xs) = - req `setQuery` toQueryColl MultiParamArray ("enum_query_string_array", Just xs) - --- | /Optional Param/ "enum_query_string" - Query parameter enum test (string) -instance HasOptionalParam TestEnumParameters EnumQueryString where - applyOptionalParam req (EnumQueryString xs) = - req `setQuery` toQuery ("enum_query_string", Just xs) - --- | /Optional Param/ "enum_query_integer" - Query parameter enum test (double) -instance HasOptionalParam TestEnumParameters EnumQueryInteger where - applyOptionalParam req (EnumQueryInteger xs) = - req `setQuery` toQuery ("enum_query_integer", Just xs) - --- | /Optional Param/ "enum_query_double" - Query parameter enum test (double) -instance HasOptionalParam TestEnumParameters EnumQueryDouble where - applyOptionalParam req (EnumQueryDouble xs) = - req `setQuery` toQuery ("enum_query_double", Just xs) - --- | @application/x-www-form-urlencoded@ -instance Consumes TestEnumParameters MimeFormUrlEncoded - -instance Produces TestEnumParameters MimeNoContent - - --- *** testInlineAdditionalProperties - --- | @POST \/fake\/inline-additionalProperties@ --- --- test inline additionalProperties --- -testInlineAdditionalProperties - :: (Consumes TestInlineAdditionalProperties MimeJSON, MimeRender MimeJSON RequestBody) - => RequestBody -- ^ "requestBody" - request body - -> SwaggerPetstoreRequest TestInlineAdditionalProperties MimeJSON NoContent MimeNoContent -testInlineAdditionalProperties requestBody = - _mkRequest "POST" ["/fake/inline-additionalProperties"] - `setBodyParam` requestBody - -data TestInlineAdditionalProperties - --- | /Body Param/ "request_body" - request body -instance HasBodyParam TestInlineAdditionalProperties RequestBody - --- | @application/json@ -instance Consumes TestInlineAdditionalProperties MimeJSON - -instance Produces TestInlineAdditionalProperties MimeNoContent - - --- *** testJsonFormData - --- | @GET \/fake\/jsonFormData@ --- --- test json serialization of form data --- -testJsonFormData - :: (Consumes TestJsonFormData MimeFormUrlEncoded) - => Param -- ^ "param" - field1 - -> Param2 -- ^ "param2" - field2 - -> SwaggerPetstoreRequest TestJsonFormData MimeFormUrlEncoded NoContent MimeNoContent -testJsonFormData (Param param) (Param2 param2) = - _mkRequest "GET" ["/fake/jsonFormData"] - `addForm` toForm ("param", param) - `addForm` toForm ("param2", param2) - -data TestJsonFormData - --- | @application/x-www-form-urlencoded@ -instance Consumes TestJsonFormData MimeFormUrlEncoded - -instance Produces TestJsonFormData MimeNoContent - diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/FakeClassnameTags123.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/FakeClassnameTags123.hs deleted file mode 100644 index 51a9d556199..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/FakeClassnameTags123.hs +++ /dev/null @@ -1,90 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.API.FakeClassnameTags123 --} - -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE MonoLocalBinds #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module SwaggerPetstore.API.FakeClassnameTags123 where - -import SwaggerPetstore.Core -import SwaggerPetstore.MimeTypes -import SwaggerPetstore.Model as M - -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) -import qualified Data.Foldable as P -import qualified Data.Map as Map -import qualified Data.Maybe as P -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.Set as Set -import qualified Data.String as P -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Text.Lazy as TL -import qualified Data.Text.Lazy.Encoding as TL -import qualified Data.Time as TI -import qualified Network.HTTP.Client.MultipartFormData as NH -import qualified Network.HTTP.Media as ME -import qualified Network.HTTP.Types as NH -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Data.Text (Text) -import GHC.Base ((<|>)) - -import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) -import qualified Prelude as P - --- * Operations - - --- ** FakeClassnameTags123 - --- *** testClassname - --- | @PATCH \/fake_classname_test@ --- --- To test class name in snake case --- --- To test class name in snake case --- --- AuthMethod: 'AuthApiKeyApiKeyQuery' --- -testClassname - :: (Consumes TestClassname MimeJSON, MimeRender MimeJSON Client) - => Client -- ^ "client" - client model - -> SwaggerPetstoreRequest TestClassname MimeJSON Client MimeJSON -testClassname client = - _mkRequest "PATCH" ["/fake_classname_test"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKeyQuery) - `setBodyParam` client - -data TestClassname - --- | /Body Param/ "Client" - client model -instance HasBodyParam TestClassname Client - --- | @application/json@ -instance Consumes TestClassname MimeJSON - --- | @application/json@ -instance Produces TestClassname MimeJSON - diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Pet.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Pet.hs deleted file mode 100644 index 2ac90de7dce..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Pet.hs +++ /dev/null @@ -1,295 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.API.Pet --} - -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE MonoLocalBinds #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module SwaggerPetstore.API.Pet where - -import SwaggerPetstore.Core -import SwaggerPetstore.MimeTypes -import SwaggerPetstore.Model as M - -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) -import qualified Data.Foldable as P -import qualified Data.Map as Map -import qualified Data.Maybe as P -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.Set as Set -import qualified Data.String as P -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Text.Lazy as TL -import qualified Data.Text.Lazy.Encoding as TL -import qualified Data.Time as TI -import qualified Network.HTTP.Client.MultipartFormData as NH -import qualified Network.HTTP.Media as ME -import qualified Network.HTTP.Types as NH -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Data.Text (Text) -import GHC.Base ((<|>)) - -import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) -import qualified Prelude as P - --- * Operations - - --- ** Pet - --- *** addPet - --- | @POST \/pet@ --- --- Add a new pet to the store --- --- AuthMethod: 'AuthOAuthPetstoreAuth' --- -addPet - :: (Consumes AddPet contentType, MimeRender contentType Pet) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Pet -- ^ "pet" - Pet object that needs to be added to the store - -> SwaggerPetstoreRequest AddPet contentType NoContent MimeNoContent -addPet _ pet = - _mkRequest "POST" ["/pet"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth) - `setBodyParam` pet - -data AddPet - --- | /Body Param/ "Pet" - Pet object that needs to be added to the store -instance HasBodyParam AddPet Pet - --- | @application/xml@ -instance Consumes AddPet MimeXML --- | @application/json@ -instance Consumes AddPet MimeJSON - -instance Produces AddPet MimeNoContent - - --- *** deletePet - --- | @DELETE \/pet\/{petId}@ --- --- Deletes a pet --- --- AuthMethod: 'AuthOAuthPetstoreAuth' --- -deletePet - :: PetId -- ^ "petId" - Pet id to delete - -> SwaggerPetstoreRequest DeletePet MimeNoContent NoContent MimeNoContent -deletePet (PetId petId) = - _mkRequest "DELETE" ["/pet/",toPath petId] - `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth) - -data DeletePet -instance HasOptionalParam DeletePet ApiKey where - applyOptionalParam req (ApiKey xs) = - req `setHeader` toHeader ("api_key", xs) - -instance Produces DeletePet MimeNoContent - - --- *** findPetsByStatus - --- | @GET \/pet\/findByStatus@ --- --- Finds Pets by status --- --- Multiple status values can be provided with comma separated strings --- --- AuthMethod: 'AuthOAuthPetstoreAuth' --- -findPetsByStatus - :: Accept accept -- ^ request accept ('MimeType') - -> Status -- ^ "status" - Status values that need to be considered for filter - -> SwaggerPetstoreRequest FindPetsByStatus MimeNoContent [Pet] accept -findPetsByStatus _ (Status status) = - _mkRequest "GET" ["/pet/findByStatus"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth) - `setQuery` toQueryColl CommaSeparated ("status", Just status) - -data FindPetsByStatus - --- | @application/xml@ -instance Produces FindPetsByStatus MimeXML --- | @application/json@ -instance Produces FindPetsByStatus MimeJSON - - --- *** findPetsByTags - --- | @GET \/pet\/findByTags@ --- --- Finds Pets by tags --- --- Multiple tags can be provided with comma separated strings. Use tag1, tag2, tag3 for testing. --- --- AuthMethod: 'AuthOAuthPetstoreAuth' --- -findPetsByTags - :: Accept accept -- ^ request accept ('MimeType') - -> Tags -- ^ "tags" - Tags to filter by - -> SwaggerPetstoreRequest FindPetsByTags MimeNoContent [Pet] accept -findPetsByTags _ (Tags tags) = - _mkRequest "GET" ["/pet/findByTags"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth) - `setQuery` toQueryColl CommaSeparated ("tags", Just tags) - -{-# DEPRECATED findPetsByTags "" #-} - -data FindPetsByTags - --- | @application/xml@ -instance Produces FindPetsByTags MimeXML --- | @application/json@ -instance Produces FindPetsByTags MimeJSON - - --- *** getPetById - --- | @GET \/pet\/{petId}@ --- --- Find pet by ID --- --- Returns a single pet --- --- AuthMethod: 'AuthApiKeyApiKey' --- -getPetById - :: Accept accept -- ^ request accept ('MimeType') - -> PetId -- ^ "petId" - ID of pet to return - -> SwaggerPetstoreRequest GetPetById MimeNoContent Pet accept -getPetById _ (PetId petId) = - _mkRequest "GET" ["/pet/",toPath petId] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKey) - -data GetPetById - --- | @application/xml@ -instance Produces GetPetById MimeXML --- | @application/json@ -instance Produces GetPetById MimeJSON - - --- *** updatePet - --- | @PUT \/pet@ --- --- Update an existing pet --- --- AuthMethod: 'AuthOAuthPetstoreAuth' --- -updatePet - :: (Consumes UpdatePet contentType, MimeRender contentType Pet) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Pet -- ^ "pet" - Pet object that needs to be added to the store - -> SwaggerPetstoreRequest UpdatePet contentType NoContent MimeNoContent -updatePet _ pet = - _mkRequest "PUT" ["/pet"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth) - `setBodyParam` pet - -data UpdatePet - --- | /Body Param/ "Pet" - Pet object that needs to be added to the store -instance HasBodyParam UpdatePet Pet - --- | @application/xml@ -instance Consumes UpdatePet MimeXML --- | @application/json@ -instance Consumes UpdatePet MimeJSON - -instance Produces UpdatePet MimeNoContent - - --- *** updatePetWithForm - --- | @POST \/pet\/{petId}@ --- --- Updates a pet in the store with form data --- --- AuthMethod: 'AuthOAuthPetstoreAuth' --- -updatePetWithForm - :: (Consumes UpdatePetWithForm MimeFormUrlEncoded) - => PetId -- ^ "petId" - ID of pet that needs to be updated - -> SwaggerPetstoreRequest UpdatePetWithForm MimeFormUrlEncoded NoContent MimeNoContent -updatePetWithForm (PetId petId) = - _mkRequest "POST" ["/pet/",toPath petId] - `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth) - -data UpdatePetWithForm - --- | /Optional Param/ "name" - Updated name of the pet -instance HasOptionalParam UpdatePetWithForm Name2 where - applyOptionalParam req (Name2 xs) = - req `addForm` toForm ("name", xs) - --- | /Optional Param/ "status" - Updated status of the pet -instance HasOptionalParam UpdatePetWithForm StatusText where - applyOptionalParam req (StatusText xs) = - req `addForm` toForm ("status", xs) - --- | @application/x-www-form-urlencoded@ -instance Consumes UpdatePetWithForm MimeFormUrlEncoded - -instance Produces UpdatePetWithForm MimeNoContent - - --- *** uploadFile - --- | @POST \/pet\/{petId}\/uploadImage@ --- --- uploads an image --- --- AuthMethod: 'AuthOAuthPetstoreAuth' --- -uploadFile - :: (Consumes UploadFile MimeMultipartFormData) - => PetId -- ^ "petId" - ID of pet to update - -> SwaggerPetstoreRequest UploadFile MimeMultipartFormData ApiResponse MimeJSON -uploadFile (PetId petId) = - _mkRequest "POST" ["/pet/",toPath petId,"/uploadImage"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth) - -data UploadFile - --- | /Optional Param/ "additionalMetadata" - Additional data to pass to server -instance HasOptionalParam UploadFile AdditionalMetadata where - applyOptionalParam req (AdditionalMetadata xs) = - req `_addMultiFormPart` NH.partLBS "additionalMetadata" (mimeRender' MimeMultipartFormData xs) - --- | /Optional Param/ "file" - file to upload -instance HasOptionalParam UploadFile File where - applyOptionalParam req (File xs) = - req `_addMultiFormPart` NH.partFileSource "file" xs - --- | @multipart/form-data@ -instance Consumes UploadFile MimeMultipartFormData - --- | @application/json@ -instance Produces UploadFile MimeJSON - diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Store.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Store.hs deleted file mode 100644 index 8b121e0207b..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Store.hs +++ /dev/null @@ -1,152 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.API.Store --} - -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE MonoLocalBinds #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module SwaggerPetstore.API.Store where - -import SwaggerPetstore.Core -import SwaggerPetstore.MimeTypes -import SwaggerPetstore.Model as M - -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) -import qualified Data.Foldable as P -import qualified Data.Map as Map -import qualified Data.Maybe as P -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.Set as Set -import qualified Data.String as P -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Text.Lazy as TL -import qualified Data.Text.Lazy.Encoding as TL -import qualified Data.Time as TI -import qualified Network.HTTP.Client.MultipartFormData as NH -import qualified Network.HTTP.Media as ME -import qualified Network.HTTP.Types as NH -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Data.Text (Text) -import GHC.Base ((<|>)) - -import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) -import qualified Prelude as P - --- * Operations - - --- ** Store - --- *** deleteOrder - --- | @DELETE \/store\/order\/{order_id}@ --- --- Delete purchase order by ID --- --- For valid response try integer IDs with value < 1000. Anything above 1000 or nonintegers will generate API errors --- -deleteOrder - :: OrderIdText -- ^ "orderId" - ID of the order that needs to be deleted - -> SwaggerPetstoreRequest DeleteOrder MimeNoContent NoContent MimeNoContent -deleteOrder (OrderIdText orderId) = - _mkRequest "DELETE" ["/store/order/",toPath orderId] - -data DeleteOrder - -instance Produces DeleteOrder MimeNoContent - - --- *** getInventory - --- | @GET \/store\/inventory@ --- --- Returns pet inventories by status --- --- Returns a map of status codes to quantities --- --- AuthMethod: 'AuthApiKeyApiKey' --- -getInventory - :: SwaggerPetstoreRequest GetInventory MimeNoContent ((Map.Map String Int)) MimeJSON -getInventory = - _mkRequest "GET" ["/store/inventory"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKey) - -data GetInventory - --- | @application/json@ -instance Produces GetInventory MimeJSON - - --- *** getOrderById - --- | @GET \/store\/order\/{order_id}@ --- --- Find purchase order by ID --- --- For valid response try integer IDs with value <= 5 or > 10. Other values will generated exceptions --- -getOrderById - :: Accept accept -- ^ request accept ('MimeType') - -> OrderId -- ^ "orderId" - ID of pet that needs to be fetched - -> SwaggerPetstoreRequest GetOrderById MimeNoContent Order accept -getOrderById _ (OrderId orderId) = - _mkRequest "GET" ["/store/order/",toPath orderId] - -data GetOrderById - --- | @application/xml@ -instance Produces GetOrderById MimeXML --- | @application/json@ -instance Produces GetOrderById MimeJSON - - --- *** placeOrder - --- | @POST \/store\/order@ --- --- Place an order for a pet --- -placeOrder - :: (Consumes PlaceOrder MimeJSON, MimeRender MimeJSON Order) - => Accept accept -- ^ request accept ('MimeType') - -> Order -- ^ "order" - order placed for purchasing the pet - -> SwaggerPetstoreRequest PlaceOrder MimeJSON Order accept -placeOrder _ order = - _mkRequest "POST" ["/store/order"] - `setBodyParam` order - -data PlaceOrder - --- | /Body Param/ "Order" - order placed for purchasing the pet -instance HasBodyParam PlaceOrder Order - --- | @application/json@ -instance Consumes PlaceOrder MimeJSON - --- | @application/xml@ -instance Produces PlaceOrder MimeXML --- | @application/json@ -instance Produces PlaceOrder MimeJSON - diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/User.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/User.hs deleted file mode 100644 index 02bc77b7baf..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/User.hs +++ /dev/null @@ -1,244 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.API.User --} - -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE MonoLocalBinds #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module SwaggerPetstore.API.User where - -import SwaggerPetstore.Core -import SwaggerPetstore.MimeTypes -import SwaggerPetstore.Model as M - -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) -import qualified Data.Foldable as P -import qualified Data.Map as Map -import qualified Data.Maybe as P -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.Set as Set -import qualified Data.String as P -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Text.Lazy as TL -import qualified Data.Text.Lazy.Encoding as TL -import qualified Data.Time as TI -import qualified Network.HTTP.Client.MultipartFormData as NH -import qualified Network.HTTP.Media as ME -import qualified Network.HTTP.Types as NH -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Data.Text (Text) -import GHC.Base ((<|>)) - -import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) -import qualified Prelude as P - --- * Operations - - --- ** User - --- *** createUser - --- | @POST \/user@ --- --- Create user --- --- This can only be done by the logged in user. --- -createUser - :: (Consumes CreateUser MimeJSON, MimeRender MimeJSON User) - => User -- ^ "user" - Created user object - -> SwaggerPetstoreRequest CreateUser MimeJSON NoContent MimeNoContent -createUser user = - _mkRequest "POST" ["/user"] - `setBodyParam` user - -data CreateUser - --- | /Body Param/ "User" - Created user object -instance HasBodyParam CreateUser User - --- | @application/json@ -instance Consumes CreateUser MimeJSON - -instance Produces CreateUser MimeNoContent - - --- *** createUsersWithArrayInput - --- | @POST \/user\/createWithArray@ --- --- Creates list of users with given input array --- -createUsersWithArrayInput - :: (Consumes CreateUsersWithArrayInput MimeJSON, MimeRender MimeJSON User2) - => User2 -- ^ "user" - List of user object - -> SwaggerPetstoreRequest CreateUsersWithArrayInput MimeJSON NoContent MimeNoContent -createUsersWithArrayInput user = - _mkRequest "POST" ["/user/createWithArray"] - `setBodyParam` user - -data CreateUsersWithArrayInput - --- | /Body Param/ "User" - List of user object -instance HasBodyParam CreateUsersWithArrayInput User2 - --- | @application/json@ -instance Consumes CreateUsersWithArrayInput MimeJSON - -instance Produces CreateUsersWithArrayInput MimeNoContent - - --- *** createUsersWithListInput - --- | @POST \/user\/createWithList@ --- --- Creates list of users with given input array --- -createUsersWithListInput - :: (Consumes CreateUsersWithListInput MimeJSON, MimeRender MimeJSON User2) - => User2 -- ^ "user" - List of user object - -> SwaggerPetstoreRequest CreateUsersWithListInput MimeJSON NoContent MimeNoContent -createUsersWithListInput user = - _mkRequest "POST" ["/user/createWithList"] - `setBodyParam` user - -data CreateUsersWithListInput - --- | /Body Param/ "User" - List of user object -instance HasBodyParam CreateUsersWithListInput User2 - --- | @application/json@ -instance Consumes CreateUsersWithListInput MimeJSON - -instance Produces CreateUsersWithListInput MimeNoContent - - --- *** deleteUser - --- | @DELETE \/user\/{username}@ --- --- Delete user --- --- This can only be done by the logged in user. --- -deleteUser - :: Username -- ^ "username" - The name that needs to be deleted - -> SwaggerPetstoreRequest DeleteUser MimeNoContent NoContent MimeNoContent -deleteUser (Username username) = - _mkRequest "DELETE" ["/user/",toPath username] - -data DeleteUser - -instance Produces DeleteUser MimeNoContent - - --- *** getUserByName - --- | @GET \/user\/{username}@ --- --- Get user by user name --- -getUserByName - :: Accept accept -- ^ request accept ('MimeType') - -> Username -- ^ "username" - The name that needs to be fetched. Use user1 for testing. - -> SwaggerPetstoreRequest GetUserByName MimeNoContent User accept -getUserByName _ (Username username) = - _mkRequest "GET" ["/user/",toPath username] - -data GetUserByName - --- | @application/xml@ -instance Produces GetUserByName MimeXML --- | @application/json@ -instance Produces GetUserByName MimeJSON - - --- *** loginUser - --- | @GET \/user\/login@ --- --- Logs user into the system --- -loginUser - :: Accept accept -- ^ request accept ('MimeType') - -> Username -- ^ "username" - The user name for login - -> Password -- ^ "password" - The password for login in clear text - -> SwaggerPetstoreRequest LoginUser MimeNoContent Text accept -loginUser _ (Username username) (Password password) = - _mkRequest "GET" ["/user/login"] - `setQuery` toQuery ("username", Just username) - `setQuery` toQuery ("password", Just password) - -data LoginUser - --- | @application/xml@ -instance Produces LoginUser MimeXML --- | @application/json@ -instance Produces LoginUser MimeJSON - - --- *** logoutUser - --- | @GET \/user\/logout@ --- --- Logs out current logged in user session --- -logoutUser - :: SwaggerPetstoreRequest LogoutUser MimeNoContent NoContent MimeNoContent -logoutUser = - _mkRequest "GET" ["/user/logout"] - -data LogoutUser - -instance Produces LogoutUser MimeNoContent - - --- *** updateUser - --- | @PUT \/user\/{username}@ --- --- Updated user --- --- This can only be done by the logged in user. --- -updateUser - :: (Consumes UpdateUser MimeJSON, MimeRender MimeJSON User) - => User -- ^ "user" - Updated user object - -> Username -- ^ "username" - name that need to be deleted - -> SwaggerPetstoreRequest UpdateUser MimeJSON NoContent MimeNoContent -updateUser user (Username username) = - _mkRequest "PUT" ["/user/",toPath username] - `setBodyParam` user - -data UpdateUser - --- | /Body Param/ "User" - Updated user object -instance HasBodyParam UpdateUser User - --- | @application/json@ -instance Consumes UpdateUser MimeJSON - -instance Produces UpdateUser MimeNoContent - diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Client.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Client.hs deleted file mode 100644 index ab832b33773..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Client.hs +++ /dev/null @@ -1,218 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.Client --} - -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RankNTypes #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE DeriveFunctor #-} -{-# LANGUAGE DeriveFoldable #-} -{-# LANGUAGE DeriveTraversable #-} -{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module SwaggerPetstore.Client where - -import SwaggerPetstore.Core -import SwaggerPetstore.Logging -import SwaggerPetstore.MimeTypes - -import qualified Control.Exception.Safe as E -import qualified Control.Monad.IO.Class as P -import qualified Control.Monad as P -import qualified Data.Aeson.Types as A -import qualified Data.ByteString.Char8 as BC -import qualified Data.ByteString.Lazy as BL -import qualified Data.ByteString.Lazy.Char8 as BCL -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Network.HTTP.Client as NH -import qualified Network.HTTP.Client.MultipartFormData as NH -import qualified Network.HTTP.Types as NH -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Data.Function ((&)) -import Data.Monoid ((<>)) -import Data.Text (Text) -import GHC.Exts (IsString(..)) - --- * Dispatch - --- ** Lbs - --- | send a request returning the raw http response -dispatchLbs - :: (Produces req accept, MimeType contentType) - => NH.Manager -- ^ http-client Connection manager - -> SwaggerPetstoreConfig -- ^ config - -> SwaggerPetstoreRequest req contentType res accept -- ^ request - -> IO (NH.Response BCL.ByteString) -- ^ response -dispatchLbs manager config request = do - initReq <- _toInitRequest config request - dispatchInitUnsafe manager config initReq - --- ** Mime - --- | pair of decoded http body and http response -data MimeResult res = - MimeResult { mimeResult :: Either MimeError res -- ^ decoded http body - , mimeResultResponse :: NH.Response BCL.ByteString -- ^ http response - } - deriving (Show, Functor, Foldable, Traversable) - --- | pair of unrender/parser error and http response -data MimeError = - MimeError { - mimeError :: String -- ^ unrender/parser error - , mimeErrorResponse :: NH.Response BCL.ByteString -- ^ http response - } deriving (Eq, Show) - --- | send a request returning the 'MimeResult' -dispatchMime - :: forall req contentType res accept. (Produces req accept, MimeUnrender accept res, MimeType contentType) - => NH.Manager -- ^ http-client Connection manager - -> SwaggerPetstoreConfig -- ^ config - -> SwaggerPetstoreRequest req contentType res accept -- ^ request - -> IO (MimeResult res) -- ^ response -dispatchMime manager config request = do - httpResponse <- dispatchLbs manager config request - let statusCode = NH.statusCode . NH.responseStatus $ httpResponse - parsedResult <- - runConfigLogWithExceptions "Client" config $ - do if (statusCode >= 400 && statusCode < 600) - then do - let s = "error statusCode: " ++ show statusCode - _log "Client" levelError (T.pack s) - pure (Left (MimeError s httpResponse)) - else case mimeUnrender (P.Proxy :: P.Proxy accept) (NH.responseBody httpResponse) of - Left s -> do - _log "Client" levelError (T.pack s) - pure (Left (MimeError s httpResponse)) - Right r -> pure (Right r) - return (MimeResult parsedResult httpResponse) - --- | like 'dispatchMime', but only returns the decoded http body -dispatchMime' - :: (Produces req accept, MimeUnrender accept res, MimeType contentType) - => NH.Manager -- ^ http-client Connection manager - -> SwaggerPetstoreConfig -- ^ config - -> SwaggerPetstoreRequest req contentType res accept -- ^ request - -> IO (Either MimeError res) -- ^ response -dispatchMime' manager config request = do - MimeResult parsedResult _ <- dispatchMime manager config request - return parsedResult - --- ** Unsafe - --- | like 'dispatchReqLbs', but does not validate the operation is a 'Producer' of the "accept" 'MimeType'. (Useful if the server's response is undocumented) -dispatchLbsUnsafe - :: (MimeType accept, MimeType contentType) - => NH.Manager -- ^ http-client Connection manager - -> SwaggerPetstoreConfig -- ^ config - -> SwaggerPetstoreRequest req contentType res accept -- ^ request - -> IO (NH.Response BCL.ByteString) -- ^ response -dispatchLbsUnsafe manager config request = do - initReq <- _toInitRequest config request - dispatchInitUnsafe manager config initReq - --- | dispatch an InitRequest -dispatchInitUnsafe - :: NH.Manager -- ^ http-client Connection manager - -> SwaggerPetstoreConfig -- ^ config - -> InitRequest req contentType res accept -- ^ init request - -> IO (NH.Response BCL.ByteString) -- ^ response -dispatchInitUnsafe manager config (InitRequest req) = do - runConfigLogWithExceptions src config $ - do _log src levelInfo requestLogMsg - _log src levelDebug requestDbgLogMsg - res <- P.liftIO $ NH.httpLbs req manager - _log src levelInfo (responseLogMsg res) - _log src levelDebug ((T.pack . show) res) - return res - where - src = "Client" - endpoint = - T.pack $ - BC.unpack $ - NH.method req <> " " <> NH.host req <> NH.path req <> NH.queryString req - requestLogMsg = "REQ:" <> endpoint - requestDbgLogMsg = - "Headers=" <> (T.pack . show) (NH.requestHeaders req) <> " Body=" <> - (case NH.requestBody req of - NH.RequestBodyLBS xs -> T.decodeUtf8 (BL.toStrict xs) - _ -> "") - responseStatusCode = (T.pack . show) . NH.statusCode . NH.responseStatus - responseLogMsg res = - "RES:statusCode=" <> responseStatusCode res <> " (" <> endpoint <> ")" - --- * InitRequest - --- | wraps an http-client 'Request' with request/response type parameters -newtype InitRequest req contentType res accept = InitRequest - { unInitRequest :: NH.Request - } deriving (Show) - --- | Build an http-client 'Request' record from the supplied config and request -_toInitRequest - :: (MimeType accept, MimeType contentType) - => SwaggerPetstoreConfig -- ^ config - -> SwaggerPetstoreRequest req contentType res accept -- ^ request - -> IO (InitRequest req contentType res accept) -- ^ initialized request -_toInitRequest config req0 = - runConfigLogWithExceptions "Client" config $ do - parsedReq <- P.liftIO $ NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (rUrlPath req0)) - req1 <- P.liftIO $ _applyAuthMethods req0 config - P.when - (configValidateAuthMethods config && (not . null . rAuthTypes) req1) - (E.throw $ AuthMethodException $ "AuthMethod not configured: " <> (show . head . rAuthTypes) req1) - let req2 = req1 & _setContentTypeHeader & _setAcceptHeader - reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (rParams req2) - reqQuery = NH.renderQuery True (paramsQuery (rParams req2)) - pReq = parsedReq { NH.method = (rMethod req2) - , NH.requestHeaders = reqHeaders - , NH.queryString = reqQuery - } - outReq <- case paramsBody (rParams req2) of - ParamBodyNone -> pure (pReq { NH.requestBody = mempty }) - ParamBodyB bs -> pure (pReq { NH.requestBody = NH.RequestBodyBS bs }) - ParamBodyBL bl -> pure (pReq { NH.requestBody = NH.RequestBodyLBS bl }) - ParamBodyFormUrlEncoded form -> pure (pReq { NH.requestBody = NH.RequestBodyLBS (WH.urlEncodeForm form) }) - ParamBodyMultipartFormData parts -> NH.formDataBody parts pReq - - pure (InitRequest outReq) - --- | modify the underlying Request -modifyInitRequest :: InitRequest req contentType res accept -> (NH.Request -> NH.Request) -> InitRequest req contentType res accept -modifyInitRequest (InitRequest req) f = InitRequest (f req) - --- | modify the underlying Request (monadic) -modifyInitRequestM :: Monad m => InitRequest req contentType res accept -> (NH.Request -> m NH.Request) -> m (InitRequest req contentType res accept) -modifyInitRequestM (InitRequest req) f = fmap InitRequest (f req) - --- ** Logging - --- | Run a block using the configured logger instance -runConfigLog - :: P.MonadIO m - => SwaggerPetstoreConfig -> LogExec m -runConfigLog config = configLogExecWithContext config (configLogContext config) - --- | Run a block using the configured logger instance (logs exceptions) -runConfigLogWithExceptions - :: (E.MonadCatch m, P.MonadIO m) - => T.Text -> SwaggerPetstoreConfig -> LogExec m -runConfigLogWithExceptions src config = runConfigLog config . logExceptions src diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Core.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Core.hs deleted file mode 100644 index 30123608564..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Core.hs +++ /dev/null @@ -1,545 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.Core --} - -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE ExistentialQuantification #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE NamedFieldPuns #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RankNTypes #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE TupleSections #-} -{-# LANGUAGE TypeFamilies #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds #-} - -module SwaggerPetstore.Core where - -import SwaggerPetstore.MimeTypes -import SwaggerPetstore.Logging - -import qualified Control.Arrow as P (left) -import qualified Control.DeepSeq as NF -import qualified Control.Exception.Safe as E -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Base64.Lazy as BL64 -import qualified Data.ByteString.Builder as BB -import qualified Data.ByteString.Char8 as BC -import qualified Data.ByteString.Lazy as BL -import qualified Data.ByteString.Lazy.Char8 as BCL -import qualified Data.CaseInsensitive as CI -import qualified Data.Data as P (Data, Typeable, TypeRep, typeRep) -import qualified Data.Foldable as P -import qualified Data.Ix as P -import qualified Data.Maybe as P -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Time as TI -import qualified Data.Time.ISO8601 as TI -import qualified GHC.Base as P (Alternative) -import qualified Lens.Micro as L -import qualified Network.HTTP.Client.MultipartFormData as NH -import qualified Network.HTTP.Types as NH -import qualified Prelude as P -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH -import qualified Text.Printf as T - -import Control.Applicative ((<|>)) -import Control.Applicative (Alternative) -import Data.Function ((&)) -import Data.Foldable(foldlM) -import Data.Monoid ((<>)) -import Data.Text (Text) -import Prelude (($), (.), (<$>), (<*>), Maybe(..), Bool(..), Char, String, fmap, mempty, pure, return, show, IO, Monad, Functor) - --- * SwaggerPetstoreConfig - --- | -data SwaggerPetstoreConfig = SwaggerPetstoreConfig - { configHost :: BCL.ByteString -- ^ host supplied in the Request - , configUserAgent :: Text -- ^ user-agent supplied in the Request - , configLogExecWithContext :: LogExecWithContext -- ^ Run a block using a Logger instance - , configLogContext :: LogContext -- ^ Configures the logger - , configAuthMethods :: [AnyAuthMethod] -- ^ List of configured auth methods - , configValidateAuthMethods :: Bool -- ^ throw exceptions if auth methods are not configured - } - --- | display the config -instance P.Show SwaggerPetstoreConfig where - show c = - T.printf - "{ configHost = %v, configUserAgent = %v, ..}" - (show (configHost c)) - (show (configUserAgent c)) - --- | constructs a default SwaggerPetstoreConfig --- --- configHost: --- --- @http://petstore.swagger.io:80/v2@ --- --- configUserAgent: --- --- @"swagger-petstore/0.1.0.0"@ --- -newConfig :: IO SwaggerPetstoreConfig -newConfig = do - logCxt <- initLogContext - return $ SwaggerPetstoreConfig - { configHost = "http://petstore.swagger.io:80/v2" - , configUserAgent = "swagger-petstore/0.1.0.0" - , configLogExecWithContext = runDefaultLogExecWithContext - , configLogContext = logCxt - , configAuthMethods = [] - , configValidateAuthMethods = True - } - --- | updates config use AuthMethod on matching requests -addAuthMethod :: AuthMethod auth => SwaggerPetstoreConfig -> auth -> SwaggerPetstoreConfig -addAuthMethod config@SwaggerPetstoreConfig {configAuthMethods = as} a = - config { configAuthMethods = AnyAuthMethod a : as} - --- | updates the config to use stdout logging -withStdoutLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig -withStdoutLogging p = do - logCxt <- stdoutLoggingContext (configLogContext p) - return $ p { configLogExecWithContext = stdoutLoggingExec, configLogContext = logCxt } - --- | updates the config to use stderr logging -withStderrLogging :: SwaggerPetstoreConfig -> IO SwaggerPetstoreConfig -withStderrLogging p = do - logCxt <- stderrLoggingContext (configLogContext p) - return $ p { configLogExecWithContext = stderrLoggingExec, configLogContext = logCxt } - --- | updates the config to disable logging -withNoLogging :: SwaggerPetstoreConfig -> SwaggerPetstoreConfig -withNoLogging p = p { configLogExecWithContext = runNullLogExec} - --- * SwaggerPetstoreRequest - --- | Represents a request. --- --- Type Variables: --- --- * req - request operation --- * contentType - 'MimeType' associated with request body --- * res - response model --- * accept - 'MimeType' associated with response body -data SwaggerPetstoreRequest req contentType res accept = SwaggerPetstoreRequest - { rMethod :: NH.Method -- ^ Method of SwaggerPetstoreRequest - , rUrlPath :: [BCL.ByteString] -- ^ Endpoint of SwaggerPetstoreRequest - , rParams :: Params -- ^ params of SwaggerPetstoreRequest - , rAuthTypes :: [P.TypeRep] -- ^ types of auth methods - } - deriving (P.Show) - --- | 'rMethod' Lens -rMethodL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) NH.Method -rMethodL f SwaggerPetstoreRequest{..} = (\rMethod -> SwaggerPetstoreRequest { rMethod, ..} ) <$> f rMethod -{-# INLINE rMethodL #-} - --- | 'rUrlPath' Lens -rUrlPathL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) [BCL.ByteString] -rUrlPathL f SwaggerPetstoreRequest{..} = (\rUrlPath -> SwaggerPetstoreRequest { rUrlPath, ..} ) <$> f rUrlPath -{-# INLINE rUrlPathL #-} - --- | 'rParams' Lens -rParamsL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) Params -rParamsL f SwaggerPetstoreRequest{..} = (\rParams -> SwaggerPetstoreRequest { rParams, ..} ) <$> f rParams -{-# INLINE rParamsL #-} - --- | 'rParams' Lens -rAuthTypesL :: Lens_' (SwaggerPetstoreRequest req contentType res accept) [P.TypeRep] -rAuthTypesL f SwaggerPetstoreRequest{..} = (\rAuthTypes -> SwaggerPetstoreRequest { rAuthTypes, ..} ) <$> f rAuthTypes -{-# INLINE rAuthTypesL #-} - --- * HasBodyParam - --- | Designates the body parameter of a request -class HasBodyParam req param where - setBodyParam :: forall contentType res accept. (Consumes req contentType, MimeRender contentType param) => SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept - setBodyParam req xs = - req `_setBodyLBS` mimeRender (P.Proxy :: P.Proxy contentType) xs & _setContentTypeHeader - --- * HasOptionalParam - --- | Designates the optional parameters of a request -class HasOptionalParam req param where - {-# MINIMAL applyOptionalParam | (-&-) #-} - - -- | Apply an optional parameter to a request - applyOptionalParam :: SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept - applyOptionalParam = (-&-) - {-# INLINE applyOptionalParam #-} - - -- | infix operator \/ alias for 'addOptionalParam' - (-&-) :: SwaggerPetstoreRequest req contentType res accept -> param -> SwaggerPetstoreRequest req contentType res accept - (-&-) = applyOptionalParam - {-# INLINE (-&-) #-} - -infixl 2 -&- - --- | Request Params -data Params = Params - { paramsQuery :: NH.Query - , paramsHeaders :: NH.RequestHeaders - , paramsBody :: ParamBody - } - deriving (P.Show) - --- | 'paramsQuery' Lens -paramsQueryL :: Lens_' Params NH.Query -paramsQueryL f Params{..} = (\paramsQuery -> Params { paramsQuery, ..} ) <$> f paramsQuery -{-# INLINE paramsQueryL #-} - --- | 'paramsHeaders' Lens -paramsHeadersL :: Lens_' Params NH.RequestHeaders -paramsHeadersL f Params{..} = (\paramsHeaders -> Params { paramsHeaders, ..} ) <$> f paramsHeaders -{-# INLINE paramsHeadersL #-} - --- | 'paramsBody' Lens -paramsBodyL :: Lens_' Params ParamBody -paramsBodyL f Params{..} = (\paramsBody -> Params { paramsBody, ..} ) <$> f paramsBody -{-# INLINE paramsBodyL #-} - --- | Request Body -data ParamBody - = ParamBodyNone - | ParamBodyB B.ByteString - | ParamBodyBL BL.ByteString - | ParamBodyFormUrlEncoded WH.Form - | ParamBodyMultipartFormData [NH.Part] - deriving (P.Show) - --- ** SwaggerPetstoreRequest Utils - -_mkRequest :: NH.Method -- ^ Method - -> [BCL.ByteString] -- ^ Endpoint - -> SwaggerPetstoreRequest req contentType res accept -- ^ req: Request Type, res: Response Type -_mkRequest m u = SwaggerPetstoreRequest m u _mkParams [] - -_mkParams :: Params -_mkParams = Params [] [] ParamBodyNone - -setHeader :: SwaggerPetstoreRequest req contentType res accept -> [NH.Header] -> SwaggerPetstoreRequest req contentType res accept -setHeader req header = - req `removeHeader` P.fmap P.fst header & - L.over (rParamsL . paramsHeadersL) (header P.++) - -removeHeader :: SwaggerPetstoreRequest req contentType res accept -> [NH.HeaderName] -> SwaggerPetstoreRequest req contentType res accept -removeHeader req header = - req & - L.over - (rParamsL . paramsHeadersL) - (P.filter (\h -> cifst h `P.notElem` P.fmap CI.mk header)) - where - cifst = CI.mk . P.fst - - -_setContentTypeHeader :: forall req contentType res accept. MimeType contentType => SwaggerPetstoreRequest req contentType res accept -> SwaggerPetstoreRequest req contentType res accept -_setContentTypeHeader req = - case mimeType (P.Proxy :: P.Proxy contentType) of - Just m -> req `setHeader` [("content-type", BC.pack $ P.show m)] - Nothing -> req `removeHeader` ["content-type"] - -_setAcceptHeader :: forall req contentType res accept. MimeType accept => SwaggerPetstoreRequest req contentType res accept -> SwaggerPetstoreRequest req contentType res accept -_setAcceptHeader req = - case mimeType (P.Proxy :: P.Proxy accept) of - Just m -> req `setHeader` [("accept", BC.pack $ P.show m)] - Nothing -> req `removeHeader` ["accept"] - -setQuery :: SwaggerPetstoreRequest req contentType res accept -> [NH.QueryItem] -> SwaggerPetstoreRequest req contentType res accept -setQuery req query = - req & - L.over - (rParamsL . paramsQueryL) - ((query P.++) . P.filter (\q -> cifst q `P.notElem` P.fmap cifst query)) - where - cifst = CI.mk . P.fst - -addForm :: SwaggerPetstoreRequest req contentType res accept -> WH.Form -> SwaggerPetstoreRequest req contentType res accept -addForm req newform = - let form = case paramsBody (rParams req) of - ParamBodyFormUrlEncoded _form -> _form - _ -> mempty - in req & L.set (rParamsL . paramsBodyL) (ParamBodyFormUrlEncoded (newform <> form)) - -_addMultiFormPart :: SwaggerPetstoreRequest req contentType res accept -> NH.Part -> SwaggerPetstoreRequest req contentType res accept -_addMultiFormPart req newpart = - let parts = case paramsBody (rParams req) of - ParamBodyMultipartFormData _parts -> _parts - _ -> [] - in req & L.set (rParamsL . paramsBodyL) (ParamBodyMultipartFormData (newpart : parts)) - -_setBodyBS :: SwaggerPetstoreRequest req contentType res accept -> B.ByteString -> SwaggerPetstoreRequest req contentType res accept -_setBodyBS req body = - req & L.set (rParamsL . paramsBodyL) (ParamBodyB body) - -_setBodyLBS :: SwaggerPetstoreRequest req contentType res accept -> BL.ByteString -> SwaggerPetstoreRequest req contentType res accept -_setBodyLBS req body = - req & L.set (rParamsL . paramsBodyL) (ParamBodyBL body) - -_hasAuthType :: AuthMethod authMethod => SwaggerPetstoreRequest req contentType res accept -> P.Proxy authMethod -> SwaggerPetstoreRequest req contentType res accept -_hasAuthType req proxy = - req & L.over rAuthTypesL (P.typeRep proxy :) - --- ** Params Utils - -toPath - :: WH.ToHttpApiData a - => a -> BCL.ByteString -toPath = BB.toLazyByteString . WH.toEncodedUrlPiece - -toHeader :: WH.ToHttpApiData a => (NH.HeaderName, a) -> [NH.Header] -toHeader x = [fmap WH.toHeader x] - -toForm :: WH.ToHttpApiData v => (BC.ByteString, v) -> WH.Form -toForm (k,v) = WH.toForm [(BC.unpack k,v)] - -toQuery :: WH.ToHttpApiData a => (BC.ByteString, Maybe a) -> [NH.QueryItem] -toQuery x = [(fmap . fmap) toQueryParam x] - where toQueryParam = T.encodeUtf8 . WH.toQueryParam - --- *** OpenAPI `CollectionFormat` Utils - --- | Determines the format of the array if type array is used. -data CollectionFormat - = CommaSeparated -- ^ CSV format for multiple parameters. - | SpaceSeparated -- ^ Also called "SSV" - | TabSeparated -- ^ Also called "TSV" - | PipeSeparated -- ^ `value1|value2|value2` - | MultiParamArray -- ^ Using multiple GET parameters, e.g. `foo=bar&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('WH.Form') - -toHeaderColl :: WH.ToHttpApiData a => CollectionFormat -> (NH.HeaderName, [a]) -> [NH.Header] -toHeaderColl c xs = _toColl c toHeader xs - -toFormColl :: WH.ToHttpApiData v => CollectionFormat -> (BC.ByteString, [v]) -> WH.Form -toFormColl c xs = WH.toForm $ fmap unpack $ _toColl c toHeader $ pack xs - where - pack (k,v) = (CI.mk k, v) - unpack (k,v) = (BC.unpack (CI.original k), BC.unpack v) - -toQueryColl :: WH.ToHttpApiData a => CollectionFormat -> (BC.ByteString, Maybe [a]) -> NH.Query -toQueryColl c xs = _toCollA c toQuery xs - -_toColl :: P.Traversable f => CollectionFormat -> (f a -> [(b, BC.ByteString)]) -> f [a] -> [(b, BC.ByteString)] -_toColl c encode xs = fmap (fmap P.fromJust) (_toCollA' c fencode BC.singleton (fmap Just xs)) - where fencode = fmap (fmap Just) . encode . fmap P.fromJust - {-# INLINE fencode #-} - -_toCollA :: (P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t BC.ByteString)]) -> f (t [a]) -> [(b, t BC.ByteString)] -_toCollA c encode xs = _toCollA' c encode BC.singleton xs - -_toCollA' :: (P.Monoid c, P.Traversable f, P.Traversable t, P.Alternative t) => CollectionFormat -> (f (t a) -> [(b, t c)]) -> (Char -> c) -> f (t [a]) -> [(b, t c)] -_toCollA' c encode one xs = case c of - CommaSeparated -> go (one ',') - SpaceSeparated -> go (one ' ') - TabSeparated -> go (one '\t') - PipeSeparated -> go (one '|') - MultiParamArray -> expandList - where - go sep = - [P.foldl1 (\(sk, sv) (_, v) -> (sk, (combine sep <$> sv <*> v) <|> sv <|> v)) expandList] - combine sep x y = x <> sep <> y - expandList = (P.concatMap encode . (P.traverse . P.traverse) P.toList) xs - {-# INLINE go #-} - {-# INLINE expandList #-} - {-# INLINE combine #-} - --- * AuthMethods - --- | Provides a method to apply auth methods to requests -class P.Typeable a => - AuthMethod a where - applyAuthMethod - :: SwaggerPetstoreConfig - -> a - -> SwaggerPetstoreRequest req contentType res accept - -> IO (SwaggerPetstoreRequest req contentType res accept) - --- | An existential wrapper for any AuthMethod -data AnyAuthMethod = forall a. AuthMethod a => AnyAuthMethod a deriving (P.Typeable) - -instance AuthMethod AnyAuthMethod where applyAuthMethod config (AnyAuthMethod a) req = applyAuthMethod config a req - --- | indicates exceptions related to AuthMethods -data AuthMethodException = AuthMethodException String deriving (P.Show, P.Typeable) - -instance E.Exception AuthMethodException - --- | apply all matching AuthMethods in config to request -_applyAuthMethods - :: SwaggerPetstoreRequest req contentType res accept - -> SwaggerPetstoreConfig - -> IO (SwaggerPetstoreRequest req contentType res accept) -_applyAuthMethods req config@(SwaggerPetstoreConfig {configAuthMethods = as}) = - foldlM go req as - where - go r (AnyAuthMethod a) = applyAuthMethod config a r - --- * Utils - --- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON) -_omitNulls :: [(Text, A.Value)] -> A.Value -_omitNulls = A.object . P.filter notNull - where - notNull (_, A.Null) = False - notNull _ = True - --- | Encodes fields using WH.toQueryParam -_toFormItem :: (WH.ToHttpApiData a, Functor f) => t -> f a -> f (t, [Text]) -_toFormItem name x = (name,) . (:[]) . WH.toQueryParam <$> x - --- | Collapse (Just "") to Nothing -_emptyToNothing :: Maybe String -> Maybe String -_emptyToNothing (Just "") = Nothing -_emptyToNothing x = x -{-# INLINE _emptyToNothing #-} - --- | Collapse (Just mempty) to Nothing -_memptyToNothing :: (P.Monoid a, P.Eq a) => Maybe a -> Maybe a -_memptyToNothing (Just x) | x P.== P.mempty = Nothing -_memptyToNothing x = x -{-# INLINE _memptyToNothing #-} - --- * DateTime Formatting - -newtype DateTime = DateTime { unDateTime :: TI.UTCTime } - deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData,TI.ParseTime,TI.FormatTime) -instance A.FromJSON DateTime where - parseJSON = A.withText "DateTime" (_readDateTime . T.unpack) -instance A.ToJSON DateTime where - toJSON (DateTime t) = A.toJSON (_showDateTime t) -instance WH.FromHttpApiData DateTime where - parseUrlPiece = P.left T.pack . _readDateTime . T.unpack -instance WH.ToHttpApiData DateTime where - toUrlPiece (DateTime t) = T.pack (_showDateTime t) -instance P.Show DateTime where - show (DateTime t) = _showDateTime t -instance MimeRender MimeMultipartFormData DateTime where - mimeRender _ = mimeRenderDefaultMultipartFormData - --- | @_parseISO8601@ -_readDateTime :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t -_readDateTime = - _parseISO8601 -{-# INLINE _readDateTime #-} - --- | @TI.formatISO8601Millis@ -_showDateTime :: (t ~ TI.UTCTime, TI.FormatTime t) => t -> String -_showDateTime = - TI.formatISO8601Millis -{-# INLINE _showDateTime #-} - --- | parse an ISO8601 date-time string -_parseISO8601 :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t -_parseISO8601 t = - P.asum $ - P.flip (TI.parseTimeM True TI.defaultTimeLocale) t <$> - ["%FT%T%QZ", "%FT%T%Q%z", "%FT%T%Q%Z"] -{-# INLINE _parseISO8601 #-} - --- * Date Formatting - -newtype Date = Date { unDate :: TI.Day } - deriving (P.Enum,P.Eq,P.Data,P.Ord,P.Ix,NF.NFData,TI.ParseTime,TI.FormatTime) -instance A.FromJSON Date where - parseJSON = A.withText "Date" (_readDate . T.unpack) -instance A.ToJSON Date where - toJSON (Date t) = A.toJSON (_showDate t) -instance WH.FromHttpApiData Date where - parseUrlPiece = P.left T.pack . _readDate . T.unpack -instance WH.ToHttpApiData Date where - toUrlPiece (Date t) = T.pack (_showDate t) -instance P.Show Date where - show (Date t) = _showDate t -instance MimeRender MimeMultipartFormData Date where - mimeRender _ = mimeRenderDefaultMultipartFormData - --- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@ -_readDate :: (TI.ParseTime t, Monad m) => String -> m t -_readDate = - TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d" -{-# INLINE _readDate #-} - --- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@ -_showDate :: TI.FormatTime t => t -> String -_showDate = - TI.formatTime TI.defaultTimeLocale "%Y-%m-%d" -{-# INLINE _showDate #-} - --- * Byte/Binary Formatting - - --- | base64 encoded characters -newtype ByteArray = ByteArray { unByteArray :: BL.ByteString } - deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData) - -instance A.FromJSON ByteArray where - parseJSON = A.withText "ByteArray" _readByteArray -instance A.ToJSON ByteArray where - toJSON = A.toJSON . _showByteArray -instance WH.FromHttpApiData ByteArray where - parseUrlPiece = P.left T.pack . _readByteArray -instance WH.ToHttpApiData ByteArray where - toUrlPiece = _showByteArray -instance P.Show ByteArray where - show = T.unpack . _showByteArray -instance MimeRender MimeMultipartFormData ByteArray where - mimeRender _ = mimeRenderDefaultMultipartFormData - --- | read base64 encoded characters -_readByteArray :: Monad m => Text -> m ByteArray -_readByteArray = P.either P.fail (pure . ByteArray) . BL64.decode . BL.fromStrict . T.encodeUtf8 -{-# INLINE _readByteArray #-} - --- | show base64 encoded characters -_showByteArray :: ByteArray -> Text -_showByteArray = T.decodeUtf8 . BL.toStrict . BL64.encode . unByteArray -{-# INLINE _showByteArray #-} - --- | any sequence of octets -newtype Binary = Binary { unBinary :: BL.ByteString } - deriving (P.Eq,P.Data,P.Ord,P.Typeable,NF.NFData) - -instance A.FromJSON Binary where - parseJSON = A.withText "Binary" _readBinaryBase64 -instance A.ToJSON Binary where - toJSON = A.toJSON . _showBinaryBase64 -instance WH.FromHttpApiData Binary where - parseUrlPiece = P.left T.pack . _readBinaryBase64 -instance WH.ToHttpApiData Binary where - toUrlPiece = _showBinaryBase64 -instance P.Show Binary where - show = T.unpack . _showBinaryBase64 -instance MimeRender MimeMultipartFormData Binary where - mimeRender _ = unBinary - -_readBinaryBase64 :: Monad m => Text -> m Binary -_readBinaryBase64 = P.either P.fail (pure . Binary) . BL64.decode . BL.fromStrict . T.encodeUtf8 -{-# INLINE _readBinaryBase64 #-} - -_showBinaryBase64 :: Binary -> Text -_showBinaryBase64 = T.decodeUtf8 . BL.toStrict . BL64.encode . unBinary -{-# INLINE _showBinaryBase64 #-} - --- * Lens Type Aliases - -type Lens_' s a = Lens_ s s a a -type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Logging.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Logging.hs deleted file mode 100644 index 6cb71c73552..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Logging.hs +++ /dev/null @@ -1,119 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.Logging -Katip Logging functions --} - -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RankNTypes #-} -{-# LANGUAGE ScopedTypeVariables #-} - -module SwaggerPetstore.Logging where - -import qualified Control.Exception.Safe as E -import qualified Control.Monad.IO.Class as P -import qualified Control.Monad.Trans.Reader as P -import qualified Data.Text as T -import qualified Lens.Micro as L -import qualified System.IO as IO - -import Data.Text (Text) -import GHC.Exts (IsString(..)) - -import qualified Katip as LG - --- * Type Aliases (for compatibility) - --- | Runs a Katip logging block with the Log environment -type LogExecWithContext = forall m. P.MonadIO m => - LogContext -> LogExec m - --- | A Katip logging block -type LogExec m = forall a. LG.KatipT m a -> m a - --- | A Katip Log environment -type LogContext = LG.LogEnv - --- | A Katip Log severity -type LogLevel = LG.Severity - --- * default logger - --- | the default log environment -initLogContext :: IO LogContext -initLogContext = LG.initLogEnv "SwaggerPetstore" "dev" - --- | Runs a Katip logging block with the Log environment -runDefaultLogExecWithContext :: LogExecWithContext -runDefaultLogExecWithContext = LG.runKatipT - --- * stdout logger - --- | Runs a Katip logging block with the Log environment -stdoutLoggingExec :: LogExecWithContext -stdoutLoggingExec = runDefaultLogExecWithContext - --- | A Katip Log environment which targets stdout -stdoutLoggingContext :: LogContext -> IO LogContext -stdoutLoggingContext cxt = do - handleScribe <- LG.mkHandleScribe LG.ColorIfTerminal IO.stdout LG.InfoS LG.V2 - LG.registerScribe "stdout" handleScribe LG.defaultScribeSettings cxt - --- * stderr logger - --- | Runs a Katip logging block with the Log environment -stderrLoggingExec :: LogExecWithContext -stderrLoggingExec = runDefaultLogExecWithContext - --- | A Katip Log environment which targets stderr -stderrLoggingContext :: LogContext -> IO LogContext -stderrLoggingContext cxt = do - handleScribe <- LG.mkHandleScribe LG.ColorIfTerminal IO.stderr LG.InfoS LG.V2 - LG.registerScribe "stderr" handleScribe LG.defaultScribeSettings cxt - --- * Null logger - --- | Disables Katip logging -runNullLogExec :: LogExecWithContext -runNullLogExec le (LG.KatipT f) = P.runReaderT f (L.set LG.logEnvScribes mempty le) - --- * Log Msg - --- | Log a katip message -_log :: (Applicative m, LG.Katip m) => Text -> LogLevel -> Text -> m () -_log src level msg = do - LG.logMsg (fromString $ T.unpack src) level (LG.logStr msg) - --- * Log Exceptions - --- | re-throws exceptions after logging them -logExceptions - :: (LG.Katip m, E.MonadCatch m, Applicative m) - => Text -> m a -> m a -logExceptions src = - E.handle - (\(e :: E.SomeException) -> do - _log src LG.ErrorS ((T.pack . show) e) - E.throw e) - --- * Log Level - -levelInfo :: LogLevel -levelInfo = LG.InfoS - -levelError :: LogLevel -levelError = LG.ErrorS - -levelDebug :: LogLevel -levelDebug = LG.DebugS - diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/MimeTypes.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/MimeTypes.hs deleted file mode 100644 index 9f1b826760d..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/MimeTypes.hs +++ /dev/null @@ -1,204 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.MimeTypes --} - -{-# LANGUAGE ConstraintKinds #-} -{-# LANGUAGE ExistentialQuantification #-} -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} -{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module SwaggerPetstore.MimeTypes where - -import qualified Control.Arrow as P (left) -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Builder as BB -import qualified Data.ByteString.Char8 as BC -import qualified Data.ByteString.Lazy as BL -import qualified Data.ByteString.Lazy.Char8 as BCL -import qualified Data.Data as P (Typeable) -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.String as P -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Network.HTTP.Media as ME -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Prelude (($), (.),(<$>),(<*>),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty) -import qualified Prelude as P - --- * ContentType MimeType - -data ContentType a = MimeType a => ContentType { unContentType :: a } - --- * Accept MimeType - -data Accept a = MimeType a => Accept { unAccept :: a } - --- * Consumes Class - -class MimeType mtype => Consumes req mtype where - --- * Produces Class - -class MimeType mtype => Produces req mtype where - --- * Default Mime Types - -data MimeJSON = MimeJSON deriving (P.Typeable) -data MimeXML = MimeXML deriving (P.Typeable) -data MimePlainText = MimePlainText deriving (P.Typeable) -data MimeFormUrlEncoded = MimeFormUrlEncoded deriving (P.Typeable) -data MimeMultipartFormData = MimeMultipartFormData deriving (P.Typeable) -data MimeOctetStream = MimeOctetStream deriving (P.Typeable) -data MimeNoContent = MimeNoContent deriving (P.Typeable) -data MimeAny = MimeAny deriving (P.Typeable) - --- | A type for responses without content-body. -data NoContent = NoContent - deriving (P.Show, P.Eq, P.Typeable) - - --- * MimeType Class - -class P.Typeable mtype => MimeType mtype where - {-# MINIMAL mimeType | mimeTypes #-} - - mimeTypes :: P.Proxy mtype -> [ME.MediaType] - mimeTypes p = - case mimeType p of - Just x -> [x] - Nothing -> [] - - mimeType :: P.Proxy mtype -> Maybe ME.MediaType - mimeType p = - case mimeTypes p of - [] -> Nothing - (x:_) -> Just x - - mimeType' :: mtype -> Maybe ME.MediaType - mimeType' _ = mimeType (P.Proxy :: P.Proxy mtype) - mimeTypes' :: mtype -> [ME.MediaType] - mimeTypes' _ = mimeTypes (P.Proxy :: P.Proxy mtype) - --- Default MimeType Instances - --- | @application/json; charset=utf-8@ -instance MimeType MimeJSON where - mimeType _ = Just $ P.fromString "application/json" --- | @application/xml; charset=utf-8@ -instance MimeType MimeXML where - mimeType _ = Just $ P.fromString "application/xml" --- | @application/x-www-form-urlencoded@ -instance MimeType MimeFormUrlEncoded where - mimeType _ = Just $ P.fromString "application/x-www-form-urlencoded" --- | @multipart/form-data@ -instance MimeType MimeMultipartFormData where - mimeType _ = Just $ P.fromString "multipart/form-data" --- | @text/plain; charset=utf-8@ -instance MimeType MimePlainText where - mimeType _ = Just $ P.fromString "text/plain" --- | @application/octet-stream@ -instance MimeType MimeOctetStream where - mimeType _ = Just $ P.fromString "application/octet-stream" --- | @"*/*"@ -instance MimeType MimeAny where - mimeType _ = Just $ P.fromString "*/*" -instance MimeType MimeNoContent where - mimeType _ = Nothing - --- * MimeRender Class - -class MimeType mtype => MimeRender mtype x where - mimeRender :: P.Proxy mtype -> x -> BL.ByteString - mimeRender' :: mtype -> x -> BL.ByteString - mimeRender' _ x = mimeRender (P.Proxy :: P.Proxy mtype) x - - -mimeRenderDefaultMultipartFormData :: WH.ToHttpApiData a => a -> BL.ByteString -mimeRenderDefaultMultipartFormData = BL.fromStrict . T.encodeUtf8 . WH.toQueryParam - --- Default MimeRender Instances - --- | `A.encode` -instance A.ToJSON a => MimeRender MimeJSON a where mimeRender _ = A.encode --- | @WH.urlEncodeAsForm@ -instance WH.ToForm a => MimeRender MimeFormUrlEncoded a where mimeRender _ = WH.urlEncodeAsForm - --- | @P.id@ -instance MimeRender MimePlainText BL.ByteString where mimeRender _ = P.id --- | @BL.fromStrict . T.encodeUtf8@ -instance MimeRender MimePlainText T.Text where mimeRender _ = BL.fromStrict . T.encodeUtf8 --- | @BCL.pack@ -instance MimeRender MimePlainText String where mimeRender _ = BCL.pack - --- | @P.id@ -instance MimeRender MimeOctetStream BL.ByteString where mimeRender _ = P.id --- | @BL.fromStrict . T.encodeUtf8@ -instance MimeRender MimeOctetStream T.Text where mimeRender _ = BL.fromStrict . T.encodeUtf8 --- | @BCL.pack@ -instance MimeRender MimeOctetStream String where mimeRender _ = BCL.pack - -instance MimeRender MimeMultipartFormData BL.ByteString where mimeRender _ = P.id - -instance MimeRender MimeMultipartFormData Bool where mimeRender _ = mimeRenderDefaultMultipartFormData -instance MimeRender MimeMultipartFormData Char where mimeRender _ = mimeRenderDefaultMultipartFormData -instance MimeRender MimeMultipartFormData Double where mimeRender _ = mimeRenderDefaultMultipartFormData -instance MimeRender MimeMultipartFormData Float where mimeRender _ = mimeRenderDefaultMultipartFormData -instance MimeRender MimeMultipartFormData Int where mimeRender _ = mimeRenderDefaultMultipartFormData -instance MimeRender MimeMultipartFormData Integer where mimeRender _ = mimeRenderDefaultMultipartFormData -instance MimeRender MimeMultipartFormData String where mimeRender _ = mimeRenderDefaultMultipartFormData -instance MimeRender MimeMultipartFormData T.Text where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | @P.Right . P.const NoContent@ -instance MimeRender MimeNoContent NoContent where mimeRender _ = P.const BCL.empty - - --- * MimeUnrender Class - -class MimeType mtype => MimeUnrender mtype o where - mimeUnrender :: P.Proxy mtype -> BL.ByteString -> P.Either String o - mimeUnrender' :: mtype -> BL.ByteString -> P.Either String o - mimeUnrender' _ x = mimeUnrender (P.Proxy :: P.Proxy mtype) x - --- Default MimeUnrender Instances - --- | @A.eitherDecode@ -instance A.FromJSON a => MimeUnrender MimeJSON a where mimeUnrender _ = A.eitherDecode --- | @P.left T.unpack . WH.urlDecodeAsForm@ -instance WH.FromForm a => MimeUnrender MimeFormUrlEncoded a where mimeUnrender _ = P.left T.unpack . WH.urlDecodeAsForm --- | @P.Right . P.id@ - -instance MimeUnrender MimePlainText BL.ByteString where mimeUnrender _ = P.Right . P.id --- | @P.left P.show . TL.decodeUtf8'@ -instance MimeUnrender MimePlainText T.Text where mimeUnrender _ = P.left P.show . T.decodeUtf8' . BL.toStrict --- | @P.Right . BCL.unpack@ -instance MimeUnrender MimePlainText String where mimeUnrender _ = P.Right . BCL.unpack - --- | @P.Right . P.id@ -instance MimeUnrender MimeOctetStream BL.ByteString where mimeUnrender _ = P.Right . P.id --- | @P.left P.show . T.decodeUtf8' . BL.toStrict@ -instance MimeUnrender MimeOctetStream T.Text where mimeUnrender _ = P.left P.show . T.decodeUtf8' . BL.toStrict --- | @P.Right . BCL.unpack@ -instance MimeUnrender MimeOctetStream String where mimeUnrender _ = P.Right . BCL.unpack - --- | @P.Right . P.const NoContent@ -instance MimeUnrender MimeNoContent NoContent where mimeUnrender _ = P.Right . P.const NoContent - - diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Model.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Model.hs deleted file mode 100644 index 02d17ad5994..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Model.hs +++ /dev/null @@ -1,1767 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.Model --} - -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveFoldable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE DeriveTraversable #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE NamedFieldPuns #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TupleSections #-} -{-# LANGUAGE TypeFamilies #-} -{-# OPTIONS_GHC -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module SwaggerPetstore.Model where - -import SwaggerPetstore.Core -import SwaggerPetstore.MimeTypes - -import Data.Aeson ((.:),(.:!),(.:?),(.=)) - -import qualified Control.Arrow as P (left) -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Base64 as B64 -import qualified Data.ByteString.Char8 as BC -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) -import qualified Data.Foldable as P -import qualified Data.HashMap.Lazy as HM -import qualified Data.Map as Map -import qualified Data.Maybe as P -import qualified Data.Set as Set -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Time as TI -import qualified Lens.Micro as L -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Control.Applicative ((<|>)) -import Control.Applicative (Alternative) -import Data.Function ((&)) -import Data.Monoid ((<>)) -import Data.Text (Text) -import Prelude (($),(/=),(.),(<$>),(<*>),(>>=),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) - -import qualified Prelude as P - - - --- * Parameter newtypes - - --- ** AdditionalMetadata -newtype AdditionalMetadata = AdditionalMetadata { unAdditionalMetadata :: Text } deriving (P.Eq, P.Show) - --- ** ApiKey -newtype ApiKey = ApiKey { unApiKey :: Text } deriving (P.Eq, P.Show) - --- ** Body -newtype Body = Body { unBody :: Double } deriving (P.Eq, P.Show, A.ToJSON) - --- ** BodyBool -newtype BodyBool = BodyBool { unBodyBool :: Bool } deriving (P.Eq, P.Show, A.ToJSON) - --- ** BodyText -newtype BodyText = BodyText { unBodyText :: Text } deriving (P.Eq, P.Show, A.ToJSON) - --- ** Byte -newtype Byte = Byte { unByte :: ByteArray } deriving (P.Eq, P.Show) - --- ** Callback -newtype Callback = Callback { unCallback :: Text } deriving (P.Eq, P.Show) - --- ** EnumFormString -newtype EnumFormString = EnumFormString { unEnumFormString :: E'EnumFormString } deriving (P.Eq, P.Show) - --- ** EnumFormStringArray -newtype EnumFormStringArray = EnumFormStringArray { unEnumFormStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show) - --- ** EnumHeaderString -newtype EnumHeaderString = EnumHeaderString { unEnumHeaderString :: E'EnumFormString } deriving (P.Eq, P.Show) - --- ** EnumHeaderStringArray -newtype EnumHeaderStringArray = EnumHeaderStringArray { unEnumHeaderStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show) - --- ** EnumQueryDouble -newtype EnumQueryDouble = EnumQueryDouble { unEnumQueryDouble :: E'EnumNumber } deriving (P.Eq, P.Show) - --- ** EnumQueryInteger -newtype EnumQueryInteger = EnumQueryInteger { unEnumQueryInteger :: E'EnumQueryInteger } deriving (P.Eq, P.Show) - --- ** EnumQueryString -newtype EnumQueryString = EnumQueryString { unEnumQueryString :: E'EnumFormString } deriving (P.Eq, P.Show) - --- ** EnumQueryStringArray -newtype EnumQueryStringArray = EnumQueryStringArray { unEnumQueryStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show) - --- ** File -newtype File = File { unFile :: FilePath } deriving (P.Eq, P.Show) - --- ** Int32 -newtype Int32 = Int32 { unInt32 :: Int } deriving (P.Eq, P.Show) - --- ** Int64 -newtype Int64 = Int64 { unInt64 :: Integer } deriving (P.Eq, P.Show) - --- ** Name2 -newtype Name2 = Name2 { unName2 :: Text } deriving (P.Eq, P.Show) - --- ** Number -newtype Number = Number { unNumber :: Double } deriving (P.Eq, P.Show) - --- ** OrderId -newtype OrderId = OrderId { unOrderId :: Integer } deriving (P.Eq, P.Show) - --- ** OrderIdText -newtype OrderIdText = OrderIdText { unOrderIdText :: Text } deriving (P.Eq, P.Show) - --- ** Param -newtype Param = Param { unParam :: Text } deriving (P.Eq, P.Show) - --- ** Param2 -newtype Param2 = Param2 { unParam2 :: Text } deriving (P.Eq, P.Show) - --- ** ParamBinary -newtype ParamBinary = ParamBinary { unParamBinary :: FilePath } deriving (P.Eq, P.Show) - --- ** ParamDate -newtype ParamDate = ParamDate { unParamDate :: Date } deriving (P.Eq, P.Show) - --- ** ParamDateTime -newtype ParamDateTime = ParamDateTime { unParamDateTime :: DateTime } deriving (P.Eq, P.Show) - --- ** ParamDouble -newtype ParamDouble = ParamDouble { unParamDouble :: Double } deriving (P.Eq, P.Show) - --- ** ParamFloat -newtype ParamFloat = ParamFloat { unParamFloat :: Float } deriving (P.Eq, P.Show) - --- ** ParamInteger -newtype ParamInteger = ParamInteger { unParamInteger :: Int } deriving (P.Eq, P.Show) - --- ** ParamString -newtype ParamString = ParamString { unParamString :: Text } deriving (P.Eq, P.Show) - --- ** Password -newtype Password = Password { unPassword :: Text } deriving (P.Eq, P.Show) - --- ** PatternWithoutDelimiter -newtype PatternWithoutDelimiter = PatternWithoutDelimiter { unPatternWithoutDelimiter :: Text } deriving (P.Eq, P.Show) - --- ** PetId -newtype PetId = PetId { unPetId :: Integer } deriving (P.Eq, P.Show) - --- ** RequestBody -newtype RequestBody = RequestBody { unRequestBody :: Text } deriving (P.Eq, P.Show, A.ToJSON) - --- ** Status -newtype Status = Status { unStatus :: [E'Status2] } deriving (P.Eq, P.Show) - --- ** StatusText -newtype StatusText = StatusText { unStatusText :: Text } deriving (P.Eq, P.Show) - --- ** Tags -newtype Tags = Tags { unTags :: [Text] } deriving (P.Eq, P.Show) - --- ** User2 -newtype User2 = User2 { unUser2 :: [User] } deriving (P.Eq, P.Show, A.ToJSON) - --- ** Username -newtype Username = Username { unUsername :: Text } deriving (P.Eq, P.Show) - --- * Models - - --- ** AdditionalPropertiesClass --- | AdditionalPropertiesClass -data AdditionalPropertiesClass = AdditionalPropertiesClass - { additionalPropertiesClassMapProperty :: !(Maybe (Map.Map String Text)) -- ^ "map_property" - , additionalPropertiesClassMapOfMapProperty :: !(Maybe (Map.Map String (Map.Map String Text))) -- ^ "map_of_map_property" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON AdditionalPropertiesClass -instance A.FromJSON AdditionalPropertiesClass where - parseJSON = A.withObject "AdditionalPropertiesClass" $ \o -> - AdditionalPropertiesClass - <$> (o .:? "map_property") - <*> (o .:? "map_of_map_property") - --- | ToJSON AdditionalPropertiesClass -instance A.ToJSON AdditionalPropertiesClass where - toJSON AdditionalPropertiesClass {..} = - _omitNulls - [ "map_property" .= additionalPropertiesClassMapProperty - , "map_of_map_property" .= additionalPropertiesClassMapOfMapProperty - ] - - --- | Construct a value of type 'AdditionalPropertiesClass' (by applying it's required fields, if any) -mkAdditionalPropertiesClass - :: AdditionalPropertiesClass -mkAdditionalPropertiesClass = - AdditionalPropertiesClass - { additionalPropertiesClassMapProperty = Nothing - , additionalPropertiesClassMapOfMapProperty = Nothing - } - --- ** Animal --- | Animal -data Animal = Animal - { animalClassName :: !(Text) -- ^ /Required/ "className" - , animalColor :: !(Maybe Text) -- ^ "color" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Animal -instance A.FromJSON Animal where - parseJSON = A.withObject "Animal" $ \o -> - Animal - <$> (o .: "className") - <*> (o .:? "color") - --- | ToJSON Animal -instance A.ToJSON Animal where - toJSON Animal {..} = - _omitNulls - [ "className" .= animalClassName - , "color" .= animalColor - ] - - --- | Construct a value of type 'Animal' (by applying it's required fields, if any) -mkAnimal - :: Text -- ^ 'animalClassName' - -> Animal -mkAnimal animalClassName = - Animal - { animalClassName - , animalColor = Nothing - } - --- ** AnimalFarm --- | AnimalFarm -data AnimalFarm = AnimalFarm - { - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON AnimalFarm -instance A.FromJSON AnimalFarm where - parseJSON = A.withObject "AnimalFarm" $ \o -> - pure AnimalFarm - - --- | ToJSON AnimalFarm -instance A.ToJSON AnimalFarm where - toJSON AnimalFarm = - _omitNulls - [ - ] - - --- | Construct a value of type 'AnimalFarm' (by applying it's required fields, if any) -mkAnimalFarm - :: AnimalFarm -mkAnimalFarm = - AnimalFarm - { - } - --- ** ApiResponse --- | ApiResponse -data ApiResponse = ApiResponse - { apiResponseCode :: !(Maybe Int) -- ^ "code" - , apiResponseType :: !(Maybe Text) -- ^ "type" - , apiResponseMessage :: !(Maybe Text) -- ^ "message" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ApiResponse -instance A.FromJSON ApiResponse where - parseJSON = A.withObject "ApiResponse" $ \o -> - ApiResponse - <$> (o .:? "code") - <*> (o .:? "type") - <*> (o .:? "message") - --- | ToJSON ApiResponse -instance A.ToJSON ApiResponse where - toJSON ApiResponse {..} = - _omitNulls - [ "code" .= apiResponseCode - , "type" .= apiResponseType - , "message" .= apiResponseMessage - ] - - --- | Construct a value of type 'ApiResponse' (by applying it's required fields, if any) -mkApiResponse - :: ApiResponse -mkApiResponse = - ApiResponse - { apiResponseCode = Nothing - , apiResponseType = Nothing - , apiResponseMessage = Nothing - } - --- ** ArrayOfArrayOfNumberOnly --- | ArrayOfArrayOfNumberOnly -data ArrayOfArrayOfNumberOnly = ArrayOfArrayOfNumberOnly - { arrayOfArrayOfNumberOnlyArrayArrayNumber :: !(Maybe [[Double]]) -- ^ "ArrayArrayNumber" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ArrayOfArrayOfNumberOnly -instance A.FromJSON ArrayOfArrayOfNumberOnly where - parseJSON = A.withObject "ArrayOfArrayOfNumberOnly" $ \o -> - ArrayOfArrayOfNumberOnly - <$> (o .:? "ArrayArrayNumber") - --- | ToJSON ArrayOfArrayOfNumberOnly -instance A.ToJSON ArrayOfArrayOfNumberOnly where - toJSON ArrayOfArrayOfNumberOnly {..} = - _omitNulls - [ "ArrayArrayNumber" .= arrayOfArrayOfNumberOnlyArrayArrayNumber - ] - - --- | Construct a value of type 'ArrayOfArrayOfNumberOnly' (by applying it's required fields, if any) -mkArrayOfArrayOfNumberOnly - :: ArrayOfArrayOfNumberOnly -mkArrayOfArrayOfNumberOnly = - ArrayOfArrayOfNumberOnly - { arrayOfArrayOfNumberOnlyArrayArrayNumber = Nothing - } - --- ** ArrayOfNumberOnly --- | ArrayOfNumberOnly -data ArrayOfNumberOnly = ArrayOfNumberOnly - { arrayOfNumberOnlyArrayNumber :: !(Maybe [Double]) -- ^ "ArrayNumber" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ArrayOfNumberOnly -instance A.FromJSON ArrayOfNumberOnly where - parseJSON = A.withObject "ArrayOfNumberOnly" $ \o -> - ArrayOfNumberOnly - <$> (o .:? "ArrayNumber") - --- | ToJSON ArrayOfNumberOnly -instance A.ToJSON ArrayOfNumberOnly where - toJSON ArrayOfNumberOnly {..} = - _omitNulls - [ "ArrayNumber" .= arrayOfNumberOnlyArrayNumber - ] - - --- | Construct a value of type 'ArrayOfNumberOnly' (by applying it's required fields, if any) -mkArrayOfNumberOnly - :: ArrayOfNumberOnly -mkArrayOfNumberOnly = - ArrayOfNumberOnly - { arrayOfNumberOnlyArrayNumber = Nothing - } - --- ** ArrayTest --- | ArrayTest -data ArrayTest = ArrayTest - { arrayTestArrayOfString :: !(Maybe [Text]) -- ^ "array_of_string" - , arrayTestArrayArrayOfInteger :: !(Maybe [[Integer]]) -- ^ "array_array_of_integer" - , arrayTestArrayArrayOfModel :: !(Maybe [[ReadOnlyFirst]]) -- ^ "array_array_of_model" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ArrayTest -instance A.FromJSON ArrayTest where - parseJSON = A.withObject "ArrayTest" $ \o -> - ArrayTest - <$> (o .:? "array_of_string") - <*> (o .:? "array_array_of_integer") - <*> (o .:? "array_array_of_model") - --- | ToJSON ArrayTest -instance A.ToJSON ArrayTest where - toJSON ArrayTest {..} = - _omitNulls - [ "array_of_string" .= arrayTestArrayOfString - , "array_array_of_integer" .= arrayTestArrayArrayOfInteger - , "array_array_of_model" .= arrayTestArrayArrayOfModel - ] - - --- | Construct a value of type 'ArrayTest' (by applying it's required fields, if any) -mkArrayTest - :: ArrayTest -mkArrayTest = - ArrayTest - { arrayTestArrayOfString = Nothing - , arrayTestArrayArrayOfInteger = Nothing - , arrayTestArrayArrayOfModel = Nothing - } - --- ** Capitalization --- | Capitalization -data Capitalization = Capitalization - { capitalizationSmallCamel :: !(Maybe Text) -- ^ "smallCamel" - , capitalizationCapitalCamel :: !(Maybe Text) -- ^ "CapitalCamel" - , capitalizationSmallSnake :: !(Maybe Text) -- ^ "small_Snake" - , capitalizationCapitalSnake :: !(Maybe Text) -- ^ "Capital_Snake" - , capitalizationScaEthFlowPoints :: !(Maybe Text) -- ^ "SCA_ETH_Flow_Points" - , capitalizationAttName :: !(Maybe Text) -- ^ "ATT_NAME" - Name of the pet - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Capitalization -instance A.FromJSON Capitalization where - parseJSON = A.withObject "Capitalization" $ \o -> - Capitalization - <$> (o .:? "smallCamel") - <*> (o .:? "CapitalCamel") - <*> (o .:? "small_Snake") - <*> (o .:? "Capital_Snake") - <*> (o .:? "SCA_ETH_Flow_Points") - <*> (o .:? "ATT_NAME") - --- | ToJSON Capitalization -instance A.ToJSON Capitalization where - toJSON Capitalization {..} = - _omitNulls - [ "smallCamel" .= capitalizationSmallCamel - , "CapitalCamel" .= capitalizationCapitalCamel - , "small_Snake" .= capitalizationSmallSnake - , "Capital_Snake" .= capitalizationCapitalSnake - , "SCA_ETH_Flow_Points" .= capitalizationScaEthFlowPoints - , "ATT_NAME" .= capitalizationAttName - ] - - --- | Construct a value of type 'Capitalization' (by applying it's required fields, if any) -mkCapitalization - :: Capitalization -mkCapitalization = - Capitalization - { capitalizationSmallCamel = Nothing - , capitalizationCapitalCamel = Nothing - , capitalizationSmallSnake = Nothing - , capitalizationCapitalSnake = Nothing - , capitalizationScaEthFlowPoints = Nothing - , capitalizationAttName = Nothing - } - --- ** Cat --- | Cat -data Cat = Cat - { catClassName :: !(Text) -- ^ /Required/ "className" - , catColor :: !(Maybe Text) -- ^ "color" - , catDeclawed :: !(Maybe Bool) -- ^ "declawed" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Cat -instance A.FromJSON Cat where - parseJSON = A.withObject "Cat" $ \o -> - Cat - <$> (o .: "className") - <*> (o .:? "color") - <*> (o .:? "declawed") - --- | ToJSON Cat -instance A.ToJSON Cat where - toJSON Cat {..} = - _omitNulls - [ "className" .= catClassName - , "color" .= catColor - , "declawed" .= catDeclawed - ] - - --- | Construct a value of type 'Cat' (by applying it's required fields, if any) -mkCat - :: Text -- ^ 'catClassName' - -> Cat -mkCat catClassName = - Cat - { catClassName - , catColor = Nothing - , catDeclawed = Nothing - } - --- ** Category --- | Category -data Category = Category - { categoryId :: !(Maybe Integer) -- ^ "id" - , categoryName :: !(Maybe Text) -- ^ "name" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Category -instance A.FromJSON Category where - parseJSON = A.withObject "Category" $ \o -> - Category - <$> (o .:? "id") - <*> (o .:? "name") - --- | ToJSON Category -instance A.ToJSON Category where - toJSON Category {..} = - _omitNulls - [ "id" .= categoryId - , "name" .= categoryName - ] - - --- | Construct a value of type 'Category' (by applying it's required fields, if any) -mkCategory - :: Category -mkCategory = - Category - { categoryId = Nothing - , categoryName = Nothing - } - --- ** ClassModel --- | ClassModel --- Model for testing model with \"_class\" property -data ClassModel = ClassModel - { classModelClass :: !(Maybe Text) -- ^ "_class" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ClassModel -instance A.FromJSON ClassModel where - parseJSON = A.withObject "ClassModel" $ \o -> - ClassModel - <$> (o .:? "_class") - --- | ToJSON ClassModel -instance A.ToJSON ClassModel where - toJSON ClassModel {..} = - _omitNulls - [ "_class" .= classModelClass - ] - - --- | Construct a value of type 'ClassModel' (by applying it's required fields, if any) -mkClassModel - :: ClassModel -mkClassModel = - ClassModel - { classModelClass = Nothing - } - --- ** Client --- | Client -data Client = Client - { clientClient :: !(Maybe Text) -- ^ "client" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Client -instance A.FromJSON Client where - parseJSON = A.withObject "Client" $ \o -> - Client - <$> (o .:? "client") - --- | ToJSON Client -instance A.ToJSON Client where - toJSON Client {..} = - _omitNulls - [ "client" .= clientClient - ] - - --- | Construct a value of type 'Client' (by applying it's required fields, if any) -mkClient - :: Client -mkClient = - Client - { clientClient = Nothing - } - --- ** Dog --- | Dog -data Dog = Dog - { dogClassName :: !(Text) -- ^ /Required/ "className" - , dogColor :: !(Maybe Text) -- ^ "color" - , dogBreed :: !(Maybe Text) -- ^ "breed" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Dog -instance A.FromJSON Dog where - parseJSON = A.withObject "Dog" $ \o -> - Dog - <$> (o .: "className") - <*> (o .:? "color") - <*> (o .:? "breed") - --- | ToJSON Dog -instance A.ToJSON Dog where - toJSON Dog {..} = - _omitNulls - [ "className" .= dogClassName - , "color" .= dogColor - , "breed" .= dogBreed - ] - - --- | Construct a value of type 'Dog' (by applying it's required fields, if any) -mkDog - :: Text -- ^ 'dogClassName' - -> Dog -mkDog dogClassName = - Dog - { dogClassName - , dogColor = Nothing - , dogBreed = Nothing - } - --- ** EnumArrays --- | EnumArrays -data EnumArrays = EnumArrays - { enumArraysJustSymbol :: !(Maybe E'JustSymbol) -- ^ "just_symbol" - , enumArraysArrayEnum :: !(Maybe [E'ArrayEnum]) -- ^ "array_enum" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON EnumArrays -instance A.FromJSON EnumArrays where - parseJSON = A.withObject "EnumArrays" $ \o -> - EnumArrays - <$> (o .:? "just_symbol") - <*> (o .:? "array_enum") - --- | ToJSON EnumArrays -instance A.ToJSON EnumArrays where - toJSON EnumArrays {..} = - _omitNulls - [ "just_symbol" .= enumArraysJustSymbol - , "array_enum" .= enumArraysArrayEnum - ] - - --- | Construct a value of type 'EnumArrays' (by applying it's required fields, if any) -mkEnumArrays - :: EnumArrays -mkEnumArrays = - EnumArrays - { enumArraysJustSymbol = Nothing - , enumArraysArrayEnum = Nothing - } - --- ** EnumTest --- | EnumTest -data EnumTest = EnumTest - { enumTestEnumString :: !(Maybe E'EnumString) -- ^ "enum_string" - , enumTestEnumStringRequired :: !(E'EnumString) -- ^ /Required/ "enum_string_required" - , enumTestEnumInteger :: !(Maybe E'EnumInteger) -- ^ "enum_integer" - , enumTestEnumNumber :: !(Maybe E'EnumNumber) -- ^ "enum_number" - , enumTestOuterEnum :: !(Maybe OuterEnum) -- ^ "outerEnum" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON EnumTest -instance A.FromJSON EnumTest where - parseJSON = A.withObject "EnumTest" $ \o -> - EnumTest - <$> (o .:? "enum_string") - <*> (o .: "enum_string_required") - <*> (o .:? "enum_integer") - <*> (o .:? "enum_number") - <*> (o .:? "outerEnum") - --- | ToJSON EnumTest -instance A.ToJSON EnumTest where - toJSON EnumTest {..} = - _omitNulls - [ "enum_string" .= enumTestEnumString - , "enum_string_required" .= enumTestEnumStringRequired - , "enum_integer" .= enumTestEnumInteger - , "enum_number" .= enumTestEnumNumber - , "outerEnum" .= enumTestOuterEnum - ] - - --- | Construct a value of type 'EnumTest' (by applying it's required fields, if any) -mkEnumTest - :: E'EnumString -- ^ 'enumTestEnumStringRequired' - -> EnumTest -mkEnumTest enumTestEnumStringRequired = - EnumTest - { enumTestEnumString = Nothing - , enumTestEnumStringRequired - , enumTestEnumInteger = Nothing - , enumTestEnumNumber = Nothing - , enumTestOuterEnum = Nothing - } - --- ** FormatTest --- | FormatTest -data FormatTest = FormatTest - { formatTestInteger :: !(Maybe Int) -- ^ "integer" - , formatTestInt32 :: !(Maybe Int) -- ^ "int32" - , formatTestInt64 :: !(Maybe Integer) -- ^ "int64" - , formatTestNumber :: !(Double) -- ^ /Required/ "number" - , formatTestFloat :: !(Maybe Float) -- ^ "float" - , formatTestDouble :: !(Maybe Double) -- ^ "double" - , formatTestString :: !(Maybe Text) -- ^ "string" - , formatTestByte :: !(ByteArray) -- ^ /Required/ "byte" - , formatTestBinary :: !(Maybe FilePath) -- ^ "binary" - , formatTestDate :: !(Date) -- ^ /Required/ "date" - , formatTestDateTime :: !(Maybe DateTime) -- ^ "dateTime" - , formatTestUuid :: !(Maybe Text) -- ^ "uuid" - , formatTestPassword :: !(Text) -- ^ /Required/ "password" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON FormatTest -instance A.FromJSON FormatTest where - parseJSON = A.withObject "FormatTest" $ \o -> - FormatTest - <$> (o .:? "integer") - <*> (o .:? "int32") - <*> (o .:? "int64") - <*> (o .: "number") - <*> (o .:? "float") - <*> (o .:? "double") - <*> (o .:? "string") - <*> (o .: "byte") - <*> (o .:? "binary") - <*> (o .: "date") - <*> (o .:? "dateTime") - <*> (o .:? "uuid") - <*> (o .: "password") - --- | ToJSON FormatTest -instance A.ToJSON FormatTest where - toJSON FormatTest {..} = - _omitNulls - [ "integer" .= formatTestInteger - , "int32" .= formatTestInt32 - , "int64" .= formatTestInt64 - , "number" .= formatTestNumber - , "float" .= formatTestFloat - , "double" .= formatTestDouble - , "string" .= formatTestString - , "byte" .= formatTestByte - , "binary" .= formatTestBinary - , "date" .= formatTestDate - , "dateTime" .= formatTestDateTime - , "uuid" .= formatTestUuid - , "password" .= formatTestPassword - ] - - --- | Construct a value of type 'FormatTest' (by applying it's required fields, if any) -mkFormatTest - :: Double -- ^ 'formatTestNumber' - -> ByteArray -- ^ 'formatTestByte' - -> Date -- ^ 'formatTestDate' - -> Text -- ^ 'formatTestPassword' - -> FormatTest -mkFormatTest formatTestNumber formatTestByte formatTestDate formatTestPassword = - FormatTest - { formatTestInteger = Nothing - , formatTestInt32 = Nothing - , formatTestInt64 = Nothing - , formatTestNumber - , formatTestFloat = Nothing - , formatTestDouble = Nothing - , formatTestString = Nothing - , formatTestByte - , formatTestBinary = Nothing - , formatTestDate - , formatTestDateTime = Nothing - , formatTestUuid = Nothing - , formatTestPassword - } - --- ** HasOnlyReadOnly --- | HasOnlyReadOnly -data HasOnlyReadOnly = HasOnlyReadOnly - { hasOnlyReadOnlyBar :: !(Maybe Text) -- ^ "bar" - , hasOnlyReadOnlyFoo :: !(Maybe Text) -- ^ "foo" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON HasOnlyReadOnly -instance A.FromJSON HasOnlyReadOnly where - parseJSON = A.withObject "HasOnlyReadOnly" $ \o -> - HasOnlyReadOnly - <$> (o .:? "bar") - <*> (o .:? "foo") - --- | ToJSON HasOnlyReadOnly -instance A.ToJSON HasOnlyReadOnly where - toJSON HasOnlyReadOnly {..} = - _omitNulls - [ "bar" .= hasOnlyReadOnlyBar - , "foo" .= hasOnlyReadOnlyFoo - ] - - --- | Construct a value of type 'HasOnlyReadOnly' (by applying it's required fields, if any) -mkHasOnlyReadOnly - :: HasOnlyReadOnly -mkHasOnlyReadOnly = - HasOnlyReadOnly - { hasOnlyReadOnlyBar = Nothing - , hasOnlyReadOnlyFoo = Nothing - } - --- ** MapTest --- | MapTest -data MapTest = MapTest - { mapTestMapMapOfString :: !(Maybe (Map.Map String (Map.Map String Text))) -- ^ "map_map_of_string" - , mapTestMapOfEnumString :: !(Maybe (Map.Map String E'Inner)) -- ^ "map_of_enum_string" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON MapTest -instance A.FromJSON MapTest where - parseJSON = A.withObject "MapTest" $ \o -> - MapTest - <$> (o .:? "map_map_of_string") - <*> (o .:? "map_of_enum_string") - --- | ToJSON MapTest -instance A.ToJSON MapTest where - toJSON MapTest {..} = - _omitNulls - [ "map_map_of_string" .= mapTestMapMapOfString - , "map_of_enum_string" .= mapTestMapOfEnumString - ] - - --- | Construct a value of type 'MapTest' (by applying it's required fields, if any) -mkMapTest - :: MapTest -mkMapTest = - MapTest - { mapTestMapMapOfString = Nothing - , mapTestMapOfEnumString = Nothing - } - --- ** MixedPropertiesAndAdditionalPropertiesClass --- | MixedPropertiesAndAdditionalPropertiesClass -data MixedPropertiesAndAdditionalPropertiesClass = MixedPropertiesAndAdditionalPropertiesClass - { mixedPropertiesAndAdditionalPropertiesClassUuid :: !(Maybe Text) -- ^ "uuid" - , mixedPropertiesAndAdditionalPropertiesClassDateTime :: !(Maybe DateTime) -- ^ "dateTime" - , mixedPropertiesAndAdditionalPropertiesClassMap :: !(Maybe (Map.Map String Animal)) -- ^ "map" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON MixedPropertiesAndAdditionalPropertiesClass -instance A.FromJSON MixedPropertiesAndAdditionalPropertiesClass where - parseJSON = A.withObject "MixedPropertiesAndAdditionalPropertiesClass" $ \o -> - MixedPropertiesAndAdditionalPropertiesClass - <$> (o .:? "uuid") - <*> (o .:? "dateTime") - <*> (o .:? "map") - --- | ToJSON MixedPropertiesAndAdditionalPropertiesClass -instance A.ToJSON MixedPropertiesAndAdditionalPropertiesClass where - toJSON MixedPropertiesAndAdditionalPropertiesClass {..} = - _omitNulls - [ "uuid" .= mixedPropertiesAndAdditionalPropertiesClassUuid - , "dateTime" .= mixedPropertiesAndAdditionalPropertiesClassDateTime - , "map" .= mixedPropertiesAndAdditionalPropertiesClassMap - ] - - --- | Construct a value of type 'MixedPropertiesAndAdditionalPropertiesClass' (by applying it's required fields, if any) -mkMixedPropertiesAndAdditionalPropertiesClass - :: MixedPropertiesAndAdditionalPropertiesClass -mkMixedPropertiesAndAdditionalPropertiesClass = - MixedPropertiesAndAdditionalPropertiesClass - { mixedPropertiesAndAdditionalPropertiesClassUuid = Nothing - , mixedPropertiesAndAdditionalPropertiesClassDateTime = Nothing - , mixedPropertiesAndAdditionalPropertiesClassMap = Nothing - } - --- ** Model200Response --- | Model200Response --- Model for testing model name starting with number -data Model200Response = Model200Response - { model200ResponseName :: !(Maybe Int) -- ^ "name" - , model200ResponseClass :: !(Maybe Text) -- ^ "class" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Model200Response -instance A.FromJSON Model200Response where - parseJSON = A.withObject "Model200Response" $ \o -> - Model200Response - <$> (o .:? "name") - <*> (o .:? "class") - --- | ToJSON Model200Response -instance A.ToJSON Model200Response where - toJSON Model200Response {..} = - _omitNulls - [ "name" .= model200ResponseName - , "class" .= model200ResponseClass - ] - - --- | Construct a value of type 'Model200Response' (by applying it's required fields, if any) -mkModel200Response - :: Model200Response -mkModel200Response = - Model200Response - { model200ResponseName = Nothing - , model200ResponseClass = Nothing - } - --- ** ModelList --- | ModelList -data ModelList = ModelList - { modelList123list :: !(Maybe Text) -- ^ "123-list" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ModelList -instance A.FromJSON ModelList where - parseJSON = A.withObject "ModelList" $ \o -> - ModelList - <$> (o .:? "123-list") - --- | ToJSON ModelList -instance A.ToJSON ModelList where - toJSON ModelList {..} = - _omitNulls - [ "123-list" .= modelList123list - ] - - --- | Construct a value of type 'ModelList' (by applying it's required fields, if any) -mkModelList - :: ModelList -mkModelList = - ModelList - { modelList123list = Nothing - } - --- ** ModelReturn --- | ModelReturn --- Model for testing reserved words -data ModelReturn = ModelReturn - { modelReturnReturn :: !(Maybe Int) -- ^ "return" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ModelReturn -instance A.FromJSON ModelReturn where - parseJSON = A.withObject "ModelReturn" $ \o -> - ModelReturn - <$> (o .:? "return") - --- | ToJSON ModelReturn -instance A.ToJSON ModelReturn where - toJSON ModelReturn {..} = - _omitNulls - [ "return" .= modelReturnReturn - ] - - --- | Construct a value of type 'ModelReturn' (by applying it's required fields, if any) -mkModelReturn - :: ModelReturn -mkModelReturn = - ModelReturn - { modelReturnReturn = Nothing - } - --- ** Name --- | Name --- Model for testing model name same as property name -data Name = Name - { nameName :: !(Int) -- ^ /Required/ "name" - , nameSnakeCase :: !(Maybe Int) -- ^ "snake_case" - , nameProperty :: !(Maybe Text) -- ^ "property" - , name123number :: !(Maybe Int) -- ^ "123Number" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Name -instance A.FromJSON Name where - parseJSON = A.withObject "Name" $ \o -> - Name - <$> (o .: "name") - <*> (o .:? "snake_case") - <*> (o .:? "property") - <*> (o .:? "123Number") - --- | ToJSON Name -instance A.ToJSON Name where - toJSON Name {..} = - _omitNulls - [ "name" .= nameName - , "snake_case" .= nameSnakeCase - , "property" .= nameProperty - , "123Number" .= name123number - ] - - --- | Construct a value of type 'Name' (by applying it's required fields, if any) -mkName - :: Int -- ^ 'nameName' - -> Name -mkName nameName = - Name - { nameName - , nameSnakeCase = Nothing - , nameProperty = Nothing - , name123number = Nothing - } - --- ** NumberOnly --- | NumberOnly -data NumberOnly = NumberOnly - { numberOnlyJustNumber :: !(Maybe Double) -- ^ "JustNumber" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON NumberOnly -instance A.FromJSON NumberOnly where - parseJSON = A.withObject "NumberOnly" $ \o -> - NumberOnly - <$> (o .:? "JustNumber") - --- | ToJSON NumberOnly -instance A.ToJSON NumberOnly where - toJSON NumberOnly {..} = - _omitNulls - [ "JustNumber" .= numberOnlyJustNumber - ] - - --- | Construct a value of type 'NumberOnly' (by applying it's required fields, if any) -mkNumberOnly - :: NumberOnly -mkNumberOnly = - NumberOnly - { numberOnlyJustNumber = Nothing - } - --- ** Order --- | Order -data Order = Order - { orderId :: !(Maybe Integer) -- ^ "id" - , orderPetId :: !(Maybe Integer) -- ^ "petId" - , orderQuantity :: !(Maybe Int) -- ^ "quantity" - , orderShipDate :: !(Maybe DateTime) -- ^ "shipDate" - , orderStatus :: !(Maybe E'Status) -- ^ "status" - Order Status - , orderComplete :: !(Maybe Bool) -- ^ "complete" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Order -instance A.FromJSON Order where - parseJSON = A.withObject "Order" $ \o -> - Order - <$> (o .:? "id") - <*> (o .:? "petId") - <*> (o .:? "quantity") - <*> (o .:? "shipDate") - <*> (o .:? "status") - <*> (o .:? "complete") - --- | ToJSON Order -instance A.ToJSON Order where - toJSON Order {..} = - _omitNulls - [ "id" .= orderId - , "petId" .= orderPetId - , "quantity" .= orderQuantity - , "shipDate" .= orderShipDate - , "status" .= orderStatus - , "complete" .= orderComplete - ] - - --- | Construct a value of type 'Order' (by applying it's required fields, if any) -mkOrder - :: Order -mkOrder = - Order - { orderId = Nothing - , orderPetId = Nothing - , orderQuantity = Nothing - , orderShipDate = Nothing - , orderStatus = Nothing - , orderComplete = Nothing - } - --- ** OuterComposite --- | OuterComposite -data OuterComposite = OuterComposite - { outerCompositeMyNumber :: !(Maybe Double) -- ^ "my_number" - , outerCompositeMyString :: !(Maybe Text) -- ^ "my_string" - , outerCompositeMyBoolean :: !(Maybe Bool) -- ^ "my_boolean" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON OuterComposite -instance A.FromJSON OuterComposite where - parseJSON = A.withObject "OuterComposite" $ \o -> - OuterComposite - <$> (o .:? "my_number") - <*> (o .:? "my_string") - <*> (o .:? "my_boolean") - --- | ToJSON OuterComposite -instance A.ToJSON OuterComposite where - toJSON OuterComposite {..} = - _omitNulls - [ "my_number" .= outerCompositeMyNumber - , "my_string" .= outerCompositeMyString - , "my_boolean" .= outerCompositeMyBoolean - ] - - --- | Construct a value of type 'OuterComposite' (by applying it's required fields, if any) -mkOuterComposite - :: OuterComposite -mkOuterComposite = - OuterComposite - { outerCompositeMyNumber = Nothing - , outerCompositeMyString = Nothing - , outerCompositeMyBoolean = Nothing - } - --- ** Pet --- | Pet -data Pet = Pet - { petId :: !(Maybe Integer) -- ^ "id" - , petCategory :: !(Maybe Category) -- ^ "category" - , petName :: !(Text) -- ^ /Required/ "name" - , petPhotoUrls :: !([Text]) -- ^ /Required/ "photoUrls" - , petTags :: !(Maybe [Tag]) -- ^ "tags" - , petStatus :: !(Maybe E'Status2) -- ^ "status" - pet status in the store - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Pet -instance A.FromJSON Pet where - parseJSON = A.withObject "Pet" $ \o -> - Pet - <$> (o .:? "id") - <*> (o .:? "category") - <*> (o .: "name") - <*> (o .: "photoUrls") - <*> (o .:? "tags") - <*> (o .:? "status") - --- | ToJSON Pet -instance A.ToJSON Pet where - toJSON Pet {..} = - _omitNulls - [ "id" .= petId - , "category" .= petCategory - , "name" .= petName - , "photoUrls" .= petPhotoUrls - , "tags" .= petTags - , "status" .= petStatus - ] - - --- | Construct a value of type 'Pet' (by applying it's required fields, if any) -mkPet - :: Text -- ^ 'petName' - -> [Text] -- ^ 'petPhotoUrls' - -> Pet -mkPet petName petPhotoUrls = - Pet - { petId = Nothing - , petCategory = Nothing - , petName - , petPhotoUrls - , petTags = Nothing - , petStatus = Nothing - } - --- ** ReadOnlyFirst --- | ReadOnlyFirst -data ReadOnlyFirst = ReadOnlyFirst - { readOnlyFirstBar :: !(Maybe Text) -- ^ "bar" - , readOnlyFirstBaz :: !(Maybe Text) -- ^ "baz" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ReadOnlyFirst -instance A.FromJSON ReadOnlyFirst where - parseJSON = A.withObject "ReadOnlyFirst" $ \o -> - ReadOnlyFirst - <$> (o .:? "bar") - <*> (o .:? "baz") - --- | ToJSON ReadOnlyFirst -instance A.ToJSON ReadOnlyFirst where - toJSON ReadOnlyFirst {..} = - _omitNulls - [ "bar" .= readOnlyFirstBar - , "baz" .= readOnlyFirstBaz - ] - - --- | Construct a value of type 'ReadOnlyFirst' (by applying it's required fields, if any) -mkReadOnlyFirst - :: ReadOnlyFirst -mkReadOnlyFirst = - ReadOnlyFirst - { readOnlyFirstBar = Nothing - , readOnlyFirstBaz = Nothing - } - --- ** SpecialModelName --- | SpecialModelName -data SpecialModelName = SpecialModelName - { specialModelNameSpecialPropertyName :: !(Maybe Integer) -- ^ "$special[property.name]" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON SpecialModelName -instance A.FromJSON SpecialModelName where - parseJSON = A.withObject "SpecialModelName" $ \o -> - SpecialModelName - <$> (o .:? "$special[property.name]") - --- | ToJSON SpecialModelName -instance A.ToJSON SpecialModelName where - toJSON SpecialModelName {..} = - _omitNulls - [ "$special[property.name]" .= specialModelNameSpecialPropertyName - ] - - --- | Construct a value of type 'SpecialModelName' (by applying it's required fields, if any) -mkSpecialModelName - :: SpecialModelName -mkSpecialModelName = - SpecialModelName - { specialModelNameSpecialPropertyName = Nothing - } - --- ** Tag --- | Tag -data Tag = Tag - { tagId :: !(Maybe Integer) -- ^ "id" - , tagName :: !(Maybe Text) -- ^ "name" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON Tag -instance A.FromJSON Tag where - parseJSON = A.withObject "Tag" $ \o -> - Tag - <$> (o .:? "id") - <*> (o .:? "name") - --- | ToJSON Tag -instance A.ToJSON Tag where - toJSON Tag {..} = - _omitNulls - [ "id" .= tagId - , "name" .= tagName - ] - - --- | Construct a value of type 'Tag' (by applying it's required fields, if any) -mkTag - :: Tag -mkTag = - Tag - { tagId = Nothing - , tagName = Nothing - } - --- ** User --- | User -data User = User - { userId :: !(Maybe Integer) -- ^ "id" - , userUsername :: !(Maybe Text) -- ^ "username" - , userFirstName :: !(Maybe Text) -- ^ "firstName" - , userLastName :: !(Maybe Text) -- ^ "lastName" - , userEmail :: !(Maybe Text) -- ^ "email" - , userPassword :: !(Maybe Text) -- ^ "password" - , userPhone :: !(Maybe Text) -- ^ "phone" - , userUserStatus :: !(Maybe Int) -- ^ "userStatus" - User Status - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON User -instance A.FromJSON User where - parseJSON = A.withObject "User" $ \o -> - User - <$> (o .:? "id") - <*> (o .:? "username") - <*> (o .:? "firstName") - <*> (o .:? "lastName") - <*> (o .:? "email") - <*> (o .:? "password") - <*> (o .:? "phone") - <*> (o .:? "userStatus") - --- | ToJSON User -instance A.ToJSON User where - toJSON User {..} = - _omitNulls - [ "id" .= userId - , "username" .= userUsername - , "firstName" .= userFirstName - , "lastName" .= userLastName - , "email" .= userEmail - , "password" .= userPassword - , "phone" .= userPhone - , "userStatus" .= userUserStatus - ] - - --- | Construct a value of type 'User' (by applying it's required fields, if any) -mkUser - :: User -mkUser = - User - { userId = Nothing - , userUsername = Nothing - , userFirstName = Nothing - , userLastName = Nothing - , userEmail = Nothing - , userPassword = Nothing - , userPhone = Nothing - , userUserStatus = Nothing - } - - --- * Enums - - --- ** E'ArrayEnum - --- | Enum of 'Text' -data E'ArrayEnum - = E'ArrayEnum'Fish -- ^ @"fish"@ - | E'ArrayEnum'Crab -- ^ @"crab"@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'ArrayEnum where toJSON = A.toJSON . fromE'ArrayEnum -instance A.FromJSON E'ArrayEnum where parseJSON o = P.either P.fail (pure . P.id) . toE'ArrayEnum =<< A.parseJSON o -instance WH.ToHttpApiData E'ArrayEnum where toQueryParam = WH.toQueryParam . fromE'ArrayEnum -instance WH.FromHttpApiData E'ArrayEnum where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'ArrayEnum -instance MimeRender MimeMultipartFormData E'ArrayEnum where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'ArrayEnum' enum -fromE'ArrayEnum :: E'ArrayEnum -> Text -fromE'ArrayEnum = \case - E'ArrayEnum'Fish -> "fish" - E'ArrayEnum'Crab -> "crab" - --- | parse 'E'ArrayEnum' enum -toE'ArrayEnum :: Text -> P.Either String E'ArrayEnum -toE'ArrayEnum = \case - "fish" -> P.Right E'ArrayEnum'Fish - "crab" -> P.Right E'ArrayEnum'Crab - s -> P.Left $ "toE'ArrayEnum: enum parse failure: " P.++ P.show s - - --- ** E'EnumFormString - --- | Enum of 'Text' . --- Form parameter enum test (string) -data E'EnumFormString - = E'EnumFormString'_abc -- ^ @"_abc"@ - | E'EnumFormString'_efg -- ^ @"-efg"@ - | E'EnumFormString'_xyz -- ^ @"(xyz)"@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'EnumFormString where toJSON = A.toJSON . fromE'EnumFormString -instance A.FromJSON E'EnumFormString where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumFormString =<< A.parseJSON o -instance WH.ToHttpApiData E'EnumFormString where toQueryParam = WH.toQueryParam . fromE'EnumFormString -instance WH.FromHttpApiData E'EnumFormString where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumFormString -instance MimeRender MimeMultipartFormData E'EnumFormString where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'EnumFormString' enum -fromE'EnumFormString :: E'EnumFormString -> Text -fromE'EnumFormString = \case - E'EnumFormString'_abc -> "_abc" - E'EnumFormString'_efg -> "-efg" - E'EnumFormString'_xyz -> "(xyz)" - --- | parse 'E'EnumFormString' enum -toE'EnumFormString :: Text -> P.Either String E'EnumFormString -toE'EnumFormString = \case - "_abc" -> P.Right E'EnumFormString'_abc - "-efg" -> P.Right E'EnumFormString'_efg - "(xyz)" -> P.Right E'EnumFormString'_xyz - s -> P.Left $ "toE'EnumFormString: enum parse failure: " P.++ P.show s - - --- ** E'EnumFormStringArray - --- | Enum of 'Text' -data E'EnumFormStringArray - = E'EnumFormStringArray'GreaterThan -- ^ @">"@ - | E'EnumFormStringArray'Dollar -- ^ @"$"@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'EnumFormStringArray where toJSON = A.toJSON . fromE'EnumFormStringArray -instance A.FromJSON E'EnumFormStringArray where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumFormStringArray =<< A.parseJSON o -instance WH.ToHttpApiData E'EnumFormStringArray where toQueryParam = WH.toQueryParam . fromE'EnumFormStringArray -instance WH.FromHttpApiData E'EnumFormStringArray where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumFormStringArray -instance MimeRender MimeMultipartFormData E'EnumFormStringArray where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'EnumFormStringArray' enum -fromE'EnumFormStringArray :: E'EnumFormStringArray -> Text -fromE'EnumFormStringArray = \case - E'EnumFormStringArray'GreaterThan -> ">" - E'EnumFormStringArray'Dollar -> "$" - --- | parse 'E'EnumFormStringArray' enum -toE'EnumFormStringArray :: Text -> P.Either String E'EnumFormStringArray -toE'EnumFormStringArray = \case - ">" -> P.Right E'EnumFormStringArray'GreaterThan - "$" -> P.Right E'EnumFormStringArray'Dollar - s -> P.Left $ "toE'EnumFormStringArray: enum parse failure: " P.++ P.show s - - --- ** E'EnumInteger - --- | Enum of 'Int' -data E'EnumInteger - = E'EnumInteger'Num1 -- ^ @1@ - | E'EnumInteger'NumMinus_1 -- ^ @-1@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'EnumInteger where toJSON = A.toJSON . fromE'EnumInteger -instance A.FromJSON E'EnumInteger where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumInteger =<< A.parseJSON o -instance WH.ToHttpApiData E'EnumInteger where toQueryParam = WH.toQueryParam . fromE'EnumInteger -instance WH.FromHttpApiData E'EnumInteger where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumInteger -instance MimeRender MimeMultipartFormData E'EnumInteger where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'EnumInteger' enum -fromE'EnumInteger :: E'EnumInteger -> Int -fromE'EnumInteger = \case - E'EnumInteger'Num1 -> 1 - E'EnumInteger'NumMinus_1 -> -1 - --- | parse 'E'EnumInteger' enum -toE'EnumInteger :: Int -> P.Either String E'EnumInteger -toE'EnumInteger = \case - 1 -> P.Right E'EnumInteger'Num1 - -1 -> P.Right E'EnumInteger'NumMinus_1 - s -> P.Left $ "toE'EnumInteger: enum parse failure: " P.++ P.show s - - --- ** E'EnumNumber - --- | Enum of 'Double' -data E'EnumNumber - = E'EnumNumber'Num1_Dot_1 -- ^ @1.1@ - | E'EnumNumber'NumMinus_1_Dot_2 -- ^ @-1.2@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'EnumNumber where toJSON = A.toJSON . fromE'EnumNumber -instance A.FromJSON E'EnumNumber where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumNumber =<< A.parseJSON o -instance WH.ToHttpApiData E'EnumNumber where toQueryParam = WH.toQueryParam . fromE'EnumNumber -instance WH.FromHttpApiData E'EnumNumber where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumNumber -instance MimeRender MimeMultipartFormData E'EnumNumber where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'EnumNumber' enum -fromE'EnumNumber :: E'EnumNumber -> Double -fromE'EnumNumber = \case - E'EnumNumber'Num1_Dot_1 -> 1.1 - E'EnumNumber'NumMinus_1_Dot_2 -> -1.2 - --- | parse 'E'EnumNumber' enum -toE'EnumNumber :: Double -> P.Either String E'EnumNumber -toE'EnumNumber = \case - 1.1 -> P.Right E'EnumNumber'Num1_Dot_1 - -1.2 -> P.Right E'EnumNumber'NumMinus_1_Dot_2 - s -> P.Left $ "toE'EnumNumber: enum parse failure: " P.++ P.show s - - --- ** E'EnumQueryInteger - --- | Enum of 'Int' -data E'EnumQueryInteger - = E'EnumQueryInteger'Num1 -- ^ @1@ - | E'EnumQueryInteger'NumMinus_2 -- ^ @-2@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'EnumQueryInteger where toJSON = A.toJSON . fromE'EnumQueryInteger -instance A.FromJSON E'EnumQueryInteger where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumQueryInteger =<< A.parseJSON o -instance WH.ToHttpApiData E'EnumQueryInteger where toQueryParam = WH.toQueryParam . fromE'EnumQueryInteger -instance WH.FromHttpApiData E'EnumQueryInteger where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumQueryInteger -instance MimeRender MimeMultipartFormData E'EnumQueryInteger where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'EnumQueryInteger' enum -fromE'EnumQueryInteger :: E'EnumQueryInteger -> Int -fromE'EnumQueryInteger = \case - E'EnumQueryInteger'Num1 -> 1 - E'EnumQueryInteger'NumMinus_2 -> -2 - --- | parse 'E'EnumQueryInteger' enum -toE'EnumQueryInteger :: Int -> P.Either String E'EnumQueryInteger -toE'EnumQueryInteger = \case - 1 -> P.Right E'EnumQueryInteger'Num1 - -2 -> P.Right E'EnumQueryInteger'NumMinus_2 - s -> P.Left $ "toE'EnumQueryInteger: enum parse failure: " P.++ P.show s - - --- ** E'EnumString - --- | Enum of 'Text' -data E'EnumString - = E'EnumString'UPPER -- ^ @"UPPER"@ - | E'EnumString'Lower -- ^ @"lower"@ - | E'EnumString'Empty -- ^ @""@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'EnumString where toJSON = A.toJSON . fromE'EnumString -instance A.FromJSON E'EnumString where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumString =<< A.parseJSON o -instance WH.ToHttpApiData E'EnumString where toQueryParam = WH.toQueryParam . fromE'EnumString -instance WH.FromHttpApiData E'EnumString where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumString -instance MimeRender MimeMultipartFormData E'EnumString where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'EnumString' enum -fromE'EnumString :: E'EnumString -> Text -fromE'EnumString = \case - E'EnumString'UPPER -> "UPPER" - E'EnumString'Lower -> "lower" - E'EnumString'Empty -> "" - --- | parse 'E'EnumString' enum -toE'EnumString :: Text -> P.Either String E'EnumString -toE'EnumString = \case - "UPPER" -> P.Right E'EnumString'UPPER - "lower" -> P.Right E'EnumString'Lower - "" -> P.Right E'EnumString'Empty - s -> P.Left $ "toE'EnumString: enum parse failure: " P.++ P.show s - - --- ** E'Inner - --- | Enum of 'Text' -data E'Inner - = E'Inner'UPPER -- ^ @"UPPER"@ - | E'Inner'Lower -- ^ @"lower"@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'Inner where toJSON = A.toJSON . fromE'Inner -instance A.FromJSON E'Inner where parseJSON o = P.either P.fail (pure . P.id) . toE'Inner =<< A.parseJSON o -instance WH.ToHttpApiData E'Inner where toQueryParam = WH.toQueryParam . fromE'Inner -instance WH.FromHttpApiData E'Inner where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'Inner -instance MimeRender MimeMultipartFormData E'Inner where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'Inner' enum -fromE'Inner :: E'Inner -> Text -fromE'Inner = \case - E'Inner'UPPER -> "UPPER" - E'Inner'Lower -> "lower" - --- | parse 'E'Inner' enum -toE'Inner :: Text -> P.Either String E'Inner -toE'Inner = \case - "UPPER" -> P.Right E'Inner'UPPER - "lower" -> P.Right E'Inner'Lower - s -> P.Left $ "toE'Inner: enum parse failure: " P.++ P.show s - - --- ** E'JustSymbol - --- | Enum of 'Text' -data E'JustSymbol - = E'JustSymbol'Greater_Than_Or_Equal_To -- ^ @">="@ - | E'JustSymbol'Dollar -- ^ @"$"@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'JustSymbol where toJSON = A.toJSON . fromE'JustSymbol -instance A.FromJSON E'JustSymbol where parseJSON o = P.either P.fail (pure . P.id) . toE'JustSymbol =<< A.parseJSON o -instance WH.ToHttpApiData E'JustSymbol where toQueryParam = WH.toQueryParam . fromE'JustSymbol -instance WH.FromHttpApiData E'JustSymbol where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'JustSymbol -instance MimeRender MimeMultipartFormData E'JustSymbol where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'JustSymbol' enum -fromE'JustSymbol :: E'JustSymbol -> Text -fromE'JustSymbol = \case - E'JustSymbol'Greater_Than_Or_Equal_To -> ">=" - E'JustSymbol'Dollar -> "$" - --- | parse 'E'JustSymbol' enum -toE'JustSymbol :: Text -> P.Either String E'JustSymbol -toE'JustSymbol = \case - ">=" -> P.Right E'JustSymbol'Greater_Than_Or_Equal_To - "$" -> P.Right E'JustSymbol'Dollar - s -> P.Left $ "toE'JustSymbol: enum parse failure: " P.++ P.show s - - --- ** E'Status - --- | Enum of 'Text' . --- Order Status -data E'Status - = E'Status'Placed -- ^ @"placed"@ - | E'Status'Approved -- ^ @"approved"@ - | E'Status'Delivered -- ^ @"delivered"@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'Status where toJSON = A.toJSON . fromE'Status -instance A.FromJSON E'Status where parseJSON o = P.either P.fail (pure . P.id) . toE'Status =<< A.parseJSON o -instance WH.ToHttpApiData E'Status where toQueryParam = WH.toQueryParam . fromE'Status -instance WH.FromHttpApiData E'Status where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'Status -instance MimeRender MimeMultipartFormData E'Status where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'Status' enum -fromE'Status :: E'Status -> Text -fromE'Status = \case - E'Status'Placed -> "placed" - E'Status'Approved -> "approved" - E'Status'Delivered -> "delivered" - --- | parse 'E'Status' enum -toE'Status :: Text -> P.Either String E'Status -toE'Status = \case - "placed" -> P.Right E'Status'Placed - "approved" -> P.Right E'Status'Approved - "delivered" -> P.Right E'Status'Delivered - s -> P.Left $ "toE'Status: enum parse failure: " P.++ P.show s - - --- ** E'Status2 - --- | Enum of 'Text' . --- pet status in the store -data E'Status2 - = E'Status2'Available -- ^ @"available"@ - | E'Status2'Pending -- ^ @"pending"@ - | E'Status2'Sold -- ^ @"sold"@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON E'Status2 where toJSON = A.toJSON . fromE'Status2 -instance A.FromJSON E'Status2 where parseJSON o = P.either P.fail (pure . P.id) . toE'Status2 =<< A.parseJSON o -instance WH.ToHttpApiData E'Status2 where toQueryParam = WH.toQueryParam . fromE'Status2 -instance WH.FromHttpApiData E'Status2 where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'Status2 -instance MimeRender MimeMultipartFormData E'Status2 where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'E'Status2' enum -fromE'Status2 :: E'Status2 -> Text -fromE'Status2 = \case - E'Status2'Available -> "available" - E'Status2'Pending -> "pending" - E'Status2'Sold -> "sold" - --- | parse 'E'Status2' enum -toE'Status2 :: Text -> P.Either String E'Status2 -toE'Status2 = \case - "available" -> P.Right E'Status2'Available - "pending" -> P.Right E'Status2'Pending - "sold" -> P.Right E'Status2'Sold - s -> P.Left $ "toE'Status2: enum parse failure: " P.++ P.show s - - --- ** EnumClass - --- | Enum of 'Text' -data EnumClass - = EnumClass'_abc -- ^ @"_abc"@ - | EnumClass'_efg -- ^ @"-efg"@ - | EnumClass'_xyz -- ^ @"(xyz)"@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON EnumClass where toJSON = A.toJSON . fromEnumClass -instance A.FromJSON EnumClass where parseJSON o = P.either P.fail (pure . P.id) . toEnumClass =<< A.parseJSON o -instance WH.ToHttpApiData EnumClass where toQueryParam = WH.toQueryParam . fromEnumClass -instance WH.FromHttpApiData EnumClass where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toEnumClass -instance MimeRender MimeMultipartFormData EnumClass where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'EnumClass' enum -fromEnumClass :: EnumClass -> Text -fromEnumClass = \case - EnumClass'_abc -> "_abc" - EnumClass'_efg -> "-efg" - EnumClass'_xyz -> "(xyz)" - --- | parse 'EnumClass' enum -toEnumClass :: Text -> P.Either String EnumClass -toEnumClass = \case - "_abc" -> P.Right EnumClass'_abc - "-efg" -> P.Right EnumClass'_efg - "(xyz)" -> P.Right EnumClass'_xyz - s -> P.Left $ "toEnumClass: enum parse failure: " P.++ P.show s - - --- ** OuterEnum - --- | Enum of 'Text' -data OuterEnum - = OuterEnum'Placed -- ^ @"placed"@ - | OuterEnum'Approved -- ^ @"approved"@ - | OuterEnum'Delivered -- ^ @"delivered"@ - deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum) - -instance A.ToJSON OuterEnum where toJSON = A.toJSON . fromOuterEnum -instance A.FromJSON OuterEnum where parseJSON o = P.either P.fail (pure . P.id) . toOuterEnum =<< A.parseJSON o -instance WH.ToHttpApiData OuterEnum where toQueryParam = WH.toQueryParam . fromOuterEnum -instance WH.FromHttpApiData OuterEnum where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toOuterEnum -instance MimeRender MimeMultipartFormData OuterEnum where mimeRender _ = mimeRenderDefaultMultipartFormData - --- | unwrap 'OuterEnum' enum -fromOuterEnum :: OuterEnum -> Text -fromOuterEnum = \case - OuterEnum'Placed -> "placed" - OuterEnum'Approved -> "approved" - OuterEnum'Delivered -> "delivered" - --- | parse 'OuterEnum' enum -toOuterEnum :: Text -> P.Either String OuterEnum -toOuterEnum = \case - "placed" -> P.Right OuterEnum'Placed - "approved" -> P.Right OuterEnum'Approved - "delivered" -> P.Right OuterEnum'Delivered - s -> P.Left $ "toOuterEnum: enum parse failure: " P.++ P.show s - - --- * Auth Methods - --- ** AuthApiKeyApiKey -data AuthApiKeyApiKey = - AuthApiKeyApiKey Text -- ^ secret - deriving (P.Eq, P.Show, P.Typeable) - -instance AuthMethod AuthApiKeyApiKey where - applyAuthMethod _ a@(AuthApiKeyApiKey secret) req = - P.pure $ - if (P.typeOf a `P.elem` rAuthTypes req) - then req `setHeader` toHeader ("api_key", secret) - & L.over rAuthTypesL (P.filter (/= P.typeOf a)) - else req - --- ** AuthApiKeyApiKeyQuery -data AuthApiKeyApiKeyQuery = - AuthApiKeyApiKeyQuery Text -- ^ secret - deriving (P.Eq, P.Show, P.Typeable) - -instance AuthMethod AuthApiKeyApiKeyQuery where - applyAuthMethod _ a@(AuthApiKeyApiKeyQuery secret) req = - P.pure $ - if (P.typeOf a `P.elem` rAuthTypes req) - then req `setQuery` toQuery ("api_key_query", Just secret) - & L.over rAuthTypesL (P.filter (/= P.typeOf a)) - else req - --- ** AuthBasicHttpBasicTest -data AuthBasicHttpBasicTest = - AuthBasicHttpBasicTest B.ByteString B.ByteString -- ^ username password - deriving (P.Eq, P.Show, P.Typeable) - -instance AuthMethod AuthBasicHttpBasicTest where - applyAuthMethod _ a@(AuthBasicHttpBasicTest user pw) req = - P.pure $ - if (P.typeOf a `P.elem` rAuthTypes req) - then req `setHeader` toHeader ("Authorization", T.decodeUtf8 cred) - & L.over rAuthTypesL (P.filter (/= P.typeOf a)) - else req - where cred = BC.append "Basic " (B64.encode $ BC.concat [ user, ":", pw ]) - --- ** AuthOAuthPetstoreAuth -data AuthOAuthPetstoreAuth = - AuthOAuthPetstoreAuth Text -- ^ secret - deriving (P.Eq, P.Show, P.Typeable) - -instance AuthMethod AuthOAuthPetstoreAuth where - applyAuthMethod _ a@(AuthOAuthPetstoreAuth secret) req = - P.pure $ - if (P.typeOf a `P.elem` rAuthTypes req) - then req `setHeader` toHeader ("Authorization", "Bearer " <> secret) - & L.over rAuthTypesL (P.filter (/= P.typeOf a)) - else req - diff --git a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/ModelLens.hs b/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/ModelLens.hs deleted file mode 100644 index d75c5e100f7..00000000000 --- a/samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/ModelLens.hs +++ /dev/null @@ -1,630 +0,0 @@ -{- - Swagger Petstore - - This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\ - - OpenAPI Version: 3.0.0 - Swagger Petstore API version: 1.0.0 - Contact: apiteam@swagger.io - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : SwaggerPetstore.Lens --} - -{-# LANGUAGE KindSignatures #-} -{-# LANGUAGE NamedFieldPuns #-} -{-# LANGUAGE RankNTypes #-} -{-# LANGUAGE RecordWildCards #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module SwaggerPetstore.ModelLens where - -import qualified Data.Aeson as A -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Data, Typeable) -import qualified Data.Map as Map -import qualified Data.Set as Set -import qualified Data.Time as TI - -import Data.Text (Text) - -import Prelude (($), (.),(<$>),(<*>),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) -import qualified Prelude as P - -import SwaggerPetstore.Model -import SwaggerPetstore.Core - - --- * AdditionalPropertiesClass - --- | 'additionalPropertiesClassMapProperty' Lens -additionalPropertiesClassMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map.Map String Text)) -additionalPropertiesClassMapPropertyL f AdditionalPropertiesClass{..} = (\additionalPropertiesClassMapProperty -> AdditionalPropertiesClass { additionalPropertiesClassMapProperty, ..} ) <$> f additionalPropertiesClassMapProperty -{-# INLINE additionalPropertiesClassMapPropertyL #-} - --- | 'additionalPropertiesClassMapOfMapProperty' Lens -additionalPropertiesClassMapOfMapPropertyL :: Lens_' AdditionalPropertiesClass (Maybe (Map.Map String (Map.Map String Text))) -additionalPropertiesClassMapOfMapPropertyL f AdditionalPropertiesClass{..} = (\additionalPropertiesClassMapOfMapProperty -> AdditionalPropertiesClass { additionalPropertiesClassMapOfMapProperty, ..} ) <$> f additionalPropertiesClassMapOfMapProperty -{-# INLINE additionalPropertiesClassMapOfMapPropertyL #-} - - - --- * Animal - --- | 'animalClassName' Lens -animalClassNameL :: Lens_' Animal (Text) -animalClassNameL f Animal{..} = (\animalClassName -> Animal { animalClassName, ..} ) <$> f animalClassName -{-# INLINE animalClassNameL #-} - --- | 'animalColor' Lens -animalColorL :: Lens_' Animal (Maybe Text) -animalColorL f Animal{..} = (\animalColor -> Animal { animalColor, ..} ) <$> f animalColor -{-# INLINE animalColorL #-} - - - --- * AnimalFarm - - - --- * ApiResponse - --- | 'apiResponseCode' Lens -apiResponseCodeL :: Lens_' ApiResponse (Maybe Int) -apiResponseCodeL f ApiResponse{..} = (\apiResponseCode -> ApiResponse { apiResponseCode, ..} ) <$> f apiResponseCode -{-# INLINE apiResponseCodeL #-} - --- | 'apiResponseType' Lens -apiResponseTypeL :: Lens_' ApiResponse (Maybe Text) -apiResponseTypeL f ApiResponse{..} = (\apiResponseType -> ApiResponse { apiResponseType, ..} ) <$> f apiResponseType -{-# INLINE apiResponseTypeL #-} - --- | 'apiResponseMessage' Lens -apiResponseMessageL :: Lens_' ApiResponse (Maybe Text) -apiResponseMessageL f ApiResponse{..} = (\apiResponseMessage -> ApiResponse { apiResponseMessage, ..} ) <$> f apiResponseMessage -{-# INLINE apiResponseMessageL #-} - - - --- * ArrayOfArrayOfNumberOnly - --- | 'arrayOfArrayOfNumberOnlyArrayArrayNumber' Lens -arrayOfArrayOfNumberOnlyArrayArrayNumberL :: Lens_' ArrayOfArrayOfNumberOnly (Maybe [[Double]]) -arrayOfArrayOfNumberOnlyArrayArrayNumberL f ArrayOfArrayOfNumberOnly{..} = (\arrayOfArrayOfNumberOnlyArrayArrayNumber -> ArrayOfArrayOfNumberOnly { arrayOfArrayOfNumberOnlyArrayArrayNumber, ..} ) <$> f arrayOfArrayOfNumberOnlyArrayArrayNumber -{-# INLINE arrayOfArrayOfNumberOnlyArrayArrayNumberL #-} - - - --- * ArrayOfNumberOnly - --- | 'arrayOfNumberOnlyArrayNumber' Lens -arrayOfNumberOnlyArrayNumberL :: Lens_' ArrayOfNumberOnly (Maybe [Double]) -arrayOfNumberOnlyArrayNumberL f ArrayOfNumberOnly{..} = (\arrayOfNumberOnlyArrayNumber -> ArrayOfNumberOnly { arrayOfNumberOnlyArrayNumber, ..} ) <$> f arrayOfNumberOnlyArrayNumber -{-# INLINE arrayOfNumberOnlyArrayNumberL #-} - - - --- * ArrayTest - --- | 'arrayTestArrayOfString' Lens -arrayTestArrayOfStringL :: Lens_' ArrayTest (Maybe [Text]) -arrayTestArrayOfStringL f ArrayTest{..} = (\arrayTestArrayOfString -> ArrayTest { arrayTestArrayOfString, ..} ) <$> f arrayTestArrayOfString -{-# INLINE arrayTestArrayOfStringL #-} - --- | 'arrayTestArrayArrayOfInteger' Lens -arrayTestArrayArrayOfIntegerL :: Lens_' ArrayTest (Maybe [[Integer]]) -arrayTestArrayArrayOfIntegerL f ArrayTest{..} = (\arrayTestArrayArrayOfInteger -> ArrayTest { arrayTestArrayArrayOfInteger, ..} ) <$> f arrayTestArrayArrayOfInteger -{-# INLINE arrayTestArrayArrayOfIntegerL #-} - --- | 'arrayTestArrayArrayOfModel' Lens -arrayTestArrayArrayOfModelL :: Lens_' ArrayTest (Maybe [[ReadOnlyFirst]]) -arrayTestArrayArrayOfModelL f ArrayTest{..} = (\arrayTestArrayArrayOfModel -> ArrayTest { arrayTestArrayArrayOfModel, ..} ) <$> f arrayTestArrayArrayOfModel -{-# INLINE arrayTestArrayArrayOfModelL #-} - - - --- * Capitalization - --- | 'capitalizationSmallCamel' Lens -capitalizationSmallCamelL :: Lens_' Capitalization (Maybe Text) -capitalizationSmallCamelL f Capitalization{..} = (\capitalizationSmallCamel -> Capitalization { capitalizationSmallCamel, ..} ) <$> f capitalizationSmallCamel -{-# INLINE capitalizationSmallCamelL #-} - --- | 'capitalizationCapitalCamel' Lens -capitalizationCapitalCamelL :: Lens_' Capitalization (Maybe Text) -capitalizationCapitalCamelL f Capitalization{..} = (\capitalizationCapitalCamel -> Capitalization { capitalizationCapitalCamel, ..} ) <$> f capitalizationCapitalCamel -{-# INLINE capitalizationCapitalCamelL #-} - --- | 'capitalizationSmallSnake' Lens -capitalizationSmallSnakeL :: Lens_' Capitalization (Maybe Text) -capitalizationSmallSnakeL f Capitalization{..} = (\capitalizationSmallSnake -> Capitalization { capitalizationSmallSnake, ..} ) <$> f capitalizationSmallSnake -{-# INLINE capitalizationSmallSnakeL #-} - --- | 'capitalizationCapitalSnake' Lens -capitalizationCapitalSnakeL :: Lens_' Capitalization (Maybe Text) -capitalizationCapitalSnakeL f Capitalization{..} = (\capitalizationCapitalSnake -> Capitalization { capitalizationCapitalSnake, ..} ) <$> f capitalizationCapitalSnake -{-# INLINE capitalizationCapitalSnakeL #-} - --- | 'capitalizationScaEthFlowPoints' Lens -capitalizationScaEthFlowPointsL :: Lens_' Capitalization (Maybe Text) -capitalizationScaEthFlowPointsL f Capitalization{..} = (\capitalizationScaEthFlowPoints -> Capitalization { capitalizationScaEthFlowPoints, ..} ) <$> f capitalizationScaEthFlowPoints -{-# INLINE capitalizationScaEthFlowPointsL #-} - --- | 'capitalizationAttName' Lens -capitalizationAttNameL :: Lens_' Capitalization (Maybe Text) -capitalizationAttNameL f Capitalization{..} = (\capitalizationAttName -> Capitalization { capitalizationAttName, ..} ) <$> f capitalizationAttName -{-# INLINE capitalizationAttNameL #-} - - - --- * Cat - --- | 'catClassName' Lens -catClassNameL :: Lens_' Cat (Text) -catClassNameL f Cat{..} = (\catClassName -> Cat { catClassName, ..} ) <$> f catClassName -{-# INLINE catClassNameL #-} - --- | 'catColor' Lens -catColorL :: Lens_' Cat (Maybe Text) -catColorL f Cat{..} = (\catColor -> Cat { catColor, ..} ) <$> f catColor -{-# INLINE catColorL #-} - --- | 'catDeclawed' Lens -catDeclawedL :: Lens_' Cat (Maybe Bool) -catDeclawedL f Cat{..} = (\catDeclawed -> Cat { catDeclawed, ..} ) <$> f catDeclawed -{-# INLINE catDeclawedL #-} - - - --- * Category - --- | 'categoryId' Lens -categoryIdL :: Lens_' Category (Maybe Integer) -categoryIdL f Category{..} = (\categoryId -> Category { categoryId, ..} ) <$> f categoryId -{-# INLINE categoryIdL #-} - --- | 'categoryName' Lens -categoryNameL :: Lens_' Category (Maybe Text) -categoryNameL f Category{..} = (\categoryName -> Category { categoryName, ..} ) <$> f categoryName -{-# INLINE categoryNameL #-} - - - --- * ClassModel - --- | 'classModelClass' Lens -classModelClassL :: Lens_' ClassModel (Maybe Text) -classModelClassL f ClassModel{..} = (\classModelClass -> ClassModel { classModelClass, ..} ) <$> f classModelClass -{-# INLINE classModelClassL #-} - - - --- * Client - --- | 'clientClient' Lens -clientClientL :: Lens_' Client (Maybe Text) -clientClientL f Client{..} = (\clientClient -> Client { clientClient, ..} ) <$> f clientClient -{-# INLINE clientClientL #-} - - - --- * Dog - --- | 'dogClassName' Lens -dogClassNameL :: Lens_' Dog (Text) -dogClassNameL f Dog{..} = (\dogClassName -> Dog { dogClassName, ..} ) <$> f dogClassName -{-# INLINE dogClassNameL #-} - --- | 'dogColor' Lens -dogColorL :: Lens_' Dog (Maybe Text) -dogColorL f Dog{..} = (\dogColor -> Dog { dogColor, ..} ) <$> f dogColor -{-# INLINE dogColorL #-} - --- | 'dogBreed' Lens -dogBreedL :: Lens_' Dog (Maybe Text) -dogBreedL f Dog{..} = (\dogBreed -> Dog { dogBreed, ..} ) <$> f dogBreed -{-# INLINE dogBreedL #-} - - - --- * EnumArrays - --- | 'enumArraysJustSymbol' Lens -enumArraysJustSymbolL :: Lens_' EnumArrays (Maybe E'JustSymbol) -enumArraysJustSymbolL f EnumArrays{..} = (\enumArraysJustSymbol -> EnumArrays { enumArraysJustSymbol, ..} ) <$> f enumArraysJustSymbol -{-# INLINE enumArraysJustSymbolL #-} - --- | 'enumArraysArrayEnum' Lens -enumArraysArrayEnumL :: Lens_' EnumArrays (Maybe [E'ArrayEnum]) -enumArraysArrayEnumL f EnumArrays{..} = (\enumArraysArrayEnum -> EnumArrays { enumArraysArrayEnum, ..} ) <$> f enumArraysArrayEnum -{-# INLINE enumArraysArrayEnumL #-} - - - --- * EnumClass - - - --- * EnumTest - --- | 'enumTestEnumString' Lens -enumTestEnumStringL :: Lens_' EnumTest (Maybe E'EnumString) -enumTestEnumStringL f EnumTest{..} = (\enumTestEnumString -> EnumTest { enumTestEnumString, ..} ) <$> f enumTestEnumString -{-# INLINE enumTestEnumStringL #-} - --- | 'enumTestEnumStringRequired' Lens -enumTestEnumStringRequiredL :: Lens_' EnumTest (E'EnumString) -enumTestEnumStringRequiredL f EnumTest{..} = (\enumTestEnumStringRequired -> EnumTest { enumTestEnumStringRequired, ..} ) <$> f enumTestEnumStringRequired -{-# INLINE enumTestEnumStringRequiredL #-} - --- | 'enumTestEnumInteger' Lens -enumTestEnumIntegerL :: Lens_' EnumTest (Maybe E'EnumInteger) -enumTestEnumIntegerL f EnumTest{..} = (\enumTestEnumInteger -> EnumTest { enumTestEnumInteger, ..} ) <$> f enumTestEnumInteger -{-# INLINE enumTestEnumIntegerL #-} - --- | 'enumTestEnumNumber' Lens -enumTestEnumNumberL :: Lens_' EnumTest (Maybe E'EnumNumber) -enumTestEnumNumberL f EnumTest{..} = (\enumTestEnumNumber -> EnumTest { enumTestEnumNumber, ..} ) <$> f enumTestEnumNumber -{-# INLINE enumTestEnumNumberL #-} - --- | 'enumTestOuterEnum' Lens -enumTestOuterEnumL :: Lens_' EnumTest (Maybe OuterEnum) -enumTestOuterEnumL f EnumTest{..} = (\enumTestOuterEnum -> EnumTest { enumTestOuterEnum, ..} ) <$> f enumTestOuterEnum -{-# INLINE enumTestOuterEnumL #-} - - - --- * FormatTest - --- | 'formatTestInteger' Lens -formatTestIntegerL :: Lens_' FormatTest (Maybe Int) -formatTestIntegerL f FormatTest{..} = (\formatTestInteger -> FormatTest { formatTestInteger, ..} ) <$> f formatTestInteger -{-# INLINE formatTestIntegerL #-} - --- | 'formatTestInt32' Lens -formatTestInt32L :: Lens_' FormatTest (Maybe Int) -formatTestInt32L f FormatTest{..} = (\formatTestInt32 -> FormatTest { formatTestInt32, ..} ) <$> f formatTestInt32 -{-# INLINE formatTestInt32L #-} - --- | 'formatTestInt64' Lens -formatTestInt64L :: Lens_' FormatTest (Maybe Integer) -formatTestInt64L f FormatTest{..} = (\formatTestInt64 -> FormatTest { formatTestInt64, ..} ) <$> f formatTestInt64 -{-# INLINE formatTestInt64L #-} - --- | 'formatTestNumber' Lens -formatTestNumberL :: Lens_' FormatTest (Double) -formatTestNumberL f FormatTest{..} = (\formatTestNumber -> FormatTest { formatTestNumber, ..} ) <$> f formatTestNumber -{-# INLINE formatTestNumberL #-} - --- | 'formatTestFloat' Lens -formatTestFloatL :: Lens_' FormatTest (Maybe Float) -formatTestFloatL f FormatTest{..} = (\formatTestFloat -> FormatTest { formatTestFloat, ..} ) <$> f formatTestFloat -{-# INLINE formatTestFloatL #-} - --- | 'formatTestDouble' Lens -formatTestDoubleL :: Lens_' FormatTest (Maybe Double) -formatTestDoubleL f FormatTest{..} = (\formatTestDouble -> FormatTest { formatTestDouble, ..} ) <$> f formatTestDouble -{-# INLINE formatTestDoubleL #-} - --- | 'formatTestString' Lens -formatTestStringL :: Lens_' FormatTest (Maybe Text) -formatTestStringL f FormatTest{..} = (\formatTestString -> FormatTest { formatTestString, ..} ) <$> f formatTestString -{-# INLINE formatTestStringL #-} - --- | 'formatTestByte' Lens -formatTestByteL :: Lens_' FormatTest (ByteArray) -formatTestByteL f FormatTest{..} = (\formatTestByte -> FormatTest { formatTestByte, ..} ) <$> f formatTestByte -{-# INLINE formatTestByteL #-} - --- | 'formatTestBinary' Lens -formatTestBinaryL :: Lens_' FormatTest (Maybe FilePath) -formatTestBinaryL f FormatTest{..} = (\formatTestBinary -> FormatTest { formatTestBinary, ..} ) <$> f formatTestBinary -{-# INLINE formatTestBinaryL #-} - --- | 'formatTestDate' Lens -formatTestDateL :: Lens_' FormatTest (Date) -formatTestDateL f FormatTest{..} = (\formatTestDate -> FormatTest { formatTestDate, ..} ) <$> f formatTestDate -{-# INLINE formatTestDateL #-} - --- | 'formatTestDateTime' Lens -formatTestDateTimeL :: Lens_' FormatTest (Maybe DateTime) -formatTestDateTimeL f FormatTest{..} = (\formatTestDateTime -> FormatTest { formatTestDateTime, ..} ) <$> f formatTestDateTime -{-# INLINE formatTestDateTimeL #-} - --- | 'formatTestUuid' Lens -formatTestUuidL :: Lens_' FormatTest (Maybe Text) -formatTestUuidL f FormatTest{..} = (\formatTestUuid -> FormatTest { formatTestUuid, ..} ) <$> f formatTestUuid -{-# INLINE formatTestUuidL #-} - --- | 'formatTestPassword' Lens -formatTestPasswordL :: Lens_' FormatTest (Text) -formatTestPasswordL f FormatTest{..} = (\formatTestPassword -> FormatTest { formatTestPassword, ..} ) <$> f formatTestPassword -{-# INLINE formatTestPasswordL #-} - - - --- * HasOnlyReadOnly - --- | 'hasOnlyReadOnlyBar' Lens -hasOnlyReadOnlyBarL :: Lens_' HasOnlyReadOnly (Maybe Text) -hasOnlyReadOnlyBarL f HasOnlyReadOnly{..} = (\hasOnlyReadOnlyBar -> HasOnlyReadOnly { hasOnlyReadOnlyBar, ..} ) <$> f hasOnlyReadOnlyBar -{-# INLINE hasOnlyReadOnlyBarL #-} - --- | 'hasOnlyReadOnlyFoo' Lens -hasOnlyReadOnlyFooL :: Lens_' HasOnlyReadOnly (Maybe Text) -hasOnlyReadOnlyFooL f HasOnlyReadOnly{..} = (\hasOnlyReadOnlyFoo -> HasOnlyReadOnly { hasOnlyReadOnlyFoo, ..} ) <$> f hasOnlyReadOnlyFoo -{-# INLINE hasOnlyReadOnlyFooL #-} - - - --- * MapTest - --- | 'mapTestMapMapOfString' Lens -mapTestMapMapOfStringL :: Lens_' MapTest (Maybe (Map.Map String (Map.Map String Text))) -mapTestMapMapOfStringL f MapTest{..} = (\mapTestMapMapOfString -> MapTest { mapTestMapMapOfString, ..} ) <$> f mapTestMapMapOfString -{-# INLINE mapTestMapMapOfStringL #-} - --- | 'mapTestMapOfEnumString' Lens -mapTestMapOfEnumStringL :: Lens_' MapTest (Maybe (Map.Map String E'Inner)) -mapTestMapOfEnumStringL f MapTest{..} = (\mapTestMapOfEnumString -> MapTest { mapTestMapOfEnumString, ..} ) <$> f mapTestMapOfEnumString -{-# INLINE mapTestMapOfEnumStringL #-} - - - --- * MixedPropertiesAndAdditionalPropertiesClass - --- | 'mixedPropertiesAndAdditionalPropertiesClassUuid' Lens -mixedPropertiesAndAdditionalPropertiesClassUuidL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe Text) -mixedPropertiesAndAdditionalPropertiesClassUuidL f MixedPropertiesAndAdditionalPropertiesClass{..} = (\mixedPropertiesAndAdditionalPropertiesClassUuid -> MixedPropertiesAndAdditionalPropertiesClass { mixedPropertiesAndAdditionalPropertiesClassUuid, ..} ) <$> f mixedPropertiesAndAdditionalPropertiesClassUuid -{-# INLINE mixedPropertiesAndAdditionalPropertiesClassUuidL #-} - --- | 'mixedPropertiesAndAdditionalPropertiesClassDateTime' Lens -mixedPropertiesAndAdditionalPropertiesClassDateTimeL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe DateTime) -mixedPropertiesAndAdditionalPropertiesClassDateTimeL f MixedPropertiesAndAdditionalPropertiesClass{..} = (\mixedPropertiesAndAdditionalPropertiesClassDateTime -> MixedPropertiesAndAdditionalPropertiesClass { mixedPropertiesAndAdditionalPropertiesClassDateTime, ..} ) <$> f mixedPropertiesAndAdditionalPropertiesClassDateTime -{-# INLINE mixedPropertiesAndAdditionalPropertiesClassDateTimeL #-} - --- | 'mixedPropertiesAndAdditionalPropertiesClassMap' Lens -mixedPropertiesAndAdditionalPropertiesClassMapL :: Lens_' MixedPropertiesAndAdditionalPropertiesClass (Maybe (Map.Map String Animal)) -mixedPropertiesAndAdditionalPropertiesClassMapL f MixedPropertiesAndAdditionalPropertiesClass{..} = (\mixedPropertiesAndAdditionalPropertiesClassMap -> MixedPropertiesAndAdditionalPropertiesClass { mixedPropertiesAndAdditionalPropertiesClassMap, ..} ) <$> f mixedPropertiesAndAdditionalPropertiesClassMap -{-# INLINE mixedPropertiesAndAdditionalPropertiesClassMapL #-} - - - --- * Model200Response - --- | 'model200ResponseName' Lens -model200ResponseNameL :: Lens_' Model200Response (Maybe Int) -model200ResponseNameL f Model200Response{..} = (\model200ResponseName -> Model200Response { model200ResponseName, ..} ) <$> f model200ResponseName -{-# INLINE model200ResponseNameL #-} - --- | 'model200ResponseClass' Lens -model200ResponseClassL :: Lens_' Model200Response (Maybe Text) -model200ResponseClassL f Model200Response{..} = (\model200ResponseClass -> Model200Response { model200ResponseClass, ..} ) <$> f model200ResponseClass -{-# INLINE model200ResponseClassL #-} - - - --- * ModelList - --- | 'modelList123list' Lens -modelList123listL :: Lens_' ModelList (Maybe Text) -modelList123listL f ModelList{..} = (\modelList123list -> ModelList { modelList123list, ..} ) <$> f modelList123list -{-# INLINE modelList123listL #-} - - - --- * ModelReturn - --- | 'modelReturnReturn' Lens -modelReturnReturnL :: Lens_' ModelReturn (Maybe Int) -modelReturnReturnL f ModelReturn{..} = (\modelReturnReturn -> ModelReturn { modelReturnReturn, ..} ) <$> f modelReturnReturn -{-# INLINE modelReturnReturnL #-} - - - --- * Name - --- | 'nameName' Lens -nameNameL :: Lens_' Name (Int) -nameNameL f Name{..} = (\nameName -> Name { nameName, ..} ) <$> f nameName -{-# INLINE nameNameL #-} - --- | 'nameSnakeCase' Lens -nameSnakeCaseL :: Lens_' Name (Maybe Int) -nameSnakeCaseL f Name{..} = (\nameSnakeCase -> Name { nameSnakeCase, ..} ) <$> f nameSnakeCase -{-# INLINE nameSnakeCaseL #-} - --- | 'nameProperty' Lens -namePropertyL :: Lens_' Name (Maybe Text) -namePropertyL f Name{..} = (\nameProperty -> Name { nameProperty, ..} ) <$> f nameProperty -{-# INLINE namePropertyL #-} - --- | 'name123number' Lens -name123numberL :: Lens_' Name (Maybe Int) -name123numberL f Name{..} = (\name123number -> Name { name123number, ..} ) <$> f name123number -{-# INLINE name123numberL #-} - - - --- * NumberOnly - --- | 'numberOnlyJustNumber' Lens -numberOnlyJustNumberL :: Lens_' NumberOnly (Maybe Double) -numberOnlyJustNumberL f NumberOnly{..} = (\numberOnlyJustNumber -> NumberOnly { numberOnlyJustNumber, ..} ) <$> f numberOnlyJustNumber -{-# INLINE numberOnlyJustNumberL #-} - - - --- * Order - --- | 'orderId' Lens -orderIdL :: Lens_' Order (Maybe Integer) -orderIdL f Order{..} = (\orderId -> Order { orderId, ..} ) <$> f orderId -{-# INLINE orderIdL #-} - --- | 'orderPetId' Lens -orderPetIdL :: Lens_' Order (Maybe Integer) -orderPetIdL f Order{..} = (\orderPetId -> Order { orderPetId, ..} ) <$> f orderPetId -{-# INLINE orderPetIdL #-} - --- | 'orderQuantity' Lens -orderQuantityL :: Lens_' Order (Maybe Int) -orderQuantityL f Order{..} = (\orderQuantity -> Order { orderQuantity, ..} ) <$> f orderQuantity -{-# INLINE orderQuantityL #-} - --- | 'orderShipDate' Lens -orderShipDateL :: Lens_' Order (Maybe DateTime) -orderShipDateL f Order{..} = (\orderShipDate -> Order { orderShipDate, ..} ) <$> f orderShipDate -{-# INLINE orderShipDateL #-} - --- | 'orderStatus' Lens -orderStatusL :: Lens_' Order (Maybe E'Status) -orderStatusL f Order{..} = (\orderStatus -> Order { orderStatus, ..} ) <$> f orderStatus -{-# INLINE orderStatusL #-} - --- | 'orderComplete' Lens -orderCompleteL :: Lens_' Order (Maybe Bool) -orderCompleteL f Order{..} = (\orderComplete -> Order { orderComplete, ..} ) <$> f orderComplete -{-# INLINE orderCompleteL #-} - - - --- * OuterComposite - --- | 'outerCompositeMyNumber' Lens -outerCompositeMyNumberL :: Lens_' OuterComposite (Maybe Double) -outerCompositeMyNumberL f OuterComposite{..} = (\outerCompositeMyNumber -> OuterComposite { outerCompositeMyNumber, ..} ) <$> f outerCompositeMyNumber -{-# INLINE outerCompositeMyNumberL #-} - --- | 'outerCompositeMyString' Lens -outerCompositeMyStringL :: Lens_' OuterComposite (Maybe Text) -outerCompositeMyStringL f OuterComposite{..} = (\outerCompositeMyString -> OuterComposite { outerCompositeMyString, ..} ) <$> f outerCompositeMyString -{-# INLINE outerCompositeMyStringL #-} - --- | 'outerCompositeMyBoolean' Lens -outerCompositeMyBooleanL :: Lens_' OuterComposite (Maybe Bool) -outerCompositeMyBooleanL f OuterComposite{..} = (\outerCompositeMyBoolean -> OuterComposite { outerCompositeMyBoolean, ..} ) <$> f outerCompositeMyBoolean -{-# INLINE outerCompositeMyBooleanL #-} - - - --- * OuterEnum - - - --- * Pet - --- | 'petId' Lens -petIdL :: Lens_' Pet (Maybe Integer) -petIdL f Pet{..} = (\petId -> Pet { petId, ..} ) <$> f petId -{-# INLINE petIdL #-} - --- | 'petCategory' Lens -petCategoryL :: Lens_' Pet (Maybe Category) -petCategoryL f Pet{..} = (\petCategory -> Pet { petCategory, ..} ) <$> f petCategory -{-# INLINE petCategoryL #-} - --- | 'petName' Lens -petNameL :: Lens_' Pet (Text) -petNameL f Pet{..} = (\petName -> Pet { petName, ..} ) <$> f petName -{-# INLINE petNameL #-} - --- | 'petPhotoUrls' Lens -petPhotoUrlsL :: Lens_' Pet ([Text]) -petPhotoUrlsL f Pet{..} = (\petPhotoUrls -> Pet { petPhotoUrls, ..} ) <$> f petPhotoUrls -{-# INLINE petPhotoUrlsL #-} - --- | 'petTags' Lens -petTagsL :: Lens_' Pet (Maybe [Tag]) -petTagsL f Pet{..} = (\petTags -> Pet { petTags, ..} ) <$> f petTags -{-# INLINE petTagsL #-} - --- | 'petStatus' Lens -petStatusL :: Lens_' Pet (Maybe E'Status2) -petStatusL f Pet{..} = (\petStatus -> Pet { petStatus, ..} ) <$> f petStatus -{-# INLINE petStatusL #-} - - - --- * ReadOnlyFirst - --- | 'readOnlyFirstBar' Lens -readOnlyFirstBarL :: Lens_' ReadOnlyFirst (Maybe Text) -readOnlyFirstBarL f ReadOnlyFirst{..} = (\readOnlyFirstBar -> ReadOnlyFirst { readOnlyFirstBar, ..} ) <$> f readOnlyFirstBar -{-# INLINE readOnlyFirstBarL #-} - --- | 'readOnlyFirstBaz' Lens -readOnlyFirstBazL :: Lens_' ReadOnlyFirst (Maybe Text) -readOnlyFirstBazL f ReadOnlyFirst{..} = (\readOnlyFirstBaz -> ReadOnlyFirst { readOnlyFirstBaz, ..} ) <$> f readOnlyFirstBaz -{-# INLINE readOnlyFirstBazL #-} - - - --- * SpecialModelName - --- | 'specialModelNameSpecialPropertyName' Lens -specialModelNameSpecialPropertyNameL :: Lens_' SpecialModelName (Maybe Integer) -specialModelNameSpecialPropertyNameL f SpecialModelName{..} = (\specialModelNameSpecialPropertyName -> SpecialModelName { specialModelNameSpecialPropertyName, ..} ) <$> f specialModelNameSpecialPropertyName -{-# INLINE specialModelNameSpecialPropertyNameL #-} - - - --- * Tag - --- | 'tagId' Lens -tagIdL :: Lens_' Tag (Maybe Integer) -tagIdL f Tag{..} = (\tagId -> Tag { tagId, ..} ) <$> f tagId -{-# INLINE tagIdL #-} - --- | 'tagName' Lens -tagNameL :: Lens_' Tag (Maybe Text) -tagNameL f Tag{..} = (\tagName -> Tag { tagName, ..} ) <$> f tagName -{-# INLINE tagNameL #-} - - - --- * User - --- | 'userId' Lens -userIdL :: Lens_' User (Maybe Integer) -userIdL f User{..} = (\userId -> User { userId, ..} ) <$> f userId -{-# INLINE userIdL #-} - --- | 'userUsername' Lens -userUsernameL :: Lens_' User (Maybe Text) -userUsernameL f User{..} = (\userUsername -> User { userUsername, ..} ) <$> f userUsername -{-# INLINE userUsernameL #-} - --- | 'userFirstName' Lens -userFirstNameL :: Lens_' User (Maybe Text) -userFirstNameL f User{..} = (\userFirstName -> User { userFirstName, ..} ) <$> f userFirstName -{-# INLINE userFirstNameL #-} - --- | 'userLastName' Lens -userLastNameL :: Lens_' User (Maybe Text) -userLastNameL f User{..} = (\userLastName -> User { userLastName, ..} ) <$> f userLastName -{-# INLINE userLastNameL #-} - --- | 'userEmail' Lens -userEmailL :: Lens_' User (Maybe Text) -userEmailL f User{..} = (\userEmail -> User { userEmail, ..} ) <$> f userEmail -{-# INLINE userEmailL #-} - --- | 'userPassword' Lens -userPasswordL :: Lens_' User (Maybe Text) -userPasswordL f User{..} = (\userPassword -> User { userPassword, ..} ) <$> f userPassword -{-# INLINE userPasswordL #-} - --- | 'userPhone' Lens -userPhoneL :: Lens_' User (Maybe Text) -userPhoneL f User{..} = (\userPhone -> User { userPhone, ..} ) <$> f userPhone -{-# INLINE userPhoneL #-} - --- | 'userUserStatus' Lens -userUserStatusL :: Lens_' User (Maybe Int) -userUserStatusL f User{..} = (\userUserStatus -> User { userUserStatus, ..} ) <$> f userUserStatus -{-# INLINE userUserStatusL #-} - - diff --git a/samples/client/petstore/haskell-http-client/openapi-petstore.cabal b/samples/client/petstore/haskell-http-client/openapi-petstore.cabal index a9699793be5..565ac1c999e 100644 --- a/samples/client/petstore/haskell-http-client/openapi-petstore.cabal +++ b/samples/client/petstore/haskell-http-client/openapi-petstore.cabal @@ -10,7 +10,7 @@ description: . . OpenAPI Petstore API version: 1.0.0 . - OpenAPI version: 3.0.1 + OpenAPI version: 3.0.0 . category: Web homepage: https://openapi-generator.tech diff --git a/samples/client/petstore/haskell-http-client/openapi.yaml b/samples/client/petstore/haskell-http-client/openapi.yaml index 443788211b9..b3a6fbc50e5 100644 --- a/samples/client/petstore/haskell-http-client/openapi.yaml +++ b/samples/client/petstore/haskell-http-client/openapi.yaml @@ -1,4 +1,4 @@ -openapi: 3.0.1 +openapi: 3.0.0 info: title: OpenAPI Petstore description: 'This spec is mainly for testing Petstore server and contains fake @@ -8,6 +8,9 @@ info: name: Apache-2.0 url: http://www.apache.org/licenses/LICENSE-2.0.html version: 1.0.0 +externalDocs: + description: Find out more about Swagger + url: http://swagger.io servers: - url: http://petstore.swagger.io:80/v2 tags: @@ -25,25 +28,14 @@ paths: summary: Update an existing pet operationId: updatePet requestBody: - description: Pet object that needs to be added to the store - content: - application/json: - schema: - $ref: '#/components/schemas/Pet' - application/xml: - schema: - $ref: '#/components/schemas/Pet' - required: true + $ref: '#/components/requestBodies/Pet' responses: 400: description: Invalid ID supplied - content: {} 404: description: Pet not found - content: {} 405: description: Validation exception - content: {} security: - petstore_auth: - write:pets @@ -54,19 +46,10 @@ paths: summary: Add a new pet to the store operationId: addPet requestBody: - description: Pet object that needs to be added to the store - content: - application/json: - schema: - $ref: '#/components/schemas/Pet' - application/xml: - schema: - $ref: '#/components/schemas/Pet' - required: true + $ref: '#/components/requestBodies/Pet' responses: 405: description: Invalid input - content: {} security: - petstore_auth: - write:pets @@ -83,16 +66,17 @@ paths: in: query description: Status values that need to be considered for filter required: true + style: form explode: false schema: type: array items: type: string - default: available enum: - available - pending - sold + default: available responses: 200: description: successful operation @@ -109,7 +93,6 @@ paths: $ref: '#/components/schemas/Pet' 400: description: Invalid status value - content: {} security: - petstore_auth: - write:pets @@ -126,6 +109,7 @@ paths: in: query description: Tags to filter by required: true + style: form explode: false schema: type: array @@ -147,7 +131,6 @@ paths: $ref: '#/components/schemas/Pet' 400: description: Invalid tag value - content: {} deprecated: true security: - petstore_auth: @@ -165,6 +148,8 @@ paths: in: path description: ID of pet to return required: true + style: simple + explode: false schema: type: integer format: int64 @@ -180,10 +165,8 @@ paths: $ref: '#/components/schemas/Pet' 400: description: Invalid ID supplied - content: {} 404: description: Pet not found - content: {} security: - api_key: [] post: @@ -196,6 +179,8 @@ paths: in: path description: ID of pet that needs to be updated required: true + style: simple + explode: false schema: type: integer format: int64 @@ -203,17 +188,10 @@ paths: content: application/x-www-form-urlencoded: schema: - properties: - name: - type: string - description: Updated name of the pet - status: - type: string - description: Updated status of the pet + $ref: '#/components/schemas/body' responses: 405: description: Invalid input - content: {} security: - petstore_auth: - write:pets @@ -226,19 +204,23 @@ paths: parameters: - name: api_key in: header + required: false + style: simple + explode: false schema: type: string - name: petId in: path description: Pet id to delete required: true + style: simple + explode: false schema: type: integer format: int64 responses: 400: description: Invalid pet value - content: {} security: - petstore_auth: - write:pets @@ -254,6 +236,8 @@ paths: in: path description: ID of pet to update required: true + style: simple + explode: false schema: type: integer format: int64 @@ -261,14 +245,7 @@ paths: content: multipart/form-data: schema: - properties: - additionalMetadata: - type: string - description: Additional data to pass to server - file: - type: string - description: file to upload - format: binary + $ref: '#/components/schemas/body_1' responses: 200: description: successful operation @@ -308,7 +285,7 @@ paths: requestBody: description: order placed for purchasing the pet content: - '*/*': + application/json: schema: $ref: '#/components/schemas/Order' required: true @@ -324,7 +301,6 @@ paths: $ref: '#/components/schemas/Order' 400: description: Invalid Order - content: {} /store/order/{order_id}: get: tags: @@ -337,6 +313,8 @@ paths: in: path description: ID of pet that needs to be fetched required: true + style: simple + explode: false schema: maximum: 5 minimum: 1 @@ -354,10 +332,8 @@ paths: $ref: '#/components/schemas/Order' 400: description: Invalid ID supplied - content: {} 404: description: Order not found - content: {} delete: tags: - store @@ -369,15 +345,15 @@ paths: in: path description: ID of the order that needs to be deleted required: true + style: simple + explode: false schema: type: string responses: 400: description: Invalid ID supplied - content: {} 404: description: Order not found - content: {} /user: post: tags: @@ -388,14 +364,13 @@ paths: requestBody: description: Created user object content: - '*/*': + application/json: schema: $ref: '#/components/schemas/User' required: true responses: default: description: successful operation - content: {} /user/createWithArray: post: tags: @@ -403,18 +378,10 @@ paths: summary: Creates list of users with given input array operationId: createUsersWithArrayInput requestBody: - description: List of user object - content: - '*/*': - schema: - type: array - items: - $ref: '#/components/schemas/User' - required: true + $ref: '#/components/requestBodies/UserArray' responses: default: description: successful operation - content: {} /user/createWithList: post: tags: @@ -422,18 +389,10 @@ paths: summary: Creates list of users with given input array operationId: createUsersWithListInput requestBody: - description: List of user object - content: - '*/*': - schema: - type: array - items: - $ref: '#/components/schemas/User' - required: true + $ref: '#/components/requestBodies/UserArray' responses: default: description: successful operation - content: {} /user/login: get: tags: @@ -445,12 +404,16 @@ paths: in: query description: The user name for login required: true + style: form + explode: true schema: type: string - name: password in: query description: The password for login in clear text required: true + style: form + explode: true schema: type: string responses: @@ -459,11 +422,15 @@ paths: headers: X-Rate-Limit: description: calls per hour allowed by the user + style: simple + explode: false schema: type: integer format: int32 X-Expires-After: - description: date in UTC when token expires + description: date in UTC when toekn expires + style: simple + explode: false schema: type: string format: date-time @@ -476,7 +443,6 @@ paths: type: string 400: description: Invalid username/password supplied - content: {} /user/logout: get: tags: @@ -486,7 +452,6 @@ paths: responses: default: description: successful operation - content: {} /user/{username}: get: tags: @@ -498,6 +463,8 @@ paths: in: path description: The name that needs to be fetched. Use user1 for testing. required: true + style: simple + explode: false schema: type: string responses: @@ -512,10 +479,8 @@ paths: $ref: '#/components/schemas/User' 400: description: Invalid username supplied - content: {} 404: description: User not found - content: {} put: tags: - user @@ -527,22 +492,22 @@ paths: in: path description: name that need to be deleted required: true + style: simple + explode: false schema: type: string requestBody: description: Updated user object content: - '*/*': + application/json: schema: $ref: '#/components/schemas/User' required: true responses: 400: description: Invalid user supplied - content: {} 404: description: User not found - content: {} delete: tags: - user @@ -554,15 +519,15 @@ paths: in: path description: The name that needs to be deleted required: true + style: simple + explode: false schema: type: string responses: 400: description: Invalid username supplied - content: {} 404: description: User not found - content: {} /fake_classname_test: patch: tags: @@ -571,12 +536,7 @@ paths: description: To test class name in snake case operationId: testClassname requestBody: - description: client model - content: - application/json: - schema: - $ref: '#/components/schemas/Client' - required: true + $ref: '#/components/requestBodies/Client' responses: 200: description: successful operation @@ -597,49 +557,63 @@ paths: - name: enum_header_string_array in: header description: Header parameter enum test (string array) + required: false + style: simple + explode: true schema: type: array items: type: string - default: $ enum: - '>' - $ + default: $ - name: enum_header_string in: header description: Header parameter enum test (string) + required: false + style: simple + explode: false schema: type: string - default: -efg enum: - _abc - -efg - (xyz) + default: -efg - name: enum_query_string_array in: query description: Query parameter enum test (string array) - explode: false + required: false + style: form + explode: true schema: type: array items: type: string - default: $ enum: - '>' - $ + default: $ - name: enum_query_string in: query description: Query parameter enum test (string) + required: false + style: form + explode: true schema: type: string - default: -efg enum: - _abc - -efg - (xyz) + default: -efg - name: enum_query_integer in: query description: Query parameter enum test (double) + required: false + style: form + explode: true schema: type: integer format: int32 @@ -649,6 +623,9 @@ paths: - name: enum_query_double in: query description: Query parameter enum test (double) + required: false + style: form + explode: true schema: type: number format: double @@ -659,31 +636,12 @@ paths: content: application/x-www-form-urlencoded: schema: - properties: - enum_form_string_array: - type: array - description: Form parameter enum test (string array) - items: - type: string - default: $ - enum: - - '>' - - $ - enum_form_string: - type: string - description: Form parameter enum test (string) - default: -efg - enum: - - _abc - - -efg - - (xyz) + $ref: '#/components/schemas/body_2' responses: 400: description: Invalid request - content: {} 404: description: Not found - content: {} post: tags: - fake @@ -702,84 +660,12 @@ paths: content: application/x-www-form-urlencoded: schema: - required: - - byte - - double - - number - - pattern_without_delimiter - properties: - integer: - maximum: 100 - minimum: 10 - type: integer - description: None - int32: - maximum: 200 - minimum: 20 - type: integer - description: None - format: int32 - int64: - type: integer - description: None - format: int64 - number: - maximum: 543.2 - minimum: 32.1 - type: number - description: None - float: - maximum: 987.6 - type: number - description: None - format: float - double: - maximum: 123.4 - minimum: 67.8 - type: number - description: None - format: double - string: - pattern: /[a-z]/i - type: string - description: None - pattern_without_delimiter: - pattern: ^[A-Z].* - type: string - description: None - byte: - type: string - description: None - format: byte - binary: - type: string - description: None - format: binary - date: - type: string - description: None - format: date - dateTime: - type: string - description: None - format: date-time - password: - maxLength: 64 - minLength: 10 - type: string - description: None - format: password - callback: - type: string - description: None - required: true + $ref: '#/components/schemas/body_3' responses: 400: description: Invalid username supplied - content: {} 404: description: User not found - content: {} security: - http_basic_test: [] patch: @@ -789,12 +675,7 @@ paths: description: To test "client" model operationId: testClientModel requestBody: - description: client model - content: - application/json: - schema: - $ref: '#/components/schemas/Client' - required: true + $ref: '#/components/requestBodies/Client' responses: 200: description: successful operation @@ -811,10 +692,9 @@ paths: requestBody: description: Input number as post body content: - '*/*': + application/json: schema: $ref: '#/components/schemas/OuterNumber' - required: false responses: 200: description: Output number @@ -831,10 +711,9 @@ paths: requestBody: description: Input string as post body content: - '*/*': + application/json: schema: $ref: '#/components/schemas/OuterString' - required: false responses: 200: description: Output string @@ -851,10 +730,9 @@ paths: requestBody: description: Input boolean as post body content: - '*/*': + application/json: schema: $ref: '#/components/schemas/OuterBoolean' - required: false responses: 200: description: Output boolean @@ -871,10 +749,9 @@ paths: requestBody: description: Input composite as post body content: - '*/*': + application/json: schema: $ref: '#/components/schemas/OuterComposite' - required: false responses: 200: description: Output composite @@ -892,21 +769,10 @@ paths: content: application/x-www-form-urlencoded: schema: - required: - - param - - param2 - properties: - param: - type: string - description: field1 - param2: - type: string - description: field2 - required: true + $ref: '#/components/schemas/body_4' responses: 200: description: successful operation - content: {} /fake/inline-additionalProperties: post: tags: @@ -925,28 +791,6 @@ paths: responses: 200: description: successful operation - content: {} - /fake/body-with-query-params: - put: - tags: - - fake - operationId: testBodyWithQueryParams - parameters: - - name: query - in: query - required: true - schema: - type: string - requestBody: - content: - application/json: - schema: - $ref: '#/components/schemas/User' - required: true - responses: - 200: - description: Success - content: {} /another-fake/dummy: patch: tags: @@ -955,12 +799,7 @@ paths: description: To test special tags operationId: test_special_tags requestBody: - description: client model - content: - application/json: - schema: - $ref: '#/components/schemas/Client' - required: true + $ref: '#/components/requestBodies/Client' responses: 200: description: successful operation @@ -970,6 +809,40 @@ paths: $ref: '#/components/schemas/Client' components: schemas: + Order: + type: object + properties: + id: + type: integer + format: int64 + petId: + type: integer + format: int64 + quantity: + type: integer + format: int32 + shipDate: + type: string + format: date-time + status: + type: string + description: Order Status + enum: + - placed + - approved + - delivered + complete: + type: boolean + default: false + example: + petId: 6 + quantity: 1 + id: 0 + shipDate: 2000-01-23T04:56:07.000+00:00 + complete: false + status: placed + xml: + name: Order Category: type: object properties: @@ -1017,388 +890,6 @@ components: username: username xml: name: User - OuterNumber: - type: number - ArrayOfNumberOnly: - type: object - properties: - ArrayNumber: - type: array - items: - type: number - Capitalization: - type: object - properties: - smallCamel: - type: string - CapitalCamel: - type: string - small_Snake: - type: string - Capital_Snake: - type: string - SCA_ETH_Flow_Points: - type: string - ATT_NAME: - type: string - description: | - Name of the pet - MixedPropertiesAndAdditionalPropertiesClass: - type: object - properties: - uuid: - type: string - format: uuid - dateTime: - type: string - format: date-time - map: - type: object - additionalProperties: - $ref: '#/components/schemas/Animal' - ApiResponse: - type: object - properties: - code: - type: integer - format: int32 - type: - type: string - message: - type: string - example: - code: 0 - type: type - message: message - Name: - required: - - name - type: object - properties: - name: - type: integer - format: int32 - snake_case: - type: integer - format: int32 - readOnly: true - property: - type: string - 123Number: - type: integer - readOnly: true - description: Model for testing model name same as property name - xml: - name: Name - EnumClass: - type: string - default: -efg - enum: - - _abc - - -efg - - (xyz) - List: - type: object - properties: - 123-list: - type: string - NumberOnly: - type: object - properties: - JustNumber: - type: number - 200_response: - type: object - properties: - name: - type: integer - format: int32 - class: - type: string - description: Model for testing model name starting with number - xml: - name: Name - Client: - type: object - properties: - client: - type: string - example: - client: client - Dog: - allOf: - - $ref: '#/components/schemas/Animal' - - type: object - properties: - breed: - type: string - Enum_Test: - required: - - enum_string_required - type: object - properties: - enum_string: - type: string - enum: - - UPPER - - lower - - "" - enum_string_required: - type: string - enum: - - UPPER - - lower - - "" - enum_integer: - type: integer - format: int32 - enum: - - 1 - - -1 - enum_number: - type: number - format: double - enum: - - 1.1 - - -1.2 - outerEnum: - $ref: '#/components/schemas/OuterEnum' - Order: - type: object - properties: - id: - type: integer - format: int64 - petId: - type: integer - format: int64 - quantity: - type: integer - format: int32 - shipDate: - type: string - format: date-time - status: - type: string - description: Order Status - enum: - - placed - - approved - - delivered - complete: - type: boolean - default: false - example: - petId: 6 - quantity: 1 - id: 0 - shipDate: 2000-01-23T04:56:07.000+00:00 - complete: false - status: placed - xml: - name: Order - AdditionalPropertiesClass: - type: object - properties: - map_property: - type: object - additionalProperties: - type: string - map_of_map_property: - type: object - additionalProperties: - type: object - additionalProperties: - type: string - $special[model.name]: - type: object - properties: - $special[property.name]: - type: integer - format: int64 - xml: - name: $special[model.name] - Return: - type: object - properties: - return: - type: integer - format: int32 - description: Model for testing reserved words - xml: - name: Return - ReadOnlyFirst: - type: object - properties: - bar: - type: string - readOnly: true - baz: - type: string - ArrayOfArrayOfNumberOnly: - type: object - properties: - ArrayArrayNumber: - type: array - items: - type: array - items: - type: number - OuterEnum: - type: string - enum: - - placed - - approved - - delivered - ArrayTest: - type: object - properties: - array_of_string: - type: array - items: - type: string - array_array_of_integer: - type: array - items: - type: array - items: - type: integer - format: int64 - array_array_of_model: - type: array - items: - type: array - items: - $ref: '#/components/schemas/ReadOnlyFirst' - OuterComposite: - type: object - properties: - my_number: - $ref: '#/components/schemas/OuterNumber' - my_string: - $ref: '#/components/schemas/OuterString' - my_boolean: - $ref: '#/components/schemas/OuterBoolean' - example: {} - format_test: - required: - - byte - - date - - number - - password - type: object - properties: - integer: - maximum: 1E+2 - minimum: 1E+1 - type: integer - int32: - maximum: 2E+2 - minimum: 2E+1 - type: integer - format: int32 - int64: - type: integer - format: int64 - number: - maximum: 543.2 - minimum: 32.1 - type: number - float: - maximum: 987.6 - minimum: 54.3 - type: number - format: float - double: - maximum: 123.4 - minimum: 67.8 - type: number - format: double - string: - pattern: /[a-z]/i - type: string - byte: - pattern: ^(?:[A-Za-z0-9+/]{4})*(?:[A-Za-z0-9+/]{2}==|[A-Za-z0-9+/]{3}=)?$ - type: string - format: byte - binary: - type: string - format: binary - date: - type: string - format: date - dateTime: - type: string - format: date-time - uuid: - type: string - format: uuid - password: - maxLength: 64 - minLength: 10 - type: string - format: password - EnumArrays: - type: object - properties: - just_symbol: - type: string - enum: - - '>=' - - $ - array_enum: - type: array - items: - type: string - enum: - - fish - - crab - OuterString: - type: string - ClassModel: - type: object - properties: - _class: - type: string - description: Model for testing model with "_class" property - OuterBoolean: - type: boolean - x-codegen-body-parameter-name: boolean_post_body - Animal: - required: - - className - type: object - properties: - className: - type: string - color: - type: string - default: red - discriminator: - propertyName: className - Cat: - allOf: - - $ref: '#/components/schemas/Animal' - - type: object - properties: - declawed: - type: boolean - MapTest: - type: object - properties: - map_map_of_string: - type: object - additionalProperties: - type: object - additionalProperties: - type: string - map_of_enum_string: - type: object - additionalProperties: - type: string - enum: - - UPPER - - lower Tag: type: object properties: @@ -1412,10 +903,6 @@ components: id: 1 xml: name: Tag - AnimalFarm: - type: array - items: - $ref: '#/components/schemas/Animal' Pet: required: - name @@ -1469,6 +956,234 @@ components: status: available xml: name: Pet + ApiResponse: + type: object + properties: + code: + type: integer + format: int32 + type: + type: string + message: + type: string + example: + code: 0 + type: type + message: message + Return: + properties: + return: + type: integer + format: int32 + description: Model for testing reserved words + xml: + name: Return + Name: + required: + - name + properties: + name: + type: integer + format: int32 + snake_case: + type: integer + format: int32 + readOnly: true + property: + type: string + 123Number: + type: integer + format: int32 + readOnly: true + description: Model for testing model name same as property name + xml: + name: Name + 200_response: + properties: + name: + type: integer + format: int32 + class: + type: string + description: Model for testing model name starting with number + xml: + name: Name + ClassModel: + properties: + _class: + type: string + description: Model for testing model with "_class" property + Dog: + allOf: + - $ref: '#/components/schemas/Animal' + - type: object + properties: + breed: + type: string + Cat: + allOf: + - $ref: '#/components/schemas/Animal' + - type: object + properties: + declawed: + type: boolean + Animal: + required: + - className + type: object + properties: + className: + type: string + color: + type: string + default: red + discriminator: + propertyName: className + AnimalFarm: + type: array + items: + $ref: '#/components/schemas/Animal' + format_test: + required: + - byte + - date + - number + - password + type: object + properties: + integer: + maximum: 100 + minimum: 10 + type: integer + format: int32 + int32: + maximum: 200 + minimum: 20 + type: integer + format: int32 + int64: + type: integer + format: int64 + number: + maximum: 543.2 + minimum: 32.1 + type: number + float: + maximum: 987.6 + minimum: 54.3 + type: number + format: float + double: + maximum: 123.4 + minimum: 67.8 + type: number + format: double + string: + type: string + byte: + type: string + format: byte + binary: + type: string + format: binary + date: + type: string + format: date + dateTime: + type: string + format: date-time + uuid: + type: string + format: uuid + password: + maxLength: 64 + minLength: 10 + type: string + format: password + EnumClass: + type: string + enum: + - _abc + - -efg + - (xyz) + default: -efg + Enum_Test: + required: + - enum_string_required + type: object + properties: + enum_string: + type: string + enum: + - UPPER + - lower + - "" + enum_string_required: + type: string + enum: + - UPPER + - lower + - "" + enum_integer: + type: integer + format: int32 + enum: + - 1 + - -1 + enum_number: + type: number + format: double + enum: + - 1.1 + - -1.2 + outerEnum: + $ref: '#/components/schemas/OuterEnum' + AdditionalPropertiesClass: + type: object + properties: + map_property: + type: object + additionalProperties: + type: string + map_of_map_property: + type: object + additionalProperties: + type: object + additionalProperties: + type: string + MixedPropertiesAndAdditionalPropertiesClass: + type: object + properties: + uuid: + type: string + format: uuid + dateTime: + type: string + format: date-time + map: + type: object + additionalProperties: + $ref: '#/components/schemas/Animal' + List: + type: object + properties: + 123-list: + type: string + Client: + type: object + properties: + client: + type: string + example: + client: client + ReadOnlyFirst: + type: object + properties: + bar: + type: string + readOnly: true + baz: + type: string hasOnlyReadOnly: type: object properties: @@ -1478,6 +1193,273 @@ components: foo: type: string readOnly: true + Capitalization: + type: object + properties: + smallCamel: + type: string + CapitalCamel: + type: string + small_Snake: + type: string + Capital_Snake: + type: string + SCA_ETH_Flow_Points: + type: string + ATT_NAME: + type: string + description: | + Name of the pet + MapTest: + type: object + properties: + map_map_of_string: + type: object + additionalProperties: + type: object + additionalProperties: + type: string + map_of_enum_string: + type: object + additionalProperties: + type: string + enum: + - UPPER + - lower + ArrayTest: + type: object + properties: + array_of_string: + type: array + items: + type: string + array_array_of_integer: + type: array + items: + type: array + items: + type: integer + format: int64 + array_array_of_model: + type: array + items: + type: array + items: + $ref: '#/components/schemas/ReadOnlyFirst' + NumberOnly: + type: object + properties: + JustNumber: + type: number + ArrayOfNumberOnly: + type: object + properties: + ArrayNumber: + type: array + items: + type: number + ArrayOfArrayOfNumberOnly: + type: object + properties: + ArrayArrayNumber: + type: array + items: + type: array + items: + type: number + EnumArrays: + type: object + properties: + just_symbol: + type: string + enum: + - '>=' + - $ + array_enum: + type: array + items: + type: string + enum: + - fish + - crab + OuterEnum: + type: string + enum: + - placed + - approved + - delivered + OuterComposite: + type: object + properties: + my_number: + $ref: '#/components/schemas/OuterNumber' + my_string: + $ref: '#/components/schemas/OuterString' + my_boolean: + $ref: '#/components/schemas/OuterBoolean' + example: {} + OuterNumber: + type: number + OuterString: + type: string + OuterBoolean: + type: boolean + _special_model.name_: + properties: + $special[property.name]: + type: integer + format: int64 + xml: + name: $special[model.name] + body: + type: object + properties: + name: + type: string + description: Updated name of the pet + status: + type: string + description: Updated status of the pet + body_1: + type: object + properties: + additionalMetadata: + type: string + description: Additional data to pass to server + file: + type: string + description: file to upload + format: binary + body_2: + type: object + properties: + enum_form_string_array: + type: array + description: Form parameter enum test (string array) + items: + type: string + enum: + - '>' + - $ + default: $ + enum_form_string: + type: string + description: Form parameter enum test (string) + enum: + - _abc + - -efg + - (xyz) + default: -efg + body_3: + required: + - byte + - double + - number + - pattern_without_delimiter + type: object + properties: + integer: + maximum: 100 + minimum: 10 + type: integer + description: None + format: int32 + int32: + maximum: 200 + minimum: 20 + type: integer + description: None + format: int32 + int64: + type: integer + description: None + format: int64 + number: + maximum: 543.2 + minimum: 32.1 + type: number + description: None + float: + maximum: 987.6 + type: number + description: None + format: float + double: + maximum: 123.4 + minimum: 67.8 + type: number + description: None + format: double + string: + type: string + description: None + pattern_without_delimiter: + type: string + description: None + byte: + type: string + description: None + format: byte + binary: + type: string + description: None + format: binary + date: + type: string + description: None + format: date + dateTime: + type: string + description: None + format: date-time + password: + maxLength: 64 + minLength: 10 + type: string + description: None + format: password + callback: + type: string + description: None + body_4: + required: + - param + - param2 + type: object + properties: + param: + type: string + description: field1 + param2: + type: string + description: field2 + requestBodies: + UserArray: + description: List of user object + content: + application/json: + schema: + type: array + items: + $ref: '#/components/schemas/User' + required: true + Client: + description: client model + content: + application/json: + schema: + $ref: '#/components/schemas/Client' + required: true + Pet: + description: Pet object that needs to be added to the store + content: + application/json: + schema: + $ref: '#/components/schemas/Pet' + application/xml: + schema: + $ref: '#/components/schemas/Pet' + required: true securitySchemes: petstore_auth: type: oauth2 @@ -1487,9 +1469,6 @@ components: scopes: write:pets: modify pets in your account read:pets: read your pets - http_basic_test: - type: http - scheme: basic api_key: type: apiKey name: api_key @@ -1498,3 +1477,6 @@ components: type: apiKey name: api_key_query in: query + http_basic_test: + type: http + scheme: basic diff --git a/samples/client/petstore/haskell-http-client/pom.xml b/samples/client/petstore/haskell-http-client/pom.xml index 1ae98163424..2e72fea324c 100644 --- a/samples/client/petstore/haskell-http-client/pom.xml +++ b/samples/client/petstore/haskell-http-client/pom.xml @@ -1,10 +1,10 @@ 4.0.0 - io.swagger - swagger-petstore-haskell-http-client + org.openapitools + openapi-petstore-haskell-http-client pom 1.0-SNAPSHOT - Swagger Petstore - Haskell http-client Client + OpenAPI Petstore - Haskell http-client Client diff --git a/samples/client/petstore/haskell-http-client/swagger-petstore.cabal b/samples/client/petstore/haskell-http-client/swagger-petstore.cabal deleted file mode 100644 index a7c5d44bd26..00000000000 --- a/samples/client/petstore/haskell-http-client/swagger-petstore.cabal +++ /dev/null @@ -1,103 +0,0 @@ -name: swagger-petstore -version: 0.1.0.0 -synopsis: Auto-generated swagger-petstore API Client -description: . - Client library for calling the Swagger Petstore API based on http-client. - . - host: petstore.swagger.io - . - base path: http://petstore.swagger.io:80/v2 - . - Swagger Petstore API version: 1.0.0 - . - OpenAPI version: 3.0.0 - . - category: Web -homepage: https://openapi-generator.tech -author: Author Name Here -maintainer: author.name@email.com -copyright: YEAR - AUTHOR -license: UnspecifiedLicense -build-type: Simple -cabal-version: >= 1.10 - -extra-source-files: - README.md - openapi.yaml - -library - hs-source-dirs: - lib - ghc-options: -Wall -funbox-strict-fields - build-depends: - aeson >=1.0 && <2.0 - , base >=4.7 && <5.0 - , base64-bytestring >1.0 && <2.0 - , bytestring >=0.10.0 && <0.11 - , case-insensitive - , containers >=0.5.0.0 && <0.6 - , deepseq >= 1.4 && <1.6 - , exceptions >= 0.4 - , http-api-data >= 0.3.4 && <0.4 - , http-client >=0.5 && <0.6 - , http-client-tls - , http-media >= 0.4 && < 0.8 - , http-types >=0.8 && <0.13 - , iso8601-time >=0.1.3 && <0.2.0 - , microlens >= 0.4.3 && <0.5 - , mtl >=2.2.1 - , network >=2.6.2 && <2.7 - , random >=1.1 - , safe-exceptions <0.2 - , text >=0.11 && <1.3 - , time >=1.5 && <1.10 - , transformers >=0.4.0.0 - , unordered-containers - , vector >=0.10.9 && <0.13 - , katip >=0.4 && < 0.6 - other-modules: - Paths_swagger_petstore - exposed-modules: - SwaggerPetstore - SwaggerPetstore.API - SwaggerPetstore.API.AnotherFake - SwaggerPetstore.API.Fake - SwaggerPetstore.API.FakeClassnameTags123 - SwaggerPetstore.API.Pet - SwaggerPetstore.API.Store - SwaggerPetstore.API.User - SwaggerPetstore.Client - SwaggerPetstore.Core - SwaggerPetstore.Logging - SwaggerPetstore.MimeTypes - SwaggerPetstore.Model - SwaggerPetstore.ModelLens - default-language: Haskell2010 - -test-suite tests - type: exitcode-stdio-1.0 - main-is: Test.hs - hs-source-dirs: - tests - ghc-options: -Wall -fno-warn-orphans - build-depends: - swagger-petstore - , QuickCheck - , aeson - , base >=4.7 && <5.0 - , bytestring >=0.10.0 && <0.11 - , containers - , hspec >=1.8 - , iso8601-time - , mtl >=2.2.1 - , semigroups - , text - , time - , transformers >=0.4.0.0 - , unordered-containers - , vector - other-modules: - ApproxEq - Instances - PropMime - default-language: Haskell2010 diff --git a/samples/client/petstore/haskell-http-client/tests-integration/README.md b/samples/client/petstore/haskell-http-client/tests-integration/README.md index 66aba9b5c60..6efc9268c32 100644 --- a/samples/client/petstore/haskell-http-client/tests-integration/README.md +++ b/samples/client/petstore/haskell-http-client/tests-integration/README.md @@ -1,10 +1,10 @@ -# swagger-petstore-tests-integration +# openapi-petstore-tests-integration -This contains integration tests for the haskell http-client swagger-petstore api client library. +This contains integration tests for the haskell http-client openapi-petstore api client library. This module is not auto-generated. -The integration tests require a swagger petstore server running at +The integration tests require a openapi petstore server running at `http://0.0.0.0/v2`, or the value of the `HOST` environment variable. The api client library bindings are expected to live in the parent folder diff --git a/samples/client/petstore/haskell-http-client/tests-integration/swagger-petstore-tests-integration.cabal b/samples/client/petstore/haskell-http-client/tests-integration/openapi-petstore-tests-integration.cabal similarity index 75% rename from samples/client/petstore/haskell-http-client/tests-integration/swagger-petstore-tests-integration.cabal rename to samples/client/petstore/haskell-http-client/tests-integration/openapi-petstore-tests-integration.cabal index 45642f5fa46..c12d1755640 100644 --- a/samples/client/petstore/haskell-http-client/tests-integration/swagger-petstore-tests-integration.cabal +++ b/samples/client/petstore/haskell-http-client/tests-integration/openapi-petstore-tests-integration.cabal @@ -2,14 +2,14 @@ -- -- see: https://github.com/sol/hpack -- --- hash: a8fb57441bffb4430254e2b9719abe616ff450a871e5e89b1736428114723f39 +-- hash: db4f232d47abc55dfcc4a39baf3fe99e321edd086340fa500bfeee68ec48e412 -name: swagger-petstore-tests-integration +name: openapi-petstore-tests-integration version: 0.1.0.0 -synopsis: integration tests for auto-generated swagger-petstore API Client -description: integration tests for auto-generated swagger-petstore API Client +synopsis: integration tests for auto-generated openapi-petstore API Client +description: integration tests for auto-generated openapi-petstore API Client category: Web -homepage: https://github.com/swagger-api/swagger-codegen#readme +homepage: https://openapi-generator.tech author: Author Name Here maintainer: author.name@email.com copyright: YEAR - AUTHOR @@ -44,14 +44,14 @@ test-suite tests , iso8601-time , microlens >=0.4.3 && <0.5 , mtl >=2.2.1 + , openapi-petstore , safe-exceptions <0.2 , semigroups - , swagger-petstore , text , time , transformers >=0.4.0.0 , unordered-containers , vector >=0.10.9 && <0.13 other-modules: - Paths_swagger_petstore_tests_integration + Paths_openapi_petstore_tests_integration default-language: Haskell2010 diff --git a/samples/client/petstore/haskell-http-client/tests-integration/package.yaml b/samples/client/petstore/haskell-http-client/tests-integration/package.yaml index 211e8abb300..d94a04ff3ad 100644 --- a/samples/client/petstore/haskell-http-client/tests-integration/package.yaml +++ b/samples/client/petstore/haskell-http-client/tests-integration/package.yaml @@ -1,15 +1,15 @@ -name: swagger-petstore-tests-integration +name: openapi-petstore-tests-integration version: '0.1.0.0' -synopsis: integration tests for auto-generated swagger-petstore API Client +synopsis: integration tests for auto-generated openapi-petstore API Client description: ! ' - integration tests for auto-generated swagger-petstore API Client + integration tests for auto-generated openapi-petstore API Client ' category: Web author: Author Name Here maintainer: author.name@email.com copyright: YEAR - AUTHOR license: UnspecifiedLicense -homepage: https://github.com/swagger-api/swagger-codegen#readme +homepage: https://openapi-generator.tech extra-source-files: - README.md ghc-options: -Wall @@ -33,7 +33,7 @@ dependencies: - case-insensitive - safe-exceptions <0.2 - microlens >= 0.4.3 && <0.5 -- swagger-petstore +- openapi-petstore tests: tests: main: Test.hs @@ -41,7 +41,7 @@ tests: ghc-options: - -fno-warn-orphans dependencies: - - swagger-petstore + - openapi-petstore - bytestring >=0.10.0 && <0.11 - containers - hspec >=1.8 diff --git a/samples/client/petstore/haskell-http-client/tests-integration/pom.xml b/samples/client/petstore/haskell-http-client/tests-integration/pom.xml index 41078a36d22..dbe2f2f85b9 100644 --- a/samples/client/petstore/haskell-http-client/tests-integration/pom.xml +++ b/samples/client/petstore/haskell-http-client/tests-integration/pom.xml @@ -1,10 +1,10 @@ 4.0.0 - io.swagger - swagger-petstore-haskell-http-client-tests-integration + org.openapitools + openapi-petstore-haskell-http-client-tests-integration pom 1.0-SNAPSHOT - Swagger Petstore - Haskell http-client Client - Integration Tests + OpenAPI Petstore - Haskell http-client Client - Integration Tests diff --git a/samples/client/petstore/haskell-http-client/tests-integration/tests/Test.hs b/samples/client/petstore/haskell-http-client/tests-integration/tests/Test.hs index 5fac234a466..cd51fabd069 100644 --- a/samples/client/petstore/haskell-http-client/tests-integration/tests/Test.hs +++ b/samples/client/petstore/haskell-http-client/tests-integration/tests/Test.hs @@ -23,7 +23,7 @@ import qualified Data.Map.Strict as Map import Data.Map.Strict (Map) import System.Environment (getEnvironment) -import qualified SwaggerPetstore as S +import qualified OpenAPIPetstore as S import Data.Monoid ((<>)) @@ -32,14 +32,6 @@ import Data.Monoid ((<>)) assertSuccess :: Expectation assertSuccess = Success `shouldBe` Success --- * INSTANCES - -instance S.Consumes S.PlaceOrder S.MimeJSON -instance S.Consumes S.CreateUser S.MimeJSON -instance S.Consumes S.UpdateUser S.MimeJSON -instance S.Consumes S.CreateUsersWithArrayInput S.MimeJSON -instance S.Consumes S.CreateUsersWithListInput S.MimeJSON - -- * MAIN main :: IO () @@ -73,7 +65,7 @@ main = do -- * PET TESTS -testPetOps :: NH.Manager -> S.SwaggerPetstoreConfig -> Spec +testPetOps :: NH.Manager -> S.OpenAPIPetstoreConfig -> Spec testPetOps mgr config = describe "** pet operations" $ do @@ -173,7 +165,7 @@ testPetOps mgr config = -- * STORE TESTS -testStoreOps :: NH.Manager -> S.SwaggerPetstoreConfig -> Spec +testStoreOps :: NH.Manager -> S.OpenAPIPetstoreConfig -> Spec testStoreOps mgr config = do describe "** store operations" $ do @@ -191,7 +183,7 @@ testStoreOps mgr config = do it "placeOrder" $ do now <- TI.getCurrentTime - let placeOrderRequest = S.placeOrder (S.ContentType S.MimeJSON) (S.Accept S.MimeJSON) + let placeOrderRequest = S.placeOrder (S.Accept S.MimeJSON) (S.mkOrder { S.orderId = Just 21 , S.orderQuantity = Just 210 @@ -229,7 +221,7 @@ testStoreOps mgr config = do -- * USER TESTS -testUserOps :: NH.Manager -> S.SwaggerPetstoreConfig -> Spec +testUserOps :: NH.Manager -> S.OpenAPIPetstoreConfig -> Spec testUserOps mgr config = do describe "** user operations" $ do @@ -253,19 +245,19 @@ testUserOps mgr config = do before (pure _user) $ it "createUser" $ \user -> do - let createUserRequest = S.createUser (S.ContentType S.MimeJSON) user + let createUserRequest = S.createUser user createUserResult <- S.dispatchLbs mgr config createUserRequest NH.responseStatus createUserResult `shouldBe` NH.status200 before (pure _users) $ it "createUsersWithArrayInput" $ \users -> do - let createUsersWithArrayInputRequest = S.createUsersWithArrayInput (S.ContentType S.MimeJSON) (S.User2 users) + let createUsersWithArrayInputRequest = S.createUsersWithArrayInput (S.User2 users) createUsersWithArrayInputResult <- S.dispatchLbs mgr config createUsersWithArrayInputRequest NH.responseStatus createUsersWithArrayInputResult `shouldBe` NH.status200 before (pure _users) $ it "createUsersWithListInput" $ \users -> do - let createUsersWithListInputRequest = S.createUsersWithListInput (S.ContentType S.MimeJSON) (S.User2 users) + let createUsersWithListInputRequest = S.createUsersWithListInput (S.User2 users) createUsersWithListInputResult <- S.dispatchLbs mgr config createUsersWithListInputRequest NH.responseStatus createUsersWithListInputResult `shouldBe` NH.status200 @@ -286,7 +278,7 @@ testUserOps mgr config = do before (pure (_username, _user)) $ it "updateUser" $ \(username, user) -> do - let updateUserRequest = S.updateUser (S.ContentType S.MimeJSON) user (S.Username username) + let updateUserRequest = S.updateUser user (S.Username username) updateUserResult <- S.dispatchLbs mgr config updateUserRequest NH.responseStatus updateUserResult `shouldBe` NH.status200