diff options
author | Christopher Baines <mail@cbaines.net> | 2021-12-27 11:43:44 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-12-27 11:43:44 +0000 |
commit | 70a5c0459e593187b5925bd5bea0078f435613f6 (patch) | |
tree | 80ddf6914c361fe37696c1f96e6f1ceac2c70d85 | |
parent | c53e9896304f23c1ab3887dc6d952650141b13c3 (diff) | |
download | build-coordinator-70a5c0459e593187b5925bd5bea0078f435613f6.tar build-coordinator-70a5c0459e593187b5925bd5bea0078f435613f6.tar.gz |
Delete compressed outputs after a build finishes successfully
Otherwise these files just build up.
-rw-r--r-- | guix-build-coordinator/agent.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 591e15d..d506181 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -909,7 +909,9 @@ but the guix-daemon claims it's unavailable" `((result . success) (end_time . ,(strftime "%F %T" end-time)) (outputs . ,(list->vector output-details))) - #:log (build-log-procedure lgr build-id))) + #:log (build-log-procedure lgr build-id)) + + (for-each delete-file (map cdr compressed-outputs))) #:unwind? #t)) (define (submit-one-output output-name output bytes compressed-file) |