diff options
author | Ludovic Courtès <ludo@gnu.org> | 2016-12-06 00:50:08 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2016-12-06 00:50:08 +0100 |
commit | 0237d7971742ccfe5670455debb1feca9a491a0f (patch) | |
tree | 2456ae7f6d40bf043b130ce00d81950ce940a600 | |
parent | 8243951ef1b9de902bfd719e40759d62696b8050 (diff) | |
download | gnu-guix-0237d7971742ccfe5670455debb1feca9a491a0f.tar gnu-guix-0237d7971742ccfe5670455debb1feca9a491a0f.tar.gz |
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.
-rw-r--r-- | guix/scripts/offload.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index ed70f2267a..55d4c93c64 100644 --- a/guix/scripts/offload.scm +++ b/guix/scripts/offload.scm @@ -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'~%" |