[BUG][Haskell] generates only 200 responses, response codes are ignored
Created by: mgajda
Description
Only 200 responses with non-empty content are correctly generated. All result codes are ignored.
openapi-generator version
Git commit: 77e1ca56cf329bfb22b05f853587263fd0ff6503
(June 16th 2021)
Version in pom.xml
is 5.2.0-SNAPSHOT
.
OpenAPI declaration file content or url
Here is an example input spec:
openapi: 3.0.0
info:
description: Minimal failing example
version: "1.0.0"
title: Minimal API
contact:
email: mjgajda@migamake.com
paths:
/session:
post:
summary: start session
operationId: startSession
responses:
'201':
description: session created
content:
application/json:
schema:
type: object
required:
- sessionId
properties:
sessionId:
type: integer
example: 13
'404':
description: service offline
Generation Details
This will generate API that declares only the 200 response:
type MinimalAPI
= "session" :> Verb 'POST 200 '[JSON] InlineResponse201 -- 'startSession' route
:<|> Raw
Steps to reproduce
Copy paste spec.yaml
above and run:
openapi-generator-cli generate -i spec.yaml -g haskell
Suggest a fix
This change of the generated code works:
type MinimalAPI
= "session" :> Verb 'POST 201 '[JSON] InlineResponse201 -- 'startSession' route
:<|> Raw