diff options
-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"))) |