~ruther/guix-local: offload: Send the build log to the right file descriptor.

0237d7971742ccfe5670455debb1feca9a491a0f — Ludovic Courtès 9 years ago 8243951

offload: Send the build log to the right file descriptor.

This fixes a regression introduced in
21531add3205e400707c8fbfd841845f9a71863a whereby the build log would no
longer be sent to FD 4, thereby leading the daemon to not see the build
log.

* guix/scripts/offload.scm (transfer-and-offload): Parameterize
CURRENT-BUILD-OUTPUT-PORT.

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M guix/scripts/offload.scm

M guix/scripts/offload.scm => guix/scripts/offload.scm +2 -1

@@ 390,7 390,8 @@ MACHINE."
              ;; Use exit code 100 for a permanent build failure.  The daemon
              ;; interprets other non-zero codes as transient build failures.
              (primitive-exit 100)))
-    (build-derivations store (list drv)))
+    (parameterize ((current-build-output-port (build-log-port)))
+      (build-derivations store (list drv))))
 
   (retrieve-files outputs store)
   (format (current-error-port) "done with offloaded '~a'~%"