diff options
-rw-r--r-- | guix-build-coordinator/agent.scm | 4 | ||||
-rw-r--r-- | guix-build-coordinator/utils.scm | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 6700bdd..e8f6e9d 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -337,7 +337,11 @@ but the guix-daemon claims it's unavailable" (parameterize ((current-build-output-port log-port)) (build-things store missing-paths))) (lambda (key . args) + (log-msg lgr 'ERROR + "exception when fetching missing paths " + key ": " args) (display (get-output-string log-port)) + (display (newline)) (close-output-port log-port)))))))) #:times 6 #:delay (+ 15 (random 30))) diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 5fd98f5..8f18625 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -628,6 +628,9 @@ References: ~a~%" (unlock-mutex queue-mutex) (with-exception-handler (lambda (exn) + (simple-format (current-error-port) + "requeuing job due to exception: ~A\n" + exn) ;; Add the job back to the queue so that it's tried again (apply process-job job-args)) (lambda () |