diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-05-30 00:10:36 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-05-30 00:10:36 +0100 |
| commit | 15c61c94ff507c8a527cbbce09cb1c6627611faf (patch) | |
| tree | 2c4ee1dc8d04a1ea7071dc2f9195290b06121d6d | |
| parent | de775db48ed16aecb6cb934fcfec367f4b76733f (diff) | |
| download | build-coordinator-15c61c94ff507c8a527cbbce09cb1c6627611faf.tar build-coordinator-15c61c94ff507c8a527cbbce09cb1c6627611faf.tar.gz | |
Fix closing the custom chunked output port
| -rw-r--r-- | guix-build-coordinator/utils.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 0150257..72f33c3 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -294,9 +294,9 @@ upcoming chunk." (define (close) (with-gc-protection (lambda () - (put-string port "0\r\n") + (put-string port "0\r\n\r\n") + (force-output port) (unless keep-alive? - (force-output port) (close-port port))))) (let ((ret (make-soft-port (vector %put-char %put-string flush #f close) "w"))) |