diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-25 18:24:07 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-25 18:24:31 +0100 |
| commit | f79e93e04279977b0e4737d81c93689d26345851 (patch) | |
| tree | 570523cc6e3d0345b940a02a957ecb71454dcca3 | |
| parent | a6a93d2d0a49332b08c53480f3f6e5d0bbb846c0 (diff) | |
| download | build-coordinator-f79e93e04279977b0e4737d81c93689d26345851.tar build-coordinator-f79e93e04279977b0e4737d81c93689d26345851.tar.gz | |
Don't output the build log on the agent process
This isn't particularly helpful, especially as the agent process now handles
the log file.
| -rw-r--r-- | guix-build-coordinator/agent.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 780f7d5..0c3cec2 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -137,17 +137,17 @@ (set-build-options store #:use-substitutes? #f) - (catch #t - (lambda () - (build-things store (list derivation-name)) - + (parameterize ((current-build-output-port (%make-void-port "w"))) + (catch #t + (lambda () + (build-things store (list derivation-name)) #t) (lambda (key . args) (simple-format (current-error-port) "error: build: ~A ~A\n" key args) - #f)))) + #f))))) (define (post-build-failure uuid coordinator-uri password build-id derivation) |