[no subject]

[Ludovic Courtès]

branch: master
commit 98c207382e42cf9dc400e2dc3ad5c682c66cdf4d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Jul 15 16:19:12 2023 +0200

    'build-derivations&' returns a non-blocking port.
    
    Previously, the caller (either 'spawn-builds' or 'cuirass
    remote-worker') would block while reading build logs.
    
    * src/cuirass/base.scm (build-derivations&): Call 'non-blocking-port' on
    INPUT.
---
 src/cuirass/base.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index b2526fc..983383b 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -316,7 +316,7 @@ Essentially this procedure inverts the inversion-of-control 
that
           (lambda _
             (close-port output)))))
 
-     (values input
+     (values (non-blocking-port input)
              (lambda ()
                (match (atomic-box-ref result)
                  ((? condition? c)