scarf-sh/tie
1
1
Fork 0
mirror of https://github.com/scarf-sh/tie.git synced 2024-11-27 00:15:38 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix code generation for empty repsonse bodies

Browse Source
This commit is contained in:
Alex Biehl 2022-02-22 10:37:06 +01:00
parent d13775ac83
commit 7c86d4a8cc
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Tie/Codegen/Response.hs
View File

@ -71,7 +71,7 @@ codegenToResponses operationName responses defaultResponse =
| Just {} <- jsonResponseContent =
"(" <> "Data.Aeson.fromEncoding" <+> "(" <> "Data.Aeson.toEncoding" <+> "x" <> ")" <> ")"
| otherwise =
mempty
"mempty"
responseHeaders Response {jsonResponseContent}
| Just {} <- jsonResponseContent =

2
test/golden/petstore.yaml.out
View File

@ -160,7 +160,7 @@ data CreatePetsResponse
instance ToResponse CreatePetsResponse where
toResponse (CreatePetsResponse201 ) =
Network.Wai.responseBuilder (toEnum 201) []
Network.Wai.responseBuilder (toEnum 201) [] mempty
toResponse (CreatePetsDefaultResponse status x) =
Network.Wai.responseBuilder status [(Network.HTTP.Types.hContentType, "application/json")] (Data.Aeson.fromEncoding (Data.Aeson.toEncoding x))
---------------------