diff options
author | Christopher Baines <mail@cbaines.net> | 2020-08-15 22:03:48 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-08-15 22:03:48 +0100 |
commit | cdbcd13773ef525ca463609e21a596cb7922894d (patch) | |
tree | 1c9dcffae7cead548a64f239b7ba4f47c4ddfb7d /guix-build-coordinator/agent.scm | |
parent | 3bc5e6b5ce015176bd314ba8b407353fc3217a20 (diff) | |
download | build-coordinator-cdbcd13773ef525ca463609e21a596cb7922894d.tar build-coordinator-cdbcd13773ef525ca463609e21a596cb7922894d.tar.gz |
Use valid-path? rather than file-exists?
Because items can be in the store but not be valid. This should help with
issues where the build can't start, but all the items show up in the store.
Diffstat (limited to 'guix-build-coordinator/agent.scm')
-rw-r--r-- | guix-build-coordinator/agent.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index bbca1e3..a2c55ef 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -128,7 +128,9 @@ (let* ((output-paths (append-map derivation-input-output-paths inputs)) (missing-paths - (remove file-exists? output-paths)) + (remove (lambda (path) + (valid-path? store path)) + output-paths)) (path-substitutes (with-store store (set-build-options store #:substitute-urls |