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

This fixes a regression introduced in
21531add32 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.
This commit is contained in:
Ludovic Courtès 2016-12-06 00:50:08 +01:00
parent 8243951ef1
commit 0237d79717
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -390,7 +390,8 @@ (define store
;; 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'~%"