diff options
-rw-r--r-- | guix-build-coordinator/agent.scm | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 7365693..de28211 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -833,11 +833,18 @@ but the guix-daemon claims it's unavailable" (raise-exception exn))) #f) (lambda () - (build-things store (list (derivation-file-name derivation))) - (for-each (lambda (output) - (add-temp-root store output)) - (map derivation-output-path - (map cdr (derivation-outputs derivation)))) + (with-throw-handler #t + (lambda () + (build-things store (list (derivation-file-name derivation))) + (for-each (lambda (output) + (add-temp-root store output)) + (map derivation-output-path + (map cdr (derivation-outputs derivation))))) + (lambda (key . args) + (simple-format (current-error-port) + "exception when performing build: ~A ~A\n" + key args) + (backtrace))) #t) #:unwind? #t))) |