Tune submitting outputs for performance

These settings slightly speed up sending outputs back to the coordinator.

1 files changed, 7 insertions, 3 deletions

diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 61db3b4..1dd4cbf 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -155,7 +155,7 @@ If already in the worker thread, call PROC immediately."
   (define line-length 72)               ; must be a multiple of 4
   (define buffer-length
     (let ((bytes-per-line (* 3 (/ 72 4)))
-          (lines-per-buffer 128))
+          (lines-per-buffer 65536))
       (* bytes-per-line lines-per-buffer)))
 
   (define buffer (make-bytevector buffer-length))
@@ -270,10 +270,14 @@ upcoming chunk."
     (let ((request (write-request request port)))
       (let* ((chunked-output-port
               (make-chunked-output-port
-               (request-port request)
+               port
                ;; The number of bytes produced when the base64 port flushes
                ;; it's buffer
-               #:buffering 9343
+               #:buffering (let ((lines 65536)
+                                 (line-length 72))
+                             (- (* (+ line-length 1)
+                                   lines)
+                                1))
                #:keep-alive? #t))
              (base64-output-port
               (make-base64-output-port chunked-output-port)))