diff options
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index 747d437..2c744a8 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -627,9 +627,12 @@ port. Also, the port used can be changed by passing the --port option.\n" (receive-file body (request-content-length request) tmp-output-file-name))) - (receive-file body - (request-content-length request) - tmp-output-file-name)) + (let ((content-length + (request-content-length request))) + (when (> content-length 0) + (receive-file body + content-length + tmp-output-file-name)))) (list (build-response |