From 15c61c94ff507c8a527cbbce09cb1c6627611faf Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 30 May 2021 00:10:36 +0100 Subject: Fix closing the custom chunked output port --- guix-build-coordinator/utils.scm | 4 ++-- 1 file 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"))) -- cgit v1.2.3