diff options
| -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)) |