diff options
author | Christopher Baines <mail@cbaines.net> | 2020-10-24 15:46:47 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-10-24 15:46:47 +0100 |
commit | f71901a96c6b971f2b92ad8e68447fe143ac552c (patch) | |
tree | 321cc062ccc8f86182de2c19bb6ceedb263624a6 /guix-build-coordinator/utils.scm | |
parent | c146e61ae6edcf0ae2d4eb11cf553e6500326c3a (diff) | |
download | build-coordinator-f71901a96c6b971f2b92ad8e68447fe143ac552c.tar build-coordinator-f71901a96c6b971f2b92ad8e68447fe143ac552c.tar.gz |
Use valid-path? rather than file exists for testing store items
As the file might exist, but ignored because the daemon is treating it as
invalid.
Diffstat (limited to 'guix-build-coordinator/utils.scm')
-rw-r--r-- | guix-build-coordinator/utils.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index f12cab0..ef26d3a 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -317,7 +317,8 @@ upcoming chunk." (lambda (key . args) ;; This is a hack, to ignore errors relating to closing the store ;; connection. - (if (file-exists? derivation-name) + (if (with-store store + (valid-path? store derivation-name)) #t (error (simple-format #f "could not substitute ~A\n" derivation-name)))))) |