diff options
author | Christopher Baines <mail@cbaines.net> | 2020-12-15 23:27:51 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-12-15 23:27:51 +0000 |
commit | 8082cc72316bb54a99f6749b9a80bbf207ba61f6 (patch) | |
tree | 98fdfcc9b2e0bcb2bcf6765f949614cd13134ff0 /guix-build-coordinator/agent.scm | |
parent | 7dc3930592d864d7848e0c1b53763c1c1a8e2e8a (diff) | |
download | build-coordinator-8082cc72316bb54a99f6749b9a80bbf207ba61f6.tar build-coordinator-8082cc72316bb54a99f6749b9a80bbf207ba61f6.tar.gz |
Guard against a weird state for missing build inputs
Where there are missing files, but find-missing-substitutes-for-output doesn't
return anything. I think this can happen when the substitutes should be
available, but there was an error when fetching them.
Diffstat (limited to 'guix-build-coordinator/agent.scm')
-rw-r--r-- | guix-build-coordinator/agent.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index fbb8a12..df77a65 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -350,7 +350,10 @@ but the guix-daemon claims it's unavailable") " - " output)) unavailable-outputs))) - unavailable-outputs))))))))) + (if (null? unavailable-outputs) ; TODO This probably + ; shouldn't happen + missing-files + unavailable-outputs)))))))))) (define (delete-outputs derivation) (let* ((outputs (derivation-outputs derivation)) |