fix: add missing Content-Length to empty HTTP 201 responses

For when a preference other than return=representation is requested.
This commit is contained in:
Laurence Isla
2025-12-10 14:18:19 +00:00
parent 3b27b2220d
commit 9200a98087
4 changed files with 20 additions and 6 deletions
+1 -2
View File
@@ -106,7 +106,6 @@ actionResponse (DbCrudResult MutateReadPlan{mrMutation=MutationCreate, mrMutateP
)
, Just . RangeQuery.contentRangeH 1 0 $
if shouldCount preferCount then Just rsQueryTotal else Nothing
, Just $ contentLengthHeaderStrict rsBody
, prefHeader ]
isInsertIfGTZero i =
@@ -121,7 +120,7 @@ actionResponse (DbCrudResult MutateReadPlan{mrMutation=MutationCreate, mrMutateP
Just HeadersOnly -> (headers, mempty)
Nothing -> (headers, mempty)
(ovStatus, ovHeaders) <- overrideStatusHeaders rsGucStatus rsGucHeaders status headers'
(ovStatus, ovHeaders) <- overrideStatusHeaders rsGucStatus rsGucHeaders status $ contentLengthHeaderLazy bod:headers'
Right $ PgrstResponse ovStatus ovHeaders bod