diff options
-rw-r--r-- | module/web/server.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/web/server.scm b/module/web/server.scm index 5fc081c16..42887e67f 100644 --- a/module/web/server.scm +++ b/module/web/server.scm @@ -264,7 +264,9 @@ on the procedure being called at any particular time." (call-with-encoded-output-string charset body)))) ((not (bytevector? body)) (error "unexpected body type")) - ((response-must-not-include-body? response) + ((and (response-must-not-include-body? response) + body + (not (zero? (bytevector-length body)))) (error "response with this status code must not include body" response)) (else ;; check length; assert type; add other required fields? |