From 3eeab01b63e5eeb0ede97748a02ba3d0b40a6eba Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 5 May 2020 09:17:18 +0100 Subject: Don't raise an exception when substitutes fail --- guix-build-coordinator/agent.scm | 16 +++++++++------- 1 file 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)) -- cgit v1.2.3