diff options
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 5105e17..82aa333 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -30,6 +30,7 @@ #:use-module (web request) #:use-module (web response) #:use-module (system repl error-handling) + #:use-module (guix store) #:use-module (guix derivations) #:use-module (guix-build-coordinator utils) #:use-module (guix-build-coordinator utils fibers) @@ -166,7 +167,8 @@ (let ((derivation-database-entry (datastore-find-derivation datastore derivation-file))) (unless derivation-database-entry - (unless (file-exists? derivation-file) + (unless (with-store store + (valid-path? store derivation-file)) (call-with-worker-thread substitutes-channel (lambda () |