diff options
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 4951ba6..fa76999 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -186,7 +186,9 @@ #:delay 60) ;; Double check everything is actually present. - (let ((missing-files (remove file-exists? output-paths))) + (let ((missing-files (remove (lambda (path) + (valid-path? store path)) + output-paths))) (if (null? missing-files) '() (begin @@ -219,7 +221,7 @@ #t))) (let ((derivation - (if (file-exists? derivation-name) + (if (valid-path? store derivation-name) (read-derivation-from-file derivation-name) (begin (retry-on-error (lambda () |