diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-01-09 20:41:21 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-01-09 20:41:21 +0000 |
| commit | 4fd3e2c2d40faa2dad855a8f2b9502aab352f138 (patch) | |
| tree | 86ab8dda33bf35c904f2d6bf2aa5a9731193af00 /guix-build-coordinator/agent.scm | |
| parent | fdf2bdc1b55a24262d0cb45687d3df863f4579e4 (diff) | |
| download | build-coordinator-4fd3e2c2d40faa2dad855a8f2b9502aab352f138.tar build-coordinator-4fd3e2c2d40faa2dad855a8f2b9502aab352f138.tar.gz | |
Add correct guard to deleting compressed outputs
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index d506181..e38001f 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -911,7 +911,8 @@ but the guix-daemon claims it's unavailable" (outputs . ,(list->vector output-details))) #:log (build-log-procedure lgr build-id)) - (for-each delete-file (map cdr compressed-outputs))) + (when submit-outputs? + (for-each delete-file (map cdr compressed-outputs)))) #:unwind? #t)) (define (submit-one-output output-name output bytes compressed-file) |