diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-05-05 09:17:18 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-05-05 09:17:18 +0100 |
| commit | 3eeab01b63e5eeb0ede97748a02ba3d0b40a6eba (patch) | |
| tree | d11bb3b05a54dc585829b0bcb1904e4fb021e7c2 | |
| parent | b8ae9cc1227f3a7ad19014aa2f67a1d94f97cddd (diff) | |
| download | build-coordinator-3eeab01b63e5eeb0ede97748a02ba3d0b40a6eba.tar build-coordinator-3eeab01b63e5eeb0ede97748a02ba3d0b40a6eba.tar.gz | |
Don't raise an exception when substitutes fail
| -rw-r--r-- | guix-build-coordinator/agent.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 3520adb..04ba046 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -125,13 +125,15 @@ ;; Double check everything is actually present. (let ((missing-files (remove file-exists? output-paths))) - (unless (null? missing-files) - (raise-exception - (make-exception-with-message - (simple-format #f "failed to fetch substitutes for: ~A" - output-paths))))) - - '()))))) + (if (null? missing-files) + '() + (begin + (simple-format + (current-error-port) + "error: failed to fetch substitutes for: ~A" + output-paths) + + missing-files)))))))) (define (delete-outputs derivation) (let* ((outputs (derivation-outputs derivation)) |