diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-11 15:14:27 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-11 15:15:26 +0100 |
| commit | a0398a82e0adc798bca69a706ec6dec303ac2ccb (patch) | |
| tree | c1ac21076a71c207db6a5b8612c3eac05f82d563 | |
| parent | 4c613bdebe6fcc94c4907b6135c0b9bd16bcac93 (diff) | |
| download | build-coordinator-a0398a82e0adc798bca69a706ec6dec303ac2ccb.tar build-coordinator-a0398a82e0adc798bca69a706ec6dec303ac2ccb.tar.gz | |
Improve .tmp build log file handling
Make more of an effort to ignore the .tmp files.
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 242e90e..742eb56 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -469,10 +469,11 @@ (build-log-file-directory build-id)) (potential-files (scandir directory - (negate (cut member <> '("." "..")))))) + (lambda (file) + (and (not (member file '("." ".."))) + (not (string-suffix? ".tmp" file))))))) (match potential-files - ((file) (and (not (string-suffix? ".tmp" file)) - (string-append directory "/" file))) + ((file) (string-append directory "/" file)) (() #f) (#f #f) ; directory doesn't exist (files (error |