diff options
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index f561dd9..242e90e 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -62,6 +62,7 @@ start-hook-processing-threads build-output-file-location + build-log-file-destination build-log-file-location handle-build-start-report handle-build-result @@ -455,7 +456,7 @@ (string-append (%config 'build-logs-dir) "/" build-id)) -(define (build-log-file-location datastore build-id format) +(define (build-log-file-destination build-id format) (string-append (build-log-file-directory build-id) "/" (cond ((string=? format "bzip2") "log.bz2") @@ -463,13 +464,15 @@ (else (error "unknown log format" format))))) -(define (build-log-file-exists? build-id) - (let ((potential-files - (scandir (build-log-file-directory build-id) - (negate (cut member <> '("." "..")))))) +(define (build-log-file-location build-id) + (let* ((directory + (build-log-file-directory build-id)) + (potential-files + (scandir directory + (negate (cut member <> '("." "..")))))) (match potential-files ((file) (and (not (string-suffix? ".tmp" file)) - file)) + (string-append directory "/" file))) (() #f) (#f #f) ; directory doesn't exist (files (error @@ -493,7 +496,7 @@ (make-exception-with-message "build already processed")))) (when success? - (unless (build-log-file-exists? build-id) + (unless (build-log-file-location build-id) (raise-exception (make-exception-with-message "missing build log file"))) |