diff options
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -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 |