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 | |
| 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.
| -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 |