From a0398a82e0adc798bca69a706ec6dec303ac2ccb Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 11 Oct 2020 15:14:27 +0100 Subject: Improve .tmp build log file handling Make more of an effort to ignore the .tmp files. --- guix-build-coordinator/coordinator.scm | 7 ++++--- 1 file 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 -- cgit v1.2.3